创建带偏移引用的Excel VBA函数返回#VALUE!问题求助

原函数返回#VALUE!错误的核心原因有两个：

• 参数类型错误：你需要获取Num_2对应单元格的位置，但原代码把Num_2定义为Integer（数值类型），无法通过它定位单元格；同时代码里错误地用Range("Num_2")（字符串字面量）而非参数变量，导致VBA找不到目标单元格。
• 类型适配问题：Integer仅能存储小范围整数，若单元格包含小数或大数会触发类型错误，建议使用更通用的数值类型。

修正后的VBA函数 #

Function MYFUNCTION(Num_1 As Double, Num_2 As Range) As Double
    Dim Num_3 As Double
    
    ' 检查Num_2下方单元格是否为有效数值
    If IsNumeric(Num_2.Offset(1, 0).Value) Then
        Num_3 = Num_2.Offset(1, 0).Value
        MYFUNCTION = Num_1 * Num_2.Value * Num_3
    Else
        ' 若下方单元格无有效数值，返回标准Excel错误值
        MYFUNCTION = CVErr(xlErrValue)
    End If
End Function

修改说明 #

• 将Num_2的参数类型改为Range，直接引用传入的单元格对象，通过Offset(1,0)获取其下方一行的单元格。
• 把所有数值类型从Integer改为Double，支持小数和更大范围的数值计算，避免溢出或类型不匹配错误。
• 添加IsNumeric检查，处理下方单元格无有效数值的情况，返回规范的错误提示。

使用方式 #

在Excel单元格中输入公式，例如：
=MYFUNCTION(A1, B1)
其中A1是Num_1的数值单元格，B1是需要引用其下方单元格的目标单元格。

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