VBA编程中的SelectCase语句

从上面的例子可以看出，如果条件比较复杂，分支太多，使用If语句会比较繁琐，程序会变得难以阅读。Select Case语句可以用来编写结构清晰的程序。

Select case语句可以根据表达式的求值结果选择执行几个分支中的一个。语法如下:

SELECT CASE
[(；ase]
[]]
[case Else
[]]
End Select

(1)测试表达式的必要参数可以是任何数值表达式或字符串表达式。

(2)如果case出现在比较列表1中，则是必要参数。它是比较元素的列表，可以包括表达式、表达式到表达式以及Is表达式。

如果“比较元素”包含“To”关键字，则前一个表达式必须小于后一个表达式(对于数值表达式，是指数值大小；对于字符串表达式，是指排序)，而且必须在两个表达式之间。如果包含关键字“Is”，则“比较运算符”表达式的值必须为true。

(3)语句1 ~ n可以包含一个或多个语句。
如果有多个Case子句匹配“检查表达式”，VBA只在第一个匹配的Case之后执行“语句”。如果前面的case子句和不匹配，则执行Case Else子句中的语句n。