Workbook.SheetChange事件异常：切换工作表无法触发问题排查

核心原因 #

Workbook_SheetChange事件的触发逻辑是只有当工作表的单元格内容（值、公式）被修改时才会触发，单纯切换工作表（比如从Sheet1切到Sheet2）完全不会触发这个事件——这是事件本身的设计规则，和自动计算是否关闭无关。

你提到“仅在其他工作表执行计算操作后该事件才生效”，本质是因为手动计算操作（比如按F9）可能导致某些单元格的数值发生变化（比如依赖外部数据或易失性函数的公式），这种数值变化触发了SheetChange事件，而非切换工作表的动作。

修正方案 #

如果你的需求是切换工作表时就触发A1单元格的计算，应该改用Workbook_SheetActivate事件，代码如下：

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Sh.Range("A1").Calculate ' 加上Sh限定当前激活工作表的A1，避免引用错误
End Sub

如果确实需要在单元格内容变化时触发计算，你的原代码有两个潜在问题，建议调整：

• 未限定工作表：Range("A1")默认引用当前激活工作表的A1，而非触发事件的工作表，应改为Sh.Range("A1").Calculate
• 事件递归风险：如果A1的计算导致其他单元格变化，可能会再次触发SheetChange，可以添加事件禁用逻辑：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Application.EnableEvents = False
    Sh.Range("A1").Calculate
    Application.EnableEvents = True
End Sub

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