如何使用VBA单击表中列表中的下拉元素

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim DropDownList As Range
    Dim Cell As Range

    ' 定义下拉列表的范围，这里假设下拉列表在A1到A10单元格中
    Set DropDownList = Range("A1:A10")

    ' 检查更改是否发生在下拉列表范围内
    If Not Application.Intersect(Target, DropDownList) Is Nothing Then
        ' 循环遍历下拉列表中的每个单元格
        For Each Cell In DropDownList
            ' 检查目标单元格是否等于下拉列表中的某个元素
            If Cell.Value = Target.Value Then
                ' 在这里编写处理逻辑，根据选择的元素执行相应的操作
                ' 例如，可以调用其他函数或者触发其他事件
                ' 可以使用MsgBox函数显示选择的元素
                MsgBox "你选择了 " & Cell.Value
                Exit For ' 退出循环，不再继续遍历下拉列表
            End If
        Next Cell
    End If
End Sub