excel - 仅当特定单元格值更改时才执行宏

Question

我在单元格 E2 中有一个简单的 countif 公式，用于检查特定文本。一旦为真，它将执行一个宏，提示输入消息框。此代码工作正常，但是当对工作表进行任何其他更改时，即使单元格 E2 的值没有更改，也会再次执行宏。如果 E2 根本没有改变，如何阻止宏进一步执行？

Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("E2")) Is Nothing Then
    If Target.Value = "True" Then
        Application.EnableEvents = False
        a = MsgBox("Test", vbYesNo, "Test")
        If a = vbYes Then
            Range("E3") = "003"
        Else
            Range("E3") = "001"
        End If

        Call ApplyMG
        Application.EnableEvents = True
    End If
End If
End Sub 

编辑:感谢下面的评论，删除了将目标设置为相交线中相同范围的“旧代码”。但是，宏不再被触发。

Answer 1

事实证明我把事情过于复杂化了。经过一番研究后，我想要做的事情首先不适用于 Worksheet_Change，因为这是一个公式。因此，我只需要将代码移到 Worksheet_Calculate 上即可。不需要不必要的相交或任何东西，因为我的代码只需要确定单元格 E2 是否为 True，这是由单元格公式确定的。反正其他的都不重要了。

Private Sub Worksheet_Calculate()
Dim trigger As Range
Set trigger = Range("E2")

If trigger.Value = "True" Then
    Application.EnableEvents = False
    a = MsgBox("Test", vbYesNo, "Test")
    If a = vbYes Then
        Range("E3") = "003"
    Else
        Range("E3") = "001"
    End If

    Call ApplyMG
    Application.EnableEvents = True
End If
End Sub