基础VBA自定义fnSum函数运行异常：选第二个单元格时出错求助

首先，我先梳理下你的问题：你有VB.NET基础，刚学VBA写了个练习用的fnSum函数，想替代Excel内置SUM，但选择第二个含数字的单元格时触发错误。先把你的代码贴出来方便分析：

Function fnSum(Num1 As Double, Optional num2 As Variant)
    If IsMissing(num2) Then
        fnSum = Num1 * Num1
    Else
        fnSum = Num1 * num2
    End If
End Function

可能的报错原因 #

最可能触发错误的场景有两个：

1. 误选了多单元格区域：如果你在Excel中拖选了多个单元格作为第二个参数（比如B1:B3），num2会变成一个Variant数组，而Num1 * num2这种直接运算会触发类型不匹配错误——Double类型无法直接和数组相乘。
2. 单元格值的类型兼容性问题：哪怕单元格显示的是数字，如果它的格式是文本（比如手动设置为文本格式的数字），传递给Num1 As Double时会触发类型不匹配；或者如果单元格包含错误值（比如#N/A），也会直接报错。

针对性解决方案 #

根据你的使用需求，这里提供两种修改方案：

方案1：支持多单元格区域参数

如果希望函数能兼容单个单元格或多个单元格区域，可以先判断参数是否为数组，再做对应处理：

Function fnSum(Num1 As Double, Optional num2 As Variant) As Variant
    ' 处理num2未传递的情况
    If IsMissing(num2) Then
        fnSum = Num1 * Num1
        Exit Function
    End If
    
    ' 处理num2是多单元格数组的情况
    If IsArray(num2) Then
        Dim total As Double
        Dim cellVal As Variant
        For Each cellVal In num2
            ' 跳过空单元格和错误值，只累加有效数字
            If IsNumeric(cellVal) And Not IsError(cellVal) Then
                total = total + cellVal
            End If
        Next cellVal
        fnSum = Num1 * total
    Else
        ' 处理单个值的情况，先校验有效性
        If IsNumeric(num2) And Not IsError(num2) Then
            fnSum = Num1 * CDbl(num2)
        Else
            ' 返回标准Excel错误值，避免弹出运行时错误
            fnSum = CVErr(xlErrValue)
        End If
    End If
End Function

方案2：严格限制单个值参数，提前拦截错误

如果你只希望函数接收单个数值或单个单元格，可以添加参数校验，提前过滤无效输入：

Function fnSum(Num1 As Double, Optional num2 As Variant) As Variant
    ' 处理num2未传递的情况
    If IsMissing(num2) Then
        fnSum = Num1 * Num1
        Exit Function
    End If
    
    ' 先校验num2是否为有效输入
    If IsError(num2) Then
        fnSum = CVErr(xlErrValue)
        Exit Function
    End If
    
    If Not IsNumeric(num2) Then
        fnSum = CVErr(xlErrValue)
        Exit Function
    End If
    
    ' 转换为Double后执行运算
    fnSum = Num1 * CDbl(num2)
End Function

额外注意点 #

• 作为Excel自定义函数（UDF），把返回值类型设为Variant会更灵活，这样可以返回标准的Excel错误值（比如CVErr(xlErrValue)），而不是直接弹出VBA运行时错误。
• IsMissing只能用于没有设置默认值的Variant类型可选参数，你的代码这里使用是正确的，但如果给num2加了默认值（比如Optional num2 As Variant = 0），IsMissing就永远返回False了，这点要留意。

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