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入门（九）操作工作薄

转载于:https://www.cnblogs.com/wuzhiblog/p/vba_three.html