サイトについて      連絡先   検索

VBA Select 文

はじめに

Excel VBA の Select 文を使用して条件分岐する方法を紹介します。

Select 文は If 文に比べて複数の条件で分岐するときに向いています。

Select Case

Select 文で条件を書くときは Case を使用します。

Dim i As Integer

Select Case i ' i が次の値のとき Case のコードを実行します。
    Case 0
        Debug.Print ("0") ' i が 0 のとき
    Case 1
        Debug.Print ("1") ' i が 1 のとき
    Case Else
        Debug.Print ("2") ' i がそれ以外のとき
End Select

Case は次のような書き方もできます。

Dim i As Integer

Select Case i
    Case 0, 1, 2
        Debug.Print ("0") ' i が 0 か 1 か 2 のとき
    Case 3 To 6
        Debug.Print ("1") ' i が 3 ~ 6 のとき
    Case Is >= 7
        Debug.Print ("2") ' i が 7 以上のとき
    Case 0, 2 To 3, Is > 4
        Debug.Print ("3") ' 条件の組み合わせもできます。
End Select

関連ページ