練習問題と模擬問題で対策する、無料のExcel VBAエキスパート試験対策サイト

条件分岐を表す命令です。

二値以外の複数の条件分岐を簡潔に記述できます。

二値とは、「〇〇か、そうでないか」という2つの値です。

二値以外の条件分岐は、Select Caseステートメントを使用して、「〇〇なら処理1」「××なら処理2」「△△なら処理3」…というように複数の条件を記述します。

【比較】
二値の条件分岐は、Ifステートメントを使用して「〇〇なら処理1、〇〇でなければ処理2」と記述します。

Select Case 値
    Case 条件1
        条件1のときの処理
    Case 条件2
        条件2のときの処理
    Case Else
        どの条件にも当てはまらない場合の処理
End Select

値：変数やセルの値など、評価の対象を指定

Sub Macro1()
    Select Case Range("A1").Value
        Case "朝"
            MsgBox "Good morning!"
        Case "夜"
            MsgBox "Good evening!"
        Case Else
            MsgBox "Hello!"
    End Select
End Sub

<セルA1の値が「朝」の場合>
「Good morning!」のメッセージボックスを表示します。

<セルA1の値が「夜」の場合>
「Good evening!」のメッセージボックスを表示します。

<セルA1の値が「朝」「夜」以外の場合>
「Hello!」のメッセージボックスを表示します。

【OR条件を指定】
Sub Macro2()
    Select Case Range("A1").Value
         Case "牛肉", "豚肉"
             MsgBox "肉です"
         Case "アジ", "マグロ"
             MsgBox "魚です"
         Case Else
             MsgBox "肉・魚以外です"
     End Select
End Sub

複数の条件をカンマで区切ると、条件を「OR（または）」で結合し、指定した条件のいずれかひとつに該当するときに条件に一致したと見なします。

<セルA1の値が「牛肉」または「豚肉」の場合>
「肉です」のメッセージボックスを表示します。

<セルA1の値が「アジ」または「マグロ」の場合>
「魚です」のメッセージボックスを表示します。

<セルA1の値が「牛肉」「豚肉」以外の場合>
「肉・魚以外です」のメッセージボックスを表示します。

【条件に範囲を指定】
Sub Macro3()
    Select Case Range("A1").Value
        Case 1 To 5
            MsgBox "1～5の数です"
        Case 6 To 10
            MsgBox "6～10の数です"
        Case Else
            MsgBox "1～10以外の値です"
    End Select
End Sub

条件の2つの数値をToキーワードでつなぐと、数値の範囲を表します。
書式：Case 下限値 To 上限値

<セルA1の値が1以上5以下の場合>
「1～5の数です」のメッセージボックスを表示します。

<セルA1の値が6以上10以下の場合>
「6～10の数です」のメッセージボックスを表示します。

<セルA1の値が1以上10以下の値以外の場合>
「1～10以外の値です」のメッセージボックスを表示します。

【評価対象と比較】
Sub Macro4()
    Select Case Range("A1").Value
        Case Is < 10
            MsgBox "10以下です"
        Case Is >= 10
            MsgBox "10以上です"
    End Select
End Sub

評価対象（セルA1）と比較するときは、Isキーワードを使用します。
Macro4のIsは「Range("A1").Value」を表します。

<セルA1の値が10未満の場合>
「10以下です」のメッセージボックスを表示します。

<セルA1の値が10以上の場合>
「10以上です」のメッセージボックスを表示します。