更改單元格值時彈出一個消息框

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