Excel VBA中Worksheet_Change事件如何正确编写以避免死循环或触发异常？

在Excel VBA中，Worksheet_Change事件会在单元格内容被修改时触发。如果在该事件过程中通过代码修改了工作表中的单元格，会再次触发Worksheet_Change事件，从而形成死循环，最终导致程序崩溃或Excel无响应。

避免死循环的核心方法

在事件过程开头禁用事件触发，在结尾重新启用：

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    
    '在此处编写业务逻辑代码
    '例如：Target.Value = UCase(Target.Value)
    
    Application.EnableEvents = True
End Sub

防止异常导致事件无法恢复

如果业务代码运行出错，Application.EnableEvents = True将不会被执行，后续所有事件都不会再触发。必须加入错误处理机制：

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo ErrorHandler
    Application.EnableEvents = False
    
    '业务逻辑代码
    
ErrorHandler:
    Application.EnableEvents = True
End Sub

限制触发范围

使用Intersect函数判断被修改的单元格是否在目标区域内，避免无关修改触发逻辑：

If Intersect(Target, Me.Range("A1:A10")) Is Nothing Then Exit Sub

常见误区

• 忘记写Application.EnableEvents = True，导致整个Excel会话中事件失效。
• 未加错误处理，运行时错误中断后事件处于永久禁用状态。
• 未限定Target范围，任何单元格的改动都会执行完整逻辑，影响性能。