「Excel VBA」Select Case文のサンプル

書式

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
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の値にも一致しない時に実行されます。

使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
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

実行結果
東京または横浜

Excel VBA

Posted by arkgame