如何让VBA自定义函数随非参数单元格变更自动更新？

现有自定义函数Example的计算依赖B1和C1的值，但Excel默认只会在函数参数SomeCell对应的单元格变更时才更新结果。要让函数在B1或C1变更时自动更新，且不把这两个单元格设为函数参数，有两种可行方案：

方案一：用工作表变更事件精准触发计算 #

在对应工作表的代码模块中添加以下事件代码，当B1或C1发生变更时，自动重新计算所有调用Example函数的单元格：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 检查变更的单元格是否是B1或C1
    If Not Intersect(Target, Me.Range("B1:C1")) Is Nothing Then
        ' 重新计算整个工作表（如果只想计算特定区域，可替换为Range("目标区域").Calculate）
        Me.Calculate
    End If
End Sub

这种方式只会在B1/C1变更时触发计算，性能开销小，适合数据量大的场景。原自定义函数无需修改。

方案二：标记函数为易失性（简单但性能略逊） #

直接在自定义函数开头添加Application.Volatile语句，让Excel在任何单元格变更时都重新计算该函数，自然也会覆盖B1/C1变更的情况：

Public Function Example(SomeCell As String) As Integer
    Application.Volatile
    Example = Worksheet.Range("B1").Value * Worksheet.Range("C1").Value
End Function

这个方法修改简单，但会让函数在工作表任意单元格变更时都重新运行，如果工作表有大量计算，可能会拖慢响应速度，适合小型表格使用。

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