说说VBA中的Select Case语句.pdf

说说VBA中的SelectCase语句

vbaifselectcase条件语句学习讲解说明it分类：IT

SelectCase语句也是条件语句之一，而且是功能最强大的条件语句。它主要用于多条件判断，

而且其条件设置灵活、方便，在工作中使用频率极高。本节介绍SelectCase语句的语法及

应用案例．

SelectCase语句的语法如下：

SelectCasetestexpression

[Caseexpressionlist-n

[statements-n]]...

[CaseElse

[elsestatements]]

EndSelect

SelectCase语句包括四部分，每部分详细含义如表38-1所示。

表38-1SelectCase语句各部分含义

部分

描述

testexpression

必要参数。任何数值表达式或字符串表达式

expressionlist-n

如果有Case出现，则为必要参数。其形式为expression，expressionToexpression，Is

comparisonoperator。expression的一个或多个组成的分界列表。To关键字可用来指定一个

数值范围。如果使用To关键字，则较小的数值要出现在To之前。使用Is关键字时，则

可以配合比较运算符（除Is和Like之外）来指定一个数值范围。如果没有提供，则Is关

键字会被自动插入

statements-n

可选参数。一条或多条语句，当testexpression匹配expressionlist-n中的任何部分时执行

elsestatements

可选参数。一条或多条语句，当testexpression不匹配Case子句的任何部分时执行

在以上语法列表中，省略号代表可以使用多个条件。只要有一个Case就需要有一个

statements-n，表示条件及符合条件时的执行条件。

其中elsestatements表示不符合指定条件时的执行语句，是可选参数。可以忽略

elsestatements，也可以执行一条或者一组语句，为了让程序能够处理一些不可预见的情况，

尽量使用elsestatements语句处理不符合条件时该如何回应。

在SelectCase的多个参数中，最复杂的是expressionlist-n部分，它有多种表达形式，包括：

lExpression——直接声明一个条件值，例如5

lexpressionToexpression——声明一个条件的范围，例如5-10

lIscomparisonoperator——声明一种比较方式，例如is5

下面的实例可以展示参数中expressionlist-n部分的多种表达形式。

实例1：多条件时间判断

根据当前的时间判断是上午、中午，还是下午、晚上、午夜。

要求中条件比较多，使IF„Then„需要多层嵌套，而SelectCase语句会更简单。代码如下：

___________________________________________________

Sub时间()

DimTimAsByte,msgAsString

Tim=Hour(Now)

SelectCaseTim

Case1To11

msg=上午

Case12

msg=中午

Case13To16

msg=下午

Case17To20

msg=晚上

Case23,24

msg=午夜

EndSelect

MsgBox现在是：msg

EndSub

__________________________________________

以上代码中，“Case1To11”表示当前时间在1点到11点，用于限定一个范围；“Case12”

是表示当前时间为12点时返回True，可用于限制一个具体的值，或者多个值。如果需要罗

列多个具体的值，那么需要在每个值之间使用逗号分隔，例如“Case23,24”。

本例中不存在例外的情况，所以忽略“CaseElse”语句。

实例2：根据成绩返回评语

如果成绩小于60则返