5、VBA编程：字符串、函数与消息框的运用

VBA编程：字符串、函数与消息框的运用

1. 决策语句：Select Case

Select Case语句能让代码更加简洁。以下是一个示例：

x = 23
Select Case (x)
    Case (1)
        MsgBox "x=1"
    Case (23)
        MsgBox "x=23"
End Select

在这个例子中， Select Case (x) 定义了要检查的变量为 x 。 Case (1) 表示当 x 的值为 1 时，弹出显示 “x=1” 的消息框； Case (23) 则表示当 x 的值为 23 时，弹出显示 “x=23” 的消息框。由于代码开始时 x 被设置为 23，所以最终会弹出显示 “x=23” 的消息框。

此外， Case 语句中还可以包含 To 和 Is 语句，示例如下：

Sub Test_Case (Grade)
    Select Case Grade
        Case 1
            Msgbox "Grade 1"
        Case 2, 3
            Msgbox "Grade 2 or 3"