Excel VBA：判断语句——Select Case

在Excel VBA中，使用Select Case语句可以根据表达式的值来决定执行语句中的其中一个。这种判断语句可以用来处理单条件或多条件的情况。

单条件判断

首先，在VBE（Visual Basic Editor）中编写以下代码：

Sub select单条件()
    i  1
    Select Case i
        Case Is > 0
             ("i大于0")
        Case i < 0
             ("i小于0")
        Case i  0
             ("i等于0")
    End Select
End Sub

然后执行代码，得到运行结果。在Excel界面中，我们可以看到如下功能：通过输入血型，来判断结果。

多条件判断

接下来，在VBE中编写以下代码：

Sub select多条件()
    Dim blood As String
    Dim res As String
    blood  Sheet1.[a13].Value
    Select Case blood
        Case "A"
             ("为A型血")
            Sheet1.[b13].Value  "为A型血"
        Case "B"
             ("为B型血")
            Sheet1.[b13].Value  "为B型血"
        Case "O"
             ("为O型血")
            Sheet1.[b13].Value  "为O型血"
        Case "AB"
             ("为AB型血")
            Sheet1.[b13].Value  "为AB型血"
        Case Else
             ("不存在该血型")
            Sheet1.[b13].Value  "不存在该血型"
    End Select
End Sub

运行该代码，即可得到结果。例如，当血型为A时，窗口会输出“为A型血”，并在Excel界面的相应表格中输出结果。

结论

本文通过单条件和多条件两种情况对Select关键字进行了案例说明，并结合了Excel界面进行呈现。使用Select Case语句可以根据不同的条件来执行相应的操作，提高了代码的灵活性和可读性。

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。