比如:Select Case 变量1,变量2
^^^
如果是与的关系
嵌套判断，优先级高的放外层!
Select Case 变量1Case xxx
Select Case 变量2
Case xxx
Func
End Select
End Select
如果是或的关系
放Else里
Select Case 变量1Case xxx
Func
Case Else
Select Case 变量2
Case xxx
Func
End Select
End Select
函数就可以
温馨提示：答案为网友推荐，仅供参考
第1个回答 推荐于2017-09-13
新可以的, 我给你发下这个的具体用法你看下就明白了
本示例使用 Select Case 语句来判断变量的值。示例中第二个 Case
子句包含了变量值，故只有此区块内的语句会被完成到。
Dim Number
Number = 8 ' 设置变量初值。
Select Case Number ' 判断 Number 的值。
Case 1 To 5 ' Number 的值在 1 到 5 之间，包含1 和 5 。
Debug.Print "Between 1 and 5"
' 下一个 Case 子句是本示例中唯一判断值为 True 的子句。
Case 6, 7, 8 ' Number 的值在 6 到 8 之间。
Debug.Print "Between 6 and 8"
Case 9 到 10 ' Number 的值为 9 或 10。
Debug.Print "Greater than 8"
Case Else ' 其他数值。
Debug.Print "Not between 1 and 10"
End Select本回答被提问者采纳
本示例使用 Select Case 语句来判断变量的值。示例中第二个 Case
子句包含了变量值，故只有此区块内的语句会被完成到。
Dim Number
Number = 8 ' 设置变量初值。
Select Case Number ' 判断 Number 的值。
Case 1 To 5 ' Number 的值在 1 到 5 之间，包含1 和 5 。
Debug.Print "Between 1 and 5"
' 下一个 Case 子句是本示例中唯一判断值为 True 的子句。
Case 6, 7, 8 ' Number 的值在 6 到 8 之间。
Debug.Print "Between 6 and 8"
Case 9 到 10 ' Number 的值为 9 或 10。
Debug.Print "Greater than 8"
Case Else ' 其他数值。
Debug.Print "Not between 1 and 10"
End Select本回答被提问者采纳
