Excel 下拉框，然后是消息提示

:

我在一个包含单元格的下拉框中有5个值

C7:AD18

，其思想是当用户选择其中一个用户时，例如选择值1，Msgbox将弹出

“感谢选择值1”

我遇到的问题是，我能做到这一点的唯一方法是为每个单元格设置编程：

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C7")) Is Nothing Then
   Select Case Range("C7")
      Case "Value1": Macro1
      Case "Value2": Macro2
      Case "Value3": Macro3
      Case "Value4": Macro4
      Case "Value5": Macro5
   End Select
End IF
End Sub

---

然后，我不得不为

C8、C9、C10等添加一个条目，我尝试使用
“C7:AD18”
的一个范围，但我根本无法让它工作，它一直在返回调试。
可能是下面的内容，它使用
Intersect
测试
目标是否在该范围内

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge <> 1 Then Exit Sub

    If Not Intersect(Target, Me.Range("C7:AD18")) Is Nothing Then
        Select Case Target.Value
            Case "Value1": Macro1
            Case "Value2": Macro2
            Case "Value3": Macro3
            Case "Value4": Macro4
            Case "Value5": Macro5
       End Select
    End If
End Sub

Private子工作表\u更改（ByVal目标作为范围）
如果Target.CountLarge 1，则退出Sub
如果不相交（目标，Me.Range（“C7:AD18”））则为零
选择Case Target.Value
案例“Value1”：宏1
案例“Value2”：宏2
案例“Value3”：Macro3
案例“Value4”：宏4
案例“Value5”：宏5
结束选择
如果结束
端接头
可能是以下内容，使用
Intersect
测试
目标是否在该范围内

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge <> 1 Then Exit Sub

    If Not Intersect(Target, Me.Range("C7:AD18")) Is Nothing Then
        Select Case Target.Value
            Case "Value1": Macro1
            Case "Value2": Macro2
            Case "Value3": Macro3
            Case "Value4": Macro4
            Case "Value5": Macro5
       End Select
    End If
End Sub

Private子工作表\u更改（ByVal目标作为范围）
如果Target.CountLarge 1，则退出Sub
如果不相交（目标，Me.Range（“C7:AD18”））则为零
选择Case Target.Value
案例“Value1”：宏1
案例“Value2”：宏2
案例“Value3”：Macro3
案例“Value4”：宏4
案例“Value5”：宏5
结束选择
如果结束
端接头
先生，你是一个目光冷酷的导弹兵！谢谢你，这对我来说是一种新的恭维。很高兴能帮上忙。先生，你是一个目光冷酷的导弹兵！谢谢你，这对我来说是一种新的恭维。很乐意帮忙。