单元格值由公式或外部插件更新时如何触发运行VBA宏

问题根因 #

Worksheet_Change 事件仅在用户手动编辑单元格内容时触发，公式重算、外部插件后台更新单元格数值这类无手动编辑动作的变动，不会被该事件识别，因此无法触发宏。

推荐解决方案：使用 Worksheet_Calculate 事件 #

该事件会在工作表内任意公式完成重算后触发，搭配旧值校验逻辑即可精准监控指定单元格的数值变动，完全适配你提到的随机数更新、外部插件更新场景。

操作步骤： #

1. 打开Sheet1对应的VBA代码模块，在所有子程序上方声明模块级变量，用于存储目标单元格的上一次数值：

' 放在Sheet1代码模块最顶部
Dim oldA1Value As Variant

2. 新增工作簿打开事件，初始化目标单元格的初始值：

Private Sub Workbook_Open()
    oldA1Value = Sheet1.Range("A1").Value
End Sub

3. 替换原有的Worksheet_Change代码为如下Worksheet_Calculate逻辑：

Private Sub Worksheet_Calculate()
    If Sheet1.Range("A1").Value <> oldA1Value Then
        ' 此处替换为你需要运行的自定义宏逻辑
        Cells(1, 3).Value = "The function updated"
        ' 更新存储的旧值，为下一次对比做准备
        oldA1Value = Sheet1.Range("A1").Value
    End If
End Sub

配置完成后保存文件并重新打开，按F9刷新随机数、或外部插件更新A1数值时，都会触发对应的宏逻辑。

兜底方案：定时轮询监控 #

如果你的外部插件更新单元格数值时不会触发工作表重算，可以使用定时轮询的方式监控目标单元格：

1. 在VBA编辑器中插入一个新的标准模块，在模块顶部声明如下变量：

Dim oldA1Value As Variant
Dim nextCheckTime As Date

2. 在标准模块中添加监控启停逻辑：

Sub StartMonitor()
    ' 可自行调整检查间隔，当前设置为每秒检查一次
    nextCheckTime = Now + TimeValue("00:00:01")
    If Sheet1.Range("A1").Value <> oldA1Value Then
        ' 自定义宏逻辑
        Sheet1.Cells(1, 3).Value = "The function updated"
        oldA1Value = Sheet1.Range("A1").Value
    End If
    Application.OnTime nextCheckTime, "StartMonitor"
End Sub

Sub StopMonitor()
    ' 停止监控，关闭文件前运行可避免报错
    On Error Resume Next
    Application.OnTime nextCheckTime, "StartMonitor", , False
End Sub

需要启动监控时运行StartMonitor即可。

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