Excel VBA自定义KursWinkel函数溢出返回#Wert错误排查

• 新建Excel工作簿，创建名为Module_Trigonometry的VBA标准模块，在模块内实现自定义函数KursWinkel，所有变量、宏、函数均使用德语命名，避免和编译器内置标识符冲突
• VBA编辑器「Developer-Tools」菜单下的Compile选项为灰色不可选状态
• 在工作表（如Channel工作表）单元格输入=Kurs时，Excel会自动弹出该自定义函数的补全提示，但补全正弦值所在单元格引用、闭合括号回车后，单元格返回#Wert!（值错误）

原始函数代码如下：

Function KursWinkel(Sinus As Double) As Double
    'To get the angle for the value of the overgiven sinus-value we can only guess and this we do by
    'going throug the entire range of Double
    Dim s, r As Long
    For s = -4940656458412# To 494065645841247#
         If (Abs(Sinus) - Abs(s)) > r Then
           Exit For
        End If
        r = Abs(Sinus) - Abs(s)
    Next
    KursWinkel = r
End Function

1. Compile选项为灰色属于正常状态，不是故障 #

VBA采用实时编译机制，编写代码过程中会自动完成语法检查和编译，当没有未编译的代码改动时，Compile选项默认就是灰色不可点击状态，不需要额外处理。

2. 代码存在3个致命问题，直接触发#Wert!错误 #

• 变量声明不符合VBA语法规则：Dim s, r As Long的写法不会将s和r同时声明为Long类型。VBA中变量声明需要为每个变量单独指定类型，未显式指定类型的变量默认是Variant类型，这行代码实际声明效果是s为Variant、r为Long。
• 循环逻辑完全不可执行，触发数值溢出：循环范围-4940656458412# To 494065645841247#跨度接近5e14，默认步长为1的情况下需要执行近百万亿次循环，Excel根本无法跑完；同时Long类型的取值范围仅为-2147483648 ~ 2147483647，循环内计算的差值Abs(Sinus) - Abs(s)远超出Long类型的存储上限，直接触发溢出错误，这是单元格返回值错误的直接原因。
• 实现逻辑完全偏离需求：穷举遍历找最小差值的思路和「根据正弦值反算角度」的需求没有关联，VBA本身内置了反正弦计算函数，不需要做无意义的穷举。

直接调用VBA内置的反正弦函数实现即可，增加入参合法性校验避免超出函数定义域报错：

Function KursWinkel(Sinus As Double) As Variant
    ' 校验正弦值范围，超出[-1,1]合法区间时返回值错误
    If Abs(Sinus) > 1 Then
        KursWinkel = CVErr(xlErrValue)
        Exit Function
    End If
    ' 调用内置反正弦函数计算结果，返回值为弧度单位
    ' 若需要返回角度值，改为 KursWinkel = Application.Asin(Sinus) * 180 / Application.Pi()
    KursWinkel = Application.Asin(Sinus)
End Function

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