vba语句select case End Select

一、Select Case语法及参数介绍

Select Case testexpression

[Case expressionlist-n

[statements-n]] ...

[Case Else

[elsestatements]]

End Select

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 子句的任何部分时执行。

如果 testexpression 匹配某个 Case expressionlist 表达式, 则在 Case 子句之后,直到下一个 Case 子句的 statements 会被执行;如果是最后一个子句,则会执行到 End Select。然后控制权会转移到 End Select 之后的语句。如果 testexpression 匹配一个以上的 Case 子句中的 expressionlist 表达式,则只有第一个匹配后面的语句会被执行。

Case Else 子句用于指明 elsestatements,当 testexpression 和所有的 Case 子句中的 expressionlist 都不匹配时,则会执行这些语句。虽然不是必要的,但是在 Select Case 区块中,最好还是加上 Case Else 语句来处理不可预见的 testexpression 值。如果没有 Case expressionlist 匹配 testexpression,而且也没有 Case Else 语句,则程序会从 End Select 之后的语句继续执行。

二、Select Case的例子

①单元格范围B1:B5内,单元格的值=1→红色,=2→黄色,=3→水色,=以外→绿色

Dim myRng As Range

Dim c As Range

Dim myColorAsInteger

Set myRng = Range("B1:B5")

For Each c In myRng

Select Case c.Value

Case 1

myColor = 3 '红

Case 2

myColor = 6 '黄

Case 3

myColor = 8 '水色

Case Else

myColor = 10 '?

End Select

c.Interior.ColorIndex = myColor

Next c

②单元格范围B1:B5内,单元格的值<10→红色,<20→黄色,<30→水色,以外→绿色

Dim myRng As Range

Dim c As Range

Dim myColor As Integer

Set myRng = Range("B1:B5")

For Each c In myRng

Select Case c.Value

Case Is < 10

myColor = 3 '红

Case Is < 20

myColor = 6 '黄

Case Is < 30

myColor = 8 '水色

Case Else

myColor = 10 '?

End Select

c.Interior.ColorIndex = myColor

Next c

(0)

相关推荐

  • VB的Select Case 判断语句如何使用

    Select Case 是一种多分支判断语句,在程序中极其常用,今天我们来看看如何使用他. 操作方法 01 利用Inputbox输入一个数. 02 输入Select Case判断语句的框架. 03 输 ...

  • Excel利用Select Case评判成绩等级优秀.良好.及格.不及格等

    首先看看Select Case的语法如下。 [Select Case语句的语法] Select Case 测试表达式 Case 条件表达式1 语句块1 Case 条件表达式2 语句块2 Case 条件 ...

  • oracle中case when的用法[oracle技術]

    操作方法 01 在oracle数据库开发中需要用到各种各样的sql函数和语句来提高自己的开发效率.今天介绍下case when的用法. 02 case when 有两种用法,一种是case后面有表达式 ...

  • sql语句中,select语句的用法

    数据库大家知道概念,存放数据的地方嘛. 但要查看数据怎么办法,特别是当一个表中有上千万条数据时,我想找出我想要的数据怎么办?这是大数据分析的一些基本操作.下面就给大家讲讲select语,常用的几种方式 ...

  • excel怎么使用vba制作个人所得税计算器?

    excel中使用vba制作个人所得税计算器 1.首先我们打开一个工作样表作为例子. 2.打开vba编辑窗口,使用alt+f11组合快捷键,或是使用开发者工具标签下的vb快捷按钮.并插入一个新的模块. ...

  • excel通过数据模板与vba批量制作csv数据表

    通过数据模板与VBA结合,批量制作CSV数据表,要求使用规则逐步递增的命名方式来命名批量制作出来的数据表,数据表的内容根据实际需求由最初的模板和提供的基础值自动生成。尽量减少手动操作,真正实现全自动! ...

  • Word自定义右键菜单的VBA代码示例

    本Word的VBA代码的功能简介:在右键文本菜单的中部位置(相当于右击文本时出现的菜单),添加一个自定义命令,并执行相应过程。 Private Sub Document_Close() On Erro ...

  • SQL语句大全(常用的SQL语句)

    SQL语句大全(常用的SQL语句)

  • sql语句as关键字的使用.

    as是别名关键字. 一般我们是这么使用. select 字段 as 别名 select 字段 别名 select 别名=字段 在sqlserver中这三种显示结果都是一模一样的. 但是我们不推荐后两种 ...