在没有参数的自定义函数中添加两个单元格

Question

我正在尝试学习 VBA for Excel。我正在观看有关 VBA 中自定义函数/用户定义函数的教程。我试图创建一个用户定义的函数，但它在我输入函数名称的单元格中显示#REF! 错误。我正在尝试添加 (A Cell + B Cell)，而不向函数传递任何参数/参数。我正在使用 Offset 遍历具有公式函数的单元格左侧的 1,2 个单元格。这是我的代码：

Option Explicit

Function ADD12()
Dim Number_1 As Integer
Dim Number_2 As Integer

Number_2 = ActiveCell.Offset(0, -2).Value
Number_1 = ActiveCell.Offset(0, -1).Value
ADD12 = Number_1 + Number_2
End Function

我的工作表截图：

Answer 1

#REF 错误是因为您不能使用单元格地址作为函数名。

但也要注意 ActiveCell 总是在变化的。您可能想查看Caller 以获取函数所在的单元格。

例如：

Option Explicit

Function ADD_12()
Dim Number_1 As Integer
Dim Number_2 As Integer
Dim R As Range

Set R = Application.Caller

Number_2 = R.Offset(0, -2).Value
Number_1 = R.Offset(0, -1).Value
ADD_12 = Number_1 + Number_2
End Function

Answer 2

您面临的问题是您为 UDF 选择的名称是非法的。

ADD12 是工作表上单元格的地址。这保证了引用错误并且您的 UDF 永远不会被调用。

将名称更改为不是单元格地址的名称，例如ADD12_。

Caller 是做你所追求的正确方法，除非你真的希望它从选定的单元格计算。这两种方法都可以保证您的函数是非易失性的，这意味着如果您更改其中一个依赖值，它不会自动更新结果。

您应该使用 Long 变量类型而不是整数。