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

posted @ 2017-11-05 19:13  东围居士  阅读(15671)  评论(0编辑  收藏  举报