Всплывающее окно Excel, когда значение ячейки меняется на да

Question

Добрый вечер,

Мне интересно, как заставить этот код работать на диапазоне ячеек от N7 до N51?

Всплывающее окно работает отлично, но только в указанной ячейке N7 мне нужно, чтобы это работало на каждой ячейке от N7 до N51, чтобы при изменении значения каждой ячейки появлялось всплывающее окно. Таким образом, если изменить ячейку N8, появится окно и так далее. Причина этого не в том, что каждая ячейка изменится, и мне просто нужно всплывающее окно, чтобы появиться в ячейках, которые меняются и т. Д. c. Вот код, который мне удалось собрать.

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