「Excel VBA」Select Case文のサンプル
書式
Select Case 変数名{ Case 値1 処理コード1 xxx Case Else Caseの値に一致しない処理コード End Select
値がCaseの値と一致すれば、一致したCaseの処理のみが実行されます。
Case Elseは、値がどのCaseの値にも一致しない時に実行されます。
使用例
Sub testFunc() Dim city As String city = "tokyo" Select Case city Case "oosaka" Debug.Print "大阪" Case "tokyo", "yokohama" Debug.Print "東京または横浜" Case Else Debug.Print "Caseの値に一致しない値" End Select End Sub
実行結果
東京または横浜