VBA Select Case 语句：用于字符串判断的强大工具

VBA 中的 Select Case 语句可以用来对字符串进行判断，其基本语法如下：

Select Case 字符串表达式
    Case '字符串1'
        '执行代码1'
    Case '字符串2'
        '执行代码2'
    Case Else
        '执行代码3'
End Select

其中，字符串表达式是需要判断的字符串变量或表达式，Case 语句后面跟随需要匹配的字符串值，可以有多个 Case 语句，如果所有的 Case 都不匹配，则执行 Else 语句中的代码。

下面是一个示例代码，演示如何使用 Select Case 语句对字符串进行判断：

Sub SelectCaseDemo()
    Dim fruit As String
    fruit = 'apple'

    Select Case fruit
        Case 'apple'
            MsgBox '这是苹果！'
        Case 'banana'
            MsgBox '这是香蕉！'
        Case 'orange'
            MsgBox '这是橙子！'
        Case Else
            MsgBox '这不是水果！'
    End Select
End Sub

在上面的代码中，我们定义了一个字符串变量 fruit，并使用 Select Case 语句对其进行判断。如果 fruit 的值为 'apple'，则执行第一个 Case 语句中的代码，弹出一个提示框，显示 '这是苹果！'，如果 fruit 的值为 'banana'，则执行第二个 Case 语句中的代码，弹出一个提示框，显示 '这是香蕉！'，如果 fruit 的值为 'orange'，则执行第三个 Case 语句中的代码，弹出一个提示框，显示 '这是橙子！'，如果 fruit 的值不是 'apple'、'banana' 或 'orange' 中的任何一个，则执行 Else 语句中的代码，弹出一个提示框，显示 '这不是水果！'。