Excel VBA入门（三） 流程控制1－条件选择
VBA中的流程控制分为两种，其一是条件结构式的，即根据条件判断的结果去选择性执行相应的语句（块）；另一种是循环，即循环地执行语句（块）。本节介绍第一种。
1. IF
if 语句其实包含有几种形式：
① If...Then...End If
其格式为：
If 逻辑表达式 Then
' 如果逻辑表达式为真，则执行这里的语句
End if
例如：
If 8 > 5 Then
Debug.Print "Yes"
End If
输出结果为：Yes
② If...Then...Else...End If
其格式为：
If 逻辑表达式 Then
' 如果逻辑表达式为真，则执行这里的语句
Else
' 否则（即逻辑表达式为假），则执行这里的语句
End If
例如：
If 8 < 5 Then
Debug.Print "Yes"
Else
Debug.Print "No"
End If
输出结果为：No
③ If...Then...ElseIf...Then...End If
与第①种类似，只是它多了一层判断。当然，这种ElseIf是可以多层嵌套的。
其格式为：
If 逻辑表达式1 Then
' 逻辑表达式1为真，则执行这里的语句
ElseIf 逻辑表达式2 Then
' 逻辑表达式2为真，则执行这里的语句
Else
' 逻辑表达式1和2都返回了假，则执行这里的语句
End If
例如：
If 20 > 30 Then
Debug.Print "Not Right"
ElseIf 20 < 30 Then
Debug.Print "Right"
End If
输出结果为：Right
2. Select Case
Select Case语句在功能与If语句非常相似，只是组织形式略有不同。它有2种形式
① 不带Else的Select Case
格式为：
Select Case 测试表达式
Case 表达式1
' 如果测试表达式等于表达式1，则执行这里的语句
Case 表达式2
' 如果测试表达式等于表达式2，则执行这里的语句
Case 表达式3
' 如果测试表达式等于表达式3，则执行这里的语句
' 后面可以有更多的Case
End Select
例如常见的判断成绩等级的过程，可以用Select Case进行判断：
Sub test()
Dim score As Integer
score = 94
Select Case score
Case Is >= 90
Debug.Print "优"
Case Is >= 80
Debug.Print "良"
Case Is >= 60
Debug.Print "中"
Case Is < 60
Debug.Print "差"
End Select
End Sub
此处有2点需要说明的，其一是上例与前面讲的格式相比，在“Case 表达式” 中间有个Is。这个是用于表达式判断时候用的格式，这样才能够起到类似于If...Else的作用。上例中如果直接用Case 90的格式，则只会当score等于90的时候，才会输出“优”，起不到范围判断的作用。在使用的时候，需要根据实际情况按需选择。第二点是，在如上例中那样进行不同范围内的判断时，顺序很重要，如果把上例中的顺序倒过来，则程序会输出“中”，因为score=94时，Case Is >= 60这条语句成立，后面的就不会再执行了。
② 带Else的Select Case
其实就是类似于If语句中的Else一样，当前面的所有情况都不符合时，就执行Else里面的语句。如上例中最后的Case Is < 60就可以改为Case Else：
Sub test2()
Dim score As Integer
score = 53
Select Case score
Case Is >= 90
Debug.Print "优"
Case Is >= 80
Debug.Print "良"
Case Is >= 60
Debug.Print "中"
Case Else
Debug.Print "差"
End Select
End Sub
** Select Case 番外篇 **
如果需要在Case条件中使用闭合区间，即同时出现大于且小于的情况，如上例中，大于60且小于70。则需要使用两个Is语句，中间用逗号隔开：
Sub test2()
Dim score As Integer
score = 53
Select Case score
Case Is >= 90
Debug.Print "优"
Case Is >= 80
Debug.Print "良"
Case Is >= 60, Is <= 70
Debug.Print "中"
Case Else
Debug.Print "差"
End Select
End Sub
本系列教程其它文章
Excel VBA 入门（零）
Excel VBA 入门（一）数据类型
Excel VBA 入门（二）数组和字典
Excel VBA 入门（三） 流程控制1－条件选择
Excel VBA 入门（四）流程控制2－循环控制
Excel VBA 入门（五）Excel对象操作
Excel VBA 入门（六）过程和函数
Excel VBA 入门（七）注释、宏按钮及错误处理
Excel VBA 入门（八）单元格边框
Excel VBA 入门（九）操作工作薄
Excel VBA 入门（十）用户窗体开发
最新文章
- 《Linux及安全》实践3.3
- 完美且精准的 IE10- 版本检测。
- haskell中的do
- Keepalived+tomcat的HA配置
- 导出EXCEL【Web方式HTML通过拼接html中table】
- Java 中的构造方法
- 蒙牛乳业六厂—第一家MES工厂
- Promises与Javascript异步编程
- 改ucosii的中断禁止和恢复代码,这是一个荒谬的错误【 mrs msr】
- 理解Windows内核模式与用户模式
- Checking the Calendar
- Smarty模板的基础
- [IB]PeopleSoft异步详细信息中状态“已完成”但订阅合同状态“新建”问题
- 文件I/O实践(3) --文件共享与fcntl
- Apache web服务器(LAMP架构)（week3_day4）--技术流ken
- django 模型操作
- 有趣的electron(一)
- Java基础93 JDBC连接MySQL数据库
- nodejs 爬虫模板 map&array 数据模型
- break、continue、pass介绍