「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

実行結果
東京または横浜

Excel VBA

Posted by arkgame