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

更改单元格值时弹出消息框

1 个答案: