【VBA】条件分岐

2020年7月13日Excel,VBA

文字列を判定して条件を分岐する

Select - Case

変数の値で評価する①

変数の値を評価して処理を変えます。

Sub SelectCase1()

    Dim drink
    drink = "coffee"

    Select Case drink
        Case "coffee"
            MsgBox ("コーヒーです")
        Case "tea"
            MsgBox ("紅茶です")
        Case "juice"
            MsgBox ("ジュースです")
        Case Else
            MsgBox ("どれでもありません")
    End Select

End Sub

【実行結果】

コーヒーです

変数の値で評価する②

変数が特定の値の場合に処理を実行します。
下記のコードでは変数を1から7まで1ずつ増やしながら、1,3,5の時にメッセージボックスで表示します。

Sub SelectCase2()

    Dim i As Long

    For i = 1 To 7
        Select Case i
            Case 1, 3, 5
                MsgBox i
        End Select
    Next

End Sub

【実行結果】以下の値がメッセージボックスに順番に表示されます。

1
2
5