VBA Select Case

Select Case 変数
　　Case 1
　　　　’処理を記述
　　Case 2
　　　　’処理を記述
　　Case Else
　　　　'上記以外の処理を記述
End Select

Select Case 変数
　　Case 1, 2
　　　　'1 または 2の場合の処理を記述
　　Case 3, 5 ,8
　　　　'3、5、8の場合の処理を記述
　　Case Else
　　　　'上記以外の処理を記述
End Select

Select Case 変数
　　Case 1 To 2
　　　　'1 ～ 2の場合の処理を記述
　　Case 3 To 5
　　　　'3 ～ 5の場合の処理を記述
　　Case Else
　　　　'上記以外の場合の処理を記述
End Select

Select Case 変数
　　Case Is ＜＝ 2 'Is は書かなければ自動挿入
　　　　'2以下の場合の処理を記述
　　Case Is ＜＝ 5
　　　　'5以下の場合の処理を記述
　　Case Else
　　　　'上記以外の場合の処理を記述
End Select

Sub selectTest()
    Dim str As String
    str = "八幡西区"
    Select Case True
        Case str Like "福岡*"
            Debug.Print "福岡が含まれる"
        Case str Like "八幡*"
            Debug.Print "八幡が含まれる"
        Case Else
            Debug.Print "それ以外"
    End Select
End Sub