多次执行Worksheet_Change

Question

我使用的是一个如果是MsgBox的条件。当我和MsgBox一起使用其他条件时，MsgBox会多次弹出，我不得不结束这个程序。

模块中的代码：

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

我通过更改工作表激活此子：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$N$16" Then
        Call CheckValue(Target)
    End If
End Sub

Answer 1

当您清除CheckValue子程序中的内容时，您将触发更改事件。

您必须添加Application.EnableEvents

Sub CheckValue(Target)
If Target.Offset(0, 12) < 1 Then
     MsgBox "This is a sample box"

     Application.EnableEvents = false  '--> disable event
         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
     Application.EnableEvents = true    '--> enable events
     
     Target.Offset(-4, 0).Select

     End If
end sub