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 入门（十）用户窗体开发