如何在VBA的Worksheet_Change事件中修改单元格值且避免无限循环

在Worksheet_Change事件中修改单元格会触发新一轮事件，进而引发无限循环。要解决这个问题，核心思路是临时禁用Excel的事件触发机制，完成单元格修改后再恢复。

基础解决方案 #

直接在修改操作前后切换Application.EnableEvents的状态：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 关闭事件触发，避免循环
    Application.EnableEvents = False
    
    ' 执行目标单元格修改
    Target.Value = "test"
    
    ' 恢复事件触发，不影响后续正常操作
    Application.EnableEvents = True
End Sub

带错误处理的稳健版本 #

如果代码执行过程中出现错误，可能会导致事件一直处于禁用状态。添加错误捕获可以确保无论是否出错，事件都会被恢复：

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo ErrorHandler
    
    Application.EnableEvents = False
    Target.Value = "test"
    
ErrorHandler:
    ' 强制恢复事件触发
    Application.EnableEvents = True
    ' 可选：显示错误信息
    If Err.Number <> 0 Then
        MsgBox "操作出错: " & Err.Description
    End If
End Sub

原理说明：当Application.EnableEvents = False时，Excel不会响应任何事件触发，因此修改Target.Value不会再次触发Worksheet_Change事件；操作完成后恢复为True，即可正常响应后续的单元格变更事件。

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