在Excel VBA中，使用Select Case語句可以根據(jù)表達式的值來決定執(zhí)行語句中的其中一個。這種判斷語句可以用來處理單條件或多條件的情況。 單條件判斷 首先，在VBE（Visual Bas

在Excel VBA中，使用Select Case語句可以根據(jù)表達式的值來決定執(zhí)行語句中的其中一個。這種判斷語句可以用來處理單條件或多條件的情況。

單條件判斷

首先，在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

然后執(zhí)行代碼，得到運行結果。在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界面進行呈現(xiàn)。使用Select Case語句可以根據(jù)不同的條件來執(zhí)行相應的操作，提高了代碼的靈活性和可讀性。