VBA切换语句

VBA中的切换语句用于执行不同的代码块，根据不同的条件或情况来决定运行哪一段代码。这里我们主要介绍Select Case语句。

Select Case语句

Select Case语句可以替代多个嵌套If Then语句，使用起来更加简洁明了。语法如下：

Select Case 表达式
    Case 值1
        '执行代码块1
    Case 值2
        '执行代码块2
    Case Else
        '执行默认代码块
End Select

其中，表达式是需要比较的值，值1、值2等是比较的目标值。执行的顺序是从上往下匹配，直到找到匹配的值为止，然后执行对应的代码块，如果都没有匹配成功，则执行Case Else后的代码块。

下面是一个示例代码：

Sub SelectCaseExample()
    Dim score As Integer
    score = 92
    Select Case score
        Case Is >= 90
            MsgBox "优秀"
        Case 80 To 89
            MsgBox "良好"
        Case 70 To 79
            MsgBox "中等"
        Case 60 To 69
            MsgBox "及格"
        Case Else
            MsgBox "不及格"
    End Select
End Sub

以上代码中，根据分数的不同，执行不同的提示信息。运行结果如下图所示：

总结

Select Case语句在处理多重条件判断时很有用。相比于嵌套的If Then语句，它可以使代码更加简洁明了，同时能够提高代码的可读性。在编写复杂的VBA程序时，Select Case语句也是必不可少的一部分。