VBA中CASE语句可以同时选择多个变量一起判断吗?

c-末利-

比如:Select Case 变量1,变量2
^^^

horse0918

应该不行，你可以这样实现。
先用IF判断，，然后结果赋值于条件CONDIF，然后selectcasecondif

yjh_27

这个不行。无此种用法。

你是要求各变量同时满足条件、还是满足其一？？还是其他？？

c-末利-

yjh_27 发表于 2015-8-10 20:28
这个不行。无此种用法。

你是要求各变量同时满足条件、还是满足其一？？还是其他？？

变量名不一样.判断条件是一样的.就是不想把代码写太杂乱了!

zhaogang1960

非标准形式：

1. Dim 变量1&, 变量2&
   
2. 变量1 = 1
   
3. 变量2 = 2
   
4. Select Case True
   
5.     Case 变量1 = 1 And 变量2 = 2
   
6.         MsgBox 1
   
7.     Case Else    ' 其他数值。
   
8.         MsgBox 2
   
9. End Select
   

复制代码

huang1314wei

楼上方法可行

百度不到去谷歌

条件一样 执行结果也一样
用一个for循环 多个变量先放入数组中
for each e in arr
    select case e      执行语句 e
    case。。。
next

香川群子

楼主这样的情况，就不要纠结于使用Select Case 方法了。

用If……ElseIf……结构就OK了。逻辑清晰，结构简明。

oyzhjr

可以用的，有CASE 2   to  3

oyzhjr

代码如下：

Sub aa()
Dim js_a As Integer
For js_a = 1 To 20 Step 2
    Select Case js_a
        Case 1 To 5
            Debug.Print "1 to 5"
        Case 6 To 10, 16 To 20
            Debug.Print "6 to 10 , 16 to 20"
        Case 11 To 15
            Debug.Print "11 to 15"
    End Select
Next
End Sub


结果如下：

1 to 5
1 to 5
1 to 5
6 to 10 , 16 to 20
6 to 10 , 16 to 20
11 to 15
11 to 15
11 to 15
6 to 10 , 16 to 20
6 to 10 , 16 to 20