资源预览内容
第1页 / 共3页
第2页 / 共3页
第3页 / 共3页
亲,该文档总共3页全部预览完了,如果喜欢就下载吧!
资源描述
Excel VBA编程 Select Case语句Excel VBA编程 Select Case语句 该语句的结构为选择程序结构,它根据表达式的值,来判断执行几组语句中的其中哪一个语句。虽然前面介绍的IFThenElse结构比较简单,但是当添加太多的Else if子句时,会使代码变得繁琐。 Select Case是IFThenElse结构的一种变通形式,可使代码变得简练易读。但是,并不是所有的多分支结构均可用Select Case语句代替If语句。 语法: Select Case testexpression Case expressionlist-n statements-n . Case Else elsestatements End Select Select Case语句的语法具有以下几个部分: l l testexpression 必要参数。任何数值表达式或字符串表达式。 expressionlist-n 如果有Case出现,则为必要参数。其形式为expression,expression To expression,Is comparisonoperator expression的一个或多个组成的分界列表。To关键字可用来指定一个数值范围。如果使用To关键字,则较小的数值要出现在To之前。使用Is关键字时,则可以配合比较运算符来指定一个数值范围。如果没有提供,则Is关键字会被自动插入。 l l statements-n 可选参数。一条或多条语句,当testexpression匹配expressionlist-n中的任何部分时执行。 elsestatements 可选参数。一条或多条语句,当testexpression不匹配Case子句的任何部分时执行。 下面的示例使用Select 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 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语句的使用过程中,应注意以下几点内容: l 如果testexpression与任何Case expressionlis 表达式匹配,则执行此Case子句和下一个Case子句之间的语句,对于最后的子句,则会执行该子句到End Select之间的语句,然后控制权会转到End Select之后的语句。如testexpression与多个Case子句中的expressionlist表达式匹配,则只有第一个匹配后的语句被执行。 l Case Else 用于指示若在testexpression和任何其他Case选项的expressionlist之间未找到匹配,则执行elsestatements。虽然不是必要的,但最好是将Case Else语句置于Select Case块中以处理不可预见的testexpression值。如果没有Case expressionlist与testexpression匹配且无Case Else语句,则继续执行End Select之后的语句。 l Select Case语句可以是嵌套的,每一层嵌套的Select Case语句必须有与之匹配的End Select语句。
网站客服QQ:2055934822
金锄头文库版权所有
经营许可证:蜀ICP备13022795号 | 川公网安备 51140202000112号