VBA｜複数の条件分岐で処理を実行させる(Select Case)

条件分岐で処理を実行させるには、If～Thenステートメント以外にもSelect Caseステートメントがあります。

Select Caseステートメントは、If～Thenステートメントと同じ動作をするものですが、記述が簡潔になるメリットがあります。

Select Case の記述方法

Select Case 条件判断の対象

Case　条件式１

　　対象が条件式１を満たすときの処理

Case　条件式２

　　対象が条件式２を満たすときの処理

・・・

Case Else

　　対象がすべての条件を満たさないときの処理

End Select

ようするに、「条件判断の対象」が条件式１を満たすとき⇒処理１、条件式２を満たすとき⇒処理２というものですが、百聞は一見に如かずです。

実際のコードを見てみましょう。

Select Caseステートメントを使用したVBAコード例

佐藤太郎君の得点は、下の表のようになっています。

この得点の数字の文字色を得点に応じて以下のように条件分岐処理をさせてみます。

• １００点より大きければ、得点の文字色を赤色
• ８５点より大きければ、得点の文字色を緑色
• ７０点より大きければ、得点の文字色を青色

VBAコードを見る前に、一つ説明をします。

Select Case ステートメントでは、条件式で「Is（アルファベットのアイ・エスです。エル・エスではありません。）」という文字が出てきます。

今回のVBAコードでは、「条件判断の対象」を、変数「Tokuten」（得点）として条件分岐させていますが、条件式で比較演算をする場合には「Tokuten」という文字を使用せずに「Is」を使用します。

具体的には、下のVBAコードの７行目では、「Select Case Tokuten」として、条件判断の対象を「Tokuten」に設定していますが、９行目・12行目では「Tokuten＞数値」とせずに「Is＞数値」と記述することになります。
※「Is」は、比較する場合に使用する演算式です。

Sub 複数の条件分岐での処理()
    
    Dim Tokuten As Long
          
    Tokuten = Cells(3, 3).Value   '変数 Tokuten にセルC３の値を格納
    
    Select Case Tokuten           '条件判断の対象は、Tokuten
    
        Case Is > 100         'Tokuten > 100 を満たすとき、、、
            Cells(3, 3).Font.ColorIndex = 3  'セルC３の文字色を赤色に設定する
    
        Case Is > 85          'Tokuten > 85 を満たすとき、、、
            Cells(3, 3).Font.ColorIndex = 4  'セルC３の文字色を緑色に設定する
    
        Case Is > 70          'Tokuten > 70 を満たすとき、、、
            Cells(3, 3).Font.ColorIndex = 5  'セルC３の文字色を青色に設定する
    
    End Select                    'Select Case文の終わり
    
End Sub

実行すると、文字色が青色になります。

「Select Case」と「If～Then」のどちらを使うべきか？

Select Caseステートメントを使った場合とIf～Thenステートメントを使った場合、結果的にどちらも同じ動作をします。

どちらを使うべきかということに正解はありません。

ですが、コードはわかりやすく（見やすく）記述することが鉄則です。

したがって、Select Caseステートメントを使って見やすくなる場合はSelect Caseステートメントを使い、If～Thenステートメントを使って見やすくなる場合はIf～Thenステートメントを使うべきです。

参考：Excel VBA入門 その53：「Select Caseに対応するCaseがありません。」の原因・対処方法