当单元格值变为 "是 "时，Excel会弹出一个框。

Question

晚上好

我想知道如何让这段代码在从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

Answer 1

使用 交叉 方法，但这并不检查被更改的单元格的值，你可能还想检查是否有多个单元格被更改。

这并不检查被更改的单元格的值，你可能还想检查是否有多个单元格被更改。

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