Всплывающее окно сообщения при изменении значения ячейки

Question

У меня есть лист Excel, где столбец имеет проверку списка.

Когда выбрана конкретная запись из списка, мне нужно всплывающее окно с сообщением.

Я мог бы использовать следующий код, если бы была только 1 ячейка, но в моем случае у меня было много ячеек в столбце

Private Sub Worksheet_Change(ByVal Target As Excel.Range)    
    Dim rng As Range
       Set rng = Range("A1")
       If Not Intersect(Target, rng) Is Nothing Then
           If rng = "hi" Then
               MsgBox "Cell " & _
               rng.Address & " = hi"
           End If
       End If
       Set rng = Nothing
End Sub

Пожалуйста, помогите

Answer 1

проверить значение свойства Target.Column ....

Предположим, что вы хотите проверить столбец D (числовое значение 4), вы делаете

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 4 ' examine column D
    ' code to validate Target
        If Target = "xxx" Then MsgBox "You chose xxx from the list"
    End If
End Sub

Удачи MikeD