「Excel VBA」Select Case文のサンプル
書式
Select Case 変数名{
Case 値1
処理コード1
xxx
Case Else
Caseの値に一致しない処理コード
End Select
Select Case 変数名{
Case 値1
処理コード1
xxx
Case Else
Caseの値に一致しない処理コード
End Select
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
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
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
実行結果
東京または横浜