[已解决]select case 用法的问题

murphys1989

select case name
case name 是“杨过”或“小龙女”
msgbox 1
case name 是“郭靖”或“黄蓉”
msgbox 2
end select

case 条件怎么写？

最佳答案

月排行榜 / 总排行榜

grf1973

2016-11-22 10:11

1. Sub tt()
   
2.     namecase = InputBox("请输入姓名")
   
3.     Select Case namecase
   
4.         Case Is = "杨过", "小龙女"
   
5.             MsgBox 1
   
6.         Case Is = "郭靖", "黄蓉"
   
7.             MsgBox 2
   
8.     End Select
   
9. End Sub

复制代码

跳转到最佳答案楼层

grf1973

1. Sub tt()
   
2.     namecase = InputBox("请输入姓名")
   
3.     Select Case namecase
   
4.         Case Is = "杨过", "小龙女"
   
5.             MsgBox 1
   
6.         Case Is = "郭靖", "黄蓉"
   
7.             MsgBox 2
   
8.     End Select
   
9. End Sub

复制代码

望帝春心

1. Sub test()
   
2.     Dim name$
   
3.     name = [a1].Value
   
4.     Select Case name
   
5.     Case Is = "杨过", "小龙女"
   
6.         MsgBox 1
   
7.     Case Is = "郭靖", "黄蓉"
   
8.         MsgBox 2
   
9.     End Select
   
10. End Sub

复制代码

Zipall

这个直接看帮助不就解决了?
以下内容来自excel2010的vba帮助文件

1. 可以在每个 Case 子句中使用多重表达式或使用范围，例如，下面的语句是正确的：
   
2. 
   
3. Case 1 To 4, 7 To 9, 11, 13, Is > MaxNumber
   
4. 
   
5. 注意 Is 比较运算符和使用在 Select Case 语句中的 Is 关键字并不相同。
   
6. 
   
7. 也可以针对字符串指定范围和多重表达式。在下面的例子中，Case 所匹配的字符串为：等于 everything、按英文字母顺序落入从 nuts 到 soup 之间的字符串、以及 TestItem 所代表的当前值。
   
8. 
   
9. Case "everything", "nuts" To "soup", TestItem
   

复制代码