说说VBA中的SelectCase语句.docxVIP

说说 VBA 中的  Select Case语句 vbaifselectcase 条件语句学习讲解说明 it 分类： IT Select Case语句也是条件语句之一， 而且是功能最强大的条件语句。 而且其条件设置灵活、方便，在工作中使用频率极高。本节介绍 应用案例．  它主要用于多条件判断， Select Case 语句的语法及 Select Case语句的语法如下： Select Case testexpression [Case expressionlist-n [statements-n]] ... [Case Else [elsestatements]] End Select Select Case语句包括四部分，每部分详细含义如表  38-1 所示。 表 38-1 Select Case语句各部分含义部 分 描 述 testexpression 必要参数。任何数值表达式或字符串表达式 expressionlist-n 如果有 Case 出现，则为必要参数。其形式为 expression， expression To expression， Is comparisonoperator 。expression 的一个或多个组成的分界列表。 To 关键字可用来指定一个 数值范围。如果使用 To 关键字，则较小的数值要出现在 To 之前。使用 Is 关键字时，则 可以配合比较运算符（除 Is 和 Like 之外）来指定一个数值范围。如果没有提供，则 Is 关 键字会被自动插入 statements-n 可选参数。一条或多条语句，当 testexpression 匹配 expressionlist-n 中的任何部分时执行 elsestatements 可选参数。一条或多条语句，当 testexpression 不匹配 Case子句的任何部分时执行 在以上语法列表中，省略号代表可以使用多个条件。只要有一个 Case 就需要有一个 statements-n ，表示条件及符合条件时的执行条件。 其 中 elsestatements 表 示 不 符 合 指 定 条 件 时 的 执 行 语 句 ， 是 可 选 参 数 。 可 以 忽 略 elsestatements ，也可以执行一条或者一组语句， 为了让程序能够处理一些不可预见的情况， 尽量使用 elsestatements 语句处理不符合条件时该如何回应。 在 Select Case的多个参数中，最复杂的是  expressionlist-n  部分，它有多种表达形式，包括： lExpression——直接声明一个条件值，例如 5 lexpression To expression——声明一个条件的范围，例如  5-10 lIs comparisonoperator ——声明一种比较方式，例如 is 5 下面的实例可以展示参数中 expressionlist-n 部分的多种表达形式。 实例 1：多条件时间判断 根据当前的时间判断是上午、中午，还是下午、晚上、午夜。 要求中条件比较多， 使 IF, Then, 需要多层嵌套， 而 Select Case语句会更简单。 代码如下： ___________________________________________________ Sub 时间 () Dim Tim As Byte, msg As String Tim = Hour(Now) Select Case Tim Case 1 To 11 msg = 上午 Case 12 msg = 中午 Case 13 To 16 msg = 下午 Case 17 To 20 msg = 晚上 Case 23, 24 msg = 午夜 End Select MsgBox 现在是： msg End Sub __________________________________________ 以上代码中， “ Case 1 To 11”表示当前时间在 1 点到 11 点，用于限定一个范围； “ Case 12” 是表示当前时间为 12 点时返回 True，可用于限制一个具体的值，或者多个值。如果需要罗 列多个具体的值，那么需要在每个值之间使用逗号分隔，例如“ Case 23, 24”。本例中不存在例外的情况，所以忽略“ Case Else”语句。实例 2：根据成绩返回评语 如果成绩小于 60 则返回“不及格” ，60 到 80 之间则返回“良” ，80 到 99 则返回“优”，100 分则返回“满分” ，如果成绩大于 100 则是输入了错误值。利用一个 Function 过程来处理， 其代码如下： _____________________________