Excel VBA阶乘自定义函数出现#VALUE!错误，求排查原因

错误原因分析 #

• 参数类型不兼容：函数参数val As Long要求输入必须是整数型数值，若单元格输入带小数的数字（如170.5）、文本格式的数字（即使单元格设为数字格式，实际内容仍可能是文本），都会触发类型错误返回#VALUE!。
• 数值溢出限制：Long类型的最大值为2147483647，13!（6227020800）就已超出这个范围，计算时会直接溢出；且你需要的大于170的阶乘，Long、Double类型都无法承载（Double的171!会变成无穷大），溢出也会引发错误提示。

修复后的代码（支持大整数阶乘） #

要计算任意大小的正整数阶乘，需用字符串存储结果避免数值溢出：

Function BigFactorial(val As Variant) As String
    ' 验证输入是否为正整数
    If Not IsNumeric(val) Or val <= 0 Or val <> Int(val) Then
        BigFactorial = "#VALUE!"
        Exit Function
    End If
    
    Dim result As String
    result = "1"
    
    Dim i As Long
    For i = 2 To val
        result = MultiplyStringByNumber(result, i)
    Next i
    
    BigFactorial = result
End Function

' 辅助函数：字符串数字乘以整数
Private Function MultiplyStringByNumber(numStr As String, multiplier As Long) As String
    Dim carry As Long, digit As Integer, i As Integer
    Dim result As String
    
    carry = 0
    ' 从右往左逐位计算
    For i = Len(numStr) To 1 Step -1
        digit = CInt(Mid(numStr, i, 1))
        digit = digit * multiplier + carry
        carry = digit \ 10
        digit = digit Mod 10
        result = CStr(digit) & result
    Next i
    
    ' 处理剩余进位
    While carry > 0
        result = CStr(carry Mod 10) & result
        carry = carry \ 10
    Wend
    
    MultiplyStringByNumber = result
End Function

使用说明 #

• 输入需为正整数（直接输入或引用存储正整数的单元格），非正整数、非数值输入会返回#VALUE!提示。
• 基于字符串运算，可计算任意大的正整数阶乘，完全支持大于170的数值需求。

内容的提问来源于stack exchange，提问作者Roya on CraveRight