单元格值更改为“是”时的Excel弹出框

晚上好,

我想知道如何让这段代码在从N7到N51的一系列单元上工作

弹出框工作得很好，但仅在N7的引用单元格中，我需要它来处理从N7到N51的每个单元格，以便当每个单元格值更改时，弹出框出现。因此，如果更改单元格N8，则会出现框，依此类推。原因是并不是每个单元格都会改变，我只需要在改变的单元格上显示弹出框，等等。这是我收集的代码

Private Sub Worksheet_change(ByVal Target As Range)

If Target.Address = "$N$7" Then

    MsgBox "If Date Entered In Attempt 3 -Send Text Message Chaser Email" & VBA.vbCrLf & "If Date deleted from Attempt 3 ignore this message" & Target, vbOKOnly, "Warning"


End If


End Sub

提前感谢您的帮助

JD

使用该方法

这不会检查更改的单元格的值，您可能还需要检查是否更改了多个单元格

Private Sub Worksheet_change(ByVal Target As Range)

If Not Intersect(Target, Range("N7:N51")) Is Nothing Then
    MsgBox "If Date Entered In Attempt 3 -Send Text Message Chaser Email" & VBA.vbCrLf & "If Date deleted from Attempt 3 ignore this message" & Target, vbOKOnly, "Warning"
End If

End Sub

---

非常感谢，这很有魅力，正是我想要的。谢谢您。