Excel VBA Worksheet_Change多次执行导致MsgBox重复弹出问题

Worksheet_Change是工作表内容发生修改时就会自动触发的事件，你在事件调用的CheckValue过程中执行了多次ClearContents清空单元格的操作，这类修改单元格内容的动作会再次触发Worksheet_Change事件，形成递归死循环，导致过程反复执行，MsgBox持续弹出，只能强制终止程序。

在事件过程中临时关闭事件响应，等所有逻辑执行完成后再重新开启，同时搭配错误处理，避免代码异常导致事件响应永久关闭。
修改后的完整代码如下：

工作表事件代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 临时关闭事件触发，阻断递归调用链路
    Application.EnableEvents = False
    ' 错误捕获，保证异常时也能恢复事件设置
    On Error GoTo RestoreEvents
    If Target.Address = "$N$16" Then
        Call CheckValue(Target)
    End If
RestoreEvents:
    ' 恢复事件响应
    Application.EnableEvents = True
End Sub

CheckValue过程无需调整，保持原有逻辑即可 #

Sub CheckValue(Target)
    If Target.Offset(0, 12) < 1 Then
        MsgBox "This is a sample box"
        Range(Target.Offset(0, -12), Cells(Target.MergeArea(1, 1).Row, Target.MergeArea(1, 1).Offset(1, -2).Column)).ClearContents
        Target.Offset(0, 0).ClearContents
        Target.Offset(-4, 0).Select
    End If
End Sub

• 禁止省略错误处理逻辑：如果代码运行中途报错，没有错误捕获的话Application.EnableEvents会一直保持False状态，后续所有工作表事件都不会响应，需要手动在VBA编辑器的立即窗口执行Application.EnableEvents = True才能恢复。
• 所有在Worksheet_Change、Worksheet_SelectionChange这类事件中编写修改单元格结构、内容的逻辑时，都建议提前关闭事件响应，避免非预期的递归触发。

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