VBA自定义CalcComm函数无返回值问题排查求助

原代码错误点 #

• 返回值规则错误：VBA自定义函数需将最终结果赋值给与函数名完全一致的变量，原代码仅赋值给局部变量Commission，未赋值给CalcComm，导致函数始终返回默认值0
• 变量引用错误：首条判断条件使用了未定义的变量sales_A，为笔误，应替换为参数salesamount
• 参数拼写错误：月份判断中Month()函数的入参写为saledate，与函数定义的参数名salesdate拼写不符，缺少字母s
• 冗余判断：大于等于25000的佣金规则写了两次重复判断，可合并简化
• 逻辑缺陷：旺季佣金规则直接覆盖了基础佣金计算结果，不符合常规业务逻辑（通常旺季为基础佣金外额外加成，而非替换为更低的1.5%比例，可根据实际业务需求调整）

修复后完整代码 #

Function CalcComm(salesdate As Date, salesamount As Double) As Double
    Dim Commission As Double
    
    ' 计算基础佣金
    If salesamount < 10000 Then
        Commission = salesamount * 0.03
    ElseIf salesamount >= 10000 And salesamount < 25000 Then
        Commission = salesamount * 0.04
    Else
        Commission = salesamount * 0.06
    End If
    
    ' 旺季（1、2、12月）佣金调整
    ' 若规则为旺季额外加1.5%佣金，将下行替换为：Commission = Commission + salesamount * 0.015
    If Month(salesdate) = 1 Or Month(salesdate) = 2 Or Month(salesdate) = 12 Then
        Commission = salesamount * 0.015
    End If
    
    ' 赋值给函数名返回结果
    CalcComm = Commission
End Function

内容的提问来源于stack exchange，提问作者Sterling Mateo