No.1

选择执行是一个很好的条件语句，当有多个可选项目分支结构的时候，使用一种最佳的选择方法，就显得十分重要。

由于选择对象不同，要进行处理的代码有所差异，所以在此基础上，就要很精准地选择出相应的分支去执行。

本节主要介绍一下Select Case语句

No.2

下面是Select Case语法

经常使用Select Case语句，会发现其实它的便捷性还是很友好的。

Select Case 表达式
Case 值
Else Case
End Select

最基本的使用方法如上表示，具体示例看一下怎么使用。

下图为示例，对列表框内值进行判断，如果符合某些条件就输出提示。

No.3

代码：

Dim x, xStr
xStr = Me.ComboBox1.Value
x = VBA.Val(xStr)
Select Case x
    Case 1 To 5, Is > 99
        MsgBox x & Chr(10) & "是1-5之间，或大于99的值 "
    Case 21 To 80
        MsgBox x & Chr(10) & "是21到80之间的值"
    Case Else
        MsgBox xStr & Chr(10) & "不是合法数值"
End Select

演示效果如下图：

如果列表框内的值不是数值提示：

代码分析

变量x存储列表框值。

Case 1 To 5,Is >99

这行表示如果变量x的值为1到5之间，或者x值大于99，那么就执行之后的语句。

Case 21 to 80

表示如果X的值是21到80之间，就执行下面的语句。

Case Else

表示上面的条件都不为真，就执行之后的语句。

End Select

表示Select Case条件语句结束。

重点掌握了其应用的语句规则，就得心应手了。

这里有两个关键字要学习一下，Is和To。

Is表示确定的意思，如Is>99，表示变量值大于99。

To表示，从...到...，如1 to 5,表示从1到5之间的每个数值分别和变量X进行比较。

Select Case语句可以理解为，如果条件1成立就执行条件1下面的语句，如果条件2成立就执行条件2下面的语句，如果所有条件都不成立就执行Case Else下面的语句，且Case Else可以省略。

如下语句：

Select Case 表达式
Case 条件1
语句1
Case 条件2
语句2
Case Else 
其它语句
End Select

其实学习这个语句是有一点难度的，因为我们的思维方式和西方式有些不同，所以在进行逻辑流程的时候，可能会忽略掉一些内容，所以在实际应用的时候，还是要多加斟酌。

欢迎关注、收藏

---END---