如何在另一工作簿特定单元格变更时运行指定VBA脚本

原代码存在的问题 #

• 工作表Worksheet_Change事件仅能监听当前代码所在工作表的单元格变更，无法直接监听其他工作簿的单元格
• 语法错误：调用外部工作簿和工作表时，应使用Workbooks("Test.xlsx")（工作簿已打开时）或Workbooks.Open("文件路径")，工作表需用Sheets("Sheet1")而非Sheet("Sheet1")
• 逻辑错误：Target是当前工作表的变更单元格，直接对比外部工作簿单元格的地址无实际意义

解决方案1：目标工作簿处于打开状态时的监听 #

如果目标工作簿（Test.xlsx）会保持打开状态，可在该工作簿的Sheet1工作表模块中添加事件代码，直接监听B2的变更并触发宏：

' 这段代码必须放在Test.xlsx的Sheet1工作表模块中
Private Sub Worksheet_Change(ByVal Target As Range)
    ' 检测变更范围是否包含B2单元格
    If Not Intersect(Target, Me.Range("B2")) Is Nothing Then
        ' 调用指定工作簿中的RUNALL宏
        ' 示例：若RUNALL在名为"MacroBook.xlsm"的工作簿中
        Application.Run "'MacroBook.xlsm'!RUNALL"
        ' 若RUNALL就在Test.xlsx中，直接写 Call RUNALL 即可
    End If
End Sub

解决方案2：目标工作簿可能关闭时的定时检查 #

如果目标工作簿可能处于关闭状态，可通过定时读取B2的值并对比，实现变更检测：

1. 声明全局变量（标准模块中） #

Dim oldB2Value As Variant
Dim checkTimer As Double

2. 启动监控的宏 #

Sub StartMonitoring()
    Dim targetWB As Workbook
    
    ' 尝试获取已打开的目标工作簿
    On Error Resume Next
    Set targetWB = Workbooks("Test.xlsx")
    On Error GoTo 0
    
    ' 未打开则以只读模式打开
    If targetWB Is Nothing Then
        Set targetWB = Workbooks.Open("M:\Wholesale\Test.xlsx", ReadOnly:=True)
    End If
    
    ' 记录初始值
    oldB2Value = targetWB.Sheets("Sheet1").Range("B2").Value
    targetWB.Close SaveChanges:=False ' 读取后关闭，可选
    
    ' 设置每5秒检查一次（可修改时间间隔）
    checkTimer = Now + TimeValue("00:00:05")
    Application.OnTime checkTimer, "CheckB2Change"
End Sub

3. 检查变更的宏 #

Sub CheckB2Change()
    Dim targetWB As Workbook
    Dim currentB2Value As Variant
    
    On Error Resume Next
    Set targetWB = Workbooks("Test.xlsx")
    On Error GoTo 0
    
    If targetWB Is Nothing Then
        Set targetWB = Workbooks.Open("M:\Wholesale\Test.xlsx", ReadOnly:=True)
    End If
    
    currentB2Value = targetWB.Sheets("Sheet1").Range("B2").Value
    
    ' 对比值是否发生变更
    If currentB2Value <> oldB2Value Then
        oldB2Value = currentB2Value
        Call RUNALL ' 触发目标宏
    End If
    
    targetWB.Close SaveChanges:=False
    
    ' 继续定时检查
    checkTimer = Now + TimeValue("00:00:05")
    Application.OnTime checkTimer, "CheckB2Change"
End Sub

4. 停止监控的宏 #

Sub StopMonitoring()
    On Error Resume Next
    Application.OnTime checkTimer, "CheckB2Change", Schedule:=False
    On Error GoTo 0
End Sub

注意事项 #

• 方案1需确保Test.xlsx的宏已启用，且事件代码正确放置在对应工作表模块
• 方案2的检查间隔可按需调整，过短会影响性能，过长会导致变更检测延迟
• 调用RUNALL时，需确保该宏所在工作簿已打开，或用Application.Run指定完整工作簿名称

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