Excel Vba：Change事件无法调用宏的问题排查求助

嘿，我来帮你搞定这个事件触发的问题！你的代码逻辑有个小坑——咱们来拆解下：

你原来的代码是这么写的：

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Target.Address = "$H$5:$H$32" Then 
        Call SetAxes 
    End If 
End Sub

这里的问题在于：只有当你一次性修改整个$H$5:$H$32区域的时候，Target.Address才会等于这个区域的地址。但实际操作中，你大概率是修改区域里的单个单元格（比如H5、H6），这时候Target对应的是那个单个单元格，它的地址是$H$5这类单个单元格地址，自然不等于整个区域的地址，所以事件就不会触发啦！

正确的写法：用Intersect判断交集 #

我们需要用Intersect函数来检查修改的单元格（Target）是否落在目标区域内，只要有交集就执行宏。另外，最好加上EnableEvents的开关，防止宏运行时不小心触发递归事件（比如你的SetAxes宏如果有修改单元格的操作，会再次触发Change事件）。

完整代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim targetRange As Range
    Set targetRange = Me.Range("$H$5:$H$32")
    
    ' 检查修改的单元格是否在目标区域内
    If Not Intersect(Target, targetRange) Is Nothing Then
        ' 禁用事件，防止递归触发
        Application.EnableEvents = False
        Call SetAxes
        ' 恢复事件
        Application.EnableEvents = True
    End If
End Sub

额外注意事项 #

• 确保这段代码是放在对应的工作表模块里（比如Sheet1的代码窗口），不是放在标准模块（比如Module1）里，不然事件不会生效。
• 如果你的工作表被保护了，需要先取消保护，或者在保护时勾选「允许用户编辑区域」并包含$H$5:$H$32，否则事件可能无法触发。
• 确认Excel的宏已经启用，不然所有宏包括事件代码都不会运行。

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