select case

根據表達式的值來決定執行幾組語句中的其中之一

Sub select多條件判斷()
Dim s$
s = "a"
Select Case s
Case "a"
    MsgBox "我是a"
Case "b"
    MsgBox "我是b"
Case Else
    MsgBox "我是未知"
End Select

End Sub