そんな経験、ありませんか？ ElseIfを何段にも重ねていくと、コードはどんどん読みづらくなりますよね。修正しようとしても、どこがどの条件なのかパッと見で分からなくなってしまいます。

でも大丈夫です。VBAの Select Case文 を使えば、条件分岐をスッキリ整理できます。この記事では基本構文から実務で使えるコードまで、まとめて解説していきますね。

Select Case文とは？If文との違い

Select Case文は、VBAで 「1つの値に対して複数の条件に分岐する」 ための構文です。

たとえば「テストの点数によってメッセージを変えたい」というとき、If文だとElseIfが何段にもなります。Select Case文なら、条件をスッキリ並べて書けるんです。

Select Caseの基本構文

まずは基本の書き方を見てみましょう。

Sub sample()
    Select Case 条件式
        Case 条件1
            '--- 条件式の結果が条件1に合致したときの処理 ---
        Case 条件2
            '--- 条件式の結果が条件2に合致したときの処理 ---
        Case Else
            '--- どの条件にも合致しなかったときの処理 ---
    End Select
End Sub

仕組みをかんたんに説明すると、こんな流れです。

1. Select Case の後ろに書いた条件式が評価される
2. 上から順番にCaseの値と比較していく
3. 最初に一致したCaseの処理だけが実行される
4. どのCaseにも一致しなければ Case Else の処理が実行される

条件式には変数を入れてもいいですし、計算式を書くこともできます。文字列・数値・日付など、基本的なデータ型はどれでも使えますよ。

ポイントは「最初に一致したCaseだけ実行される」ということです。他の言語にはフォールスルー（次のCaseにも処理が流れる）がありますが、VBAにはその心配がありません。

If文と比べたメリット

同じ処理をIf文とSelect Caseで書き比べてみましょう。

If文で書いた場合

If 点数 >= 90 Then
    MsgBox "素晴らしい！"
ElseIf 点数 >= 70 Then
    MsgBox "よくできました"
ElseIf 点数 >= 50 Then
    MsgBox "もう少しがんばろう"
Else
    MsgBox "追試です"
End If

Select Caseで書いた場合

Select Case 点数
    Case Is >= 90
        MsgBox "素晴らしい！"
    Case 70 To 89
        MsgBox "よくできました"
    Case 50 To 69
        MsgBox "もう少しがんばろう"
    Case Else
        MsgBox "追試です"
End Select

条件が3つ、4つと増えてくるとSelect Caseの方がかなり読みやすくなります。使い分けの目安は以下のとおりです。

VBA If文の使い方をまだ学んでいない方は、先にそちらを読んでおくとスムーズに理解できますよ。なお、VBAではなくワークシート関数で条件分岐するならExcelのSWITCH関数も便利です。

Select Caseの条件指定パターン

Select Case文では、Caseの書き方にいくつかのパターンがあります。これを覚えておくと、かなり柔軟な条件分岐ができるようになりますよ。

単一値の指定

もっともシンプルなパターンです。特定の値にぴったり一致したときだけ処理を実行します。

Select Case 曜日
    Case "月"
        MsgBox "週の始まりです"
    Case "金"
        MsgBox "もうすぐ週末です"
    Case "土", "日"
        MsgBox "お休みです"
End Select

文字列でも数値でも、同じ書き方で使えます。

範囲指定（To）

「この値からこの値まで」という範囲を指定するには To を使います。

Select Case 年齢
    Case 0 To 12
        MsgBox "子供料金"
    Case 13 To 17
        MsgBox "学生料金"
    Case 18 To 64
        MsgBox "大人料金"
    Case Is >= 65
        MsgBox "シニア料金"
End Select

To の左側に小さい値、右側に大きい値を書くのがルールです。逆にすると正しく動作しないので注意してくださいね。

比較演算子（Is）

「○○以上」「○○以下」といった比較には Is キーワードを使います。

Select Case 売上
    Case Is >= 1000000
        MsgBox "目標達成！"
    Case Is >= 500000
        MsgBox "あと少し！"
    Case Else
        MsgBox "がんばりましょう"
End Select

ちなみに、Caseの後に <= 9 のように比較演算子だけ書いても、VBAが自動的に Is を補完してくれます。なので忘れても大丈夫ですが、最初から書いておいた方がコードの意図が明確になりますよ。

複数条件の組み合わせ（カンマ区切り）

1つのCaseに複数の条件を書きたいときは、カンマ で区切ります。To や Is と組み合わせることも可能です。

Select Case 月
    Case 3, 4, 5
        MsgBox "春です"
    Case 6, 7, 8
        MsgBox "夏です"
    Case 9, 10, 11
        MsgBox "秋です"
    Case 12, 1, 2
        MsgBox "冬です"
End Select

Case 1 To 4, 7 To 9, 11, 13 のように、範囲指定と単一値をまとめて書くこともできます。複雑に見えますが、「カンマで区切れば何でもOR条件にできる」と覚えておけばOKです。

条件指定パターンを表にまとめておきましょう。

コピペで動く基本コード

ここからは、実際にコピペして動かせるコードを紹介していきます。VBE（Visual Basic Editor）を開いて、標準モジュールに貼り付けてみてください。

VBEの開き方

VBEを開くには以下のいずれかの方法を使います。

• ショートカットキー: Alt + F11 を押す（最も手軽）
• リボンから: 「開発」タブ →「Visual Basic」をクリック

「開発」タブが表示されていない場合は、以下の手順で追加できます。

1. リボンの何もない場所を右クリック →「リボンのユーザー設定」を選択
2. 右側の一覧で「開発」にチェックを入れて「OK」をクリック

VBEが開いたら、「挿入」メニュー →「標準モジュール」を選択してください。コードの貼り付け先ができます。変数の基本的な使い方がまだ分からない方は、先にそちらを確認しておくとコードの理解がスムーズです。

テストの点数で分岐する例

Sub テスト判定()
    Dim 点数 As Long '点数を入れる変数
    点数 = InputBox("点数を入力してください")

    Select Case 点数
        Case Is <= 30
            MsgBox "追試です......がんばりましょう"
        Case 31 To 49
            MsgBox "もう少しで合格です！"
        Case 50 To 70
            MsgBox "合格！油断せずにいきましょう"
        Case 71 To 99
            MsgBox "素晴らしい結果です！"
        Case 100
            MsgBox "満点！パーフェクトです！"
        Case Else
            MsgBox "正しい点数を入力してください"
    End Select
End Sub

コードの解説

処理の流れを順番に見ていきましょう。

1. InputBox でユーザーに点数を入力してもらう
2. 入力された値が 点数 変数に代入される
3. Select Case 点数 で分岐処理が始まる
4. 上から順にCase条件と照合していく
5. 一致したCaseのメッセージが表示される
6. 想定外の値（負の数など）は Case Else で処理する

Case Else を入れておくと、想定外の入力があっても処理が止まりません。実務ではエラー防止のために、Case Elseは常に書いておく のがおすすめです。

実務で使えるSelect Caseコード

基本を押さえたところで、実際の業務で使えるコードを見ていきましょう。

部署コードに応じてシート名を返す

たとえば、売上データの部署コードに応じて処理先のシートを切り替えるケースです。

Sub 部署振り分け()
    Dim i As Long         '行カウンター
    Dim lastRow As Long   '最終行
    Dim 部署コード As String  '判定対象
    Dim 振り分け先 As String  '出力する部署名

    lastRow = Cells(Rows.Count, 1).End(xlUp).Row '最終行を取得

    For i = 2 To lastRow
        部署コード = Cells(i, 1).Value

        Select Case 部署コード
            Case "A01", "A02"
                振り分け先 = "営業部"
            Case "B01", "B02", "B03"
                振り分け先 = "経理部"
            Case "C01"
                振り分け先 = "人事部"
            Case Else
                振り分け先 = "その他"
        End Select

        Cells(i, 2).Value = 振り分け先
    Next i

    MsgBox "振り分け完了！"
End Sub

このコードでは、For文によるループ処理と組み合わせて、A列の部署コードを1行ずつ判定しています。最終行の取得を使っているので、データ件数が変わっても自動で対応できますよ。

Select Case Trueで複雑な条件を整理する

実は、Select Caseには少し変わった使い方があります。Select Case True と書くと、各Caseに条件式そのものを書けるんです。

Sub 在庫アラート()
    Dim 在庫数 As Long  '現在の在庫数
    Dim 単価 As Long    '商品単価

    在庫数 = Range("B2").Value  '--- B2セルの値を取得 ---
    単価 = Range("C2").Value    '--- C2セルの値を取得 ---

    Select Case True
        Case 在庫数 = 0
            MsgBox "在庫切れです！至急発注してください"
        Case 在庫数 <= 10 And 単価 >= 5000
            MsgBox "高額商品の在庫が少なくなっています"
        Case 在庫数 <= 10
            MsgBox "在庫が少なくなっています"
        Case Else
            MsgBox "在庫は十分です"
    End Select
End Sub

Select Case True では、各Caseの条件式が True になるかどうかで分岐します。複数の変数を組み合わせた条件も書けるので、If文の代わりに使うことで見通しの良いコードになります。セルの値を取得するRangeオブジェクトの使い方も合わせて覚えておくと、実務で役立ちますよ。

ちょっとむずかしく見えますが、やっていることはシンプルです。「Trueに一致するCase = 条件式がTrueになるCase」を上から探しているだけです。

よくあるエラーと対処法

Select Case文を使っていて遭遇しやすいエラーをまとめました。

Case Elseの書き忘れ

Case Elseを省略しても構文エラーにはなりません。ただし、どのCaseにも一致しない値が来たとき、何の処理も実行されずに素通り してしまいます。

'--- 悪い例：Case Elseがない ---
Select Case ステータス
    Case "完了"
        '--- 完了処理 ---
    Case "進行中"
        '--- 進行中の処理 ---
End Select
'→ 「未着手」が来ると何も起きない！

バグの原因になりやすいので、実務コードでは必ず Case Else を書きましょう。想定外の値をキャッチできます。

型の不一致エラー

Select Caseの条件式が数値なのに、Caseに文字列を指定してしまうと、意図どおりに動作しません。

Dim 数値 As Long
数値 = 10

'--- 悪い例：数値なのに文字列で比較している ---
Select Case 数値
    Case "10"   '← 文字列の"10"
        MsgBox "一致"  'ここには来ない！
End Select

変数の型とCaseの値の型を揃えるのがポイントです。セルの値を使うときは、CLng() や CStr() で明示的に型変換しておくと安心ですよ。

エラーパターンを表にまとめます。

マクロを保存するときはファイル形式に注意してください。「Excelマクロ有効ブック（.xlsm）」 を選びましょう。通常の .xlsx で保存すると、書いたマクロが消えてしまいます。

まとめ

この記事では、VBAのSelect Case文について基本から実務活用まで解説しました。

ポイントをおさらいしておきましょう。

• Select Case文は 「1つの値に対して複数条件に分岐」 したいときに最適
• 条件指定は 単一値・To（範囲）・Is（比較）・カンマ（複数） の4パターン
• Case Else は省略せずに必ず書く（想定外の値のキャッチ）
• Select Case True を使えば、複数変数にまたがる複雑な条件分岐もスッキリ書ける
• 条件が3つ以上ならSelect Case、2つ以下ならIf文が使いやすい

Select Caseをうまく使えると、コードの見通しがぐっと良くなります。まずはこの記事のサンプルコードをコピーして動かしてみてください。自分で書いて動かしてみると、理解が深まりますよ。

条件分岐をマスターしたら、次はFor文でのループ処理やLike演算子でのパターンマッチングにも挑戦してみてくださいね。VBAの学習全体の進め方についてはVBA学習の順番とロードマップも参考にしてみてください。

そう思って手が止まっていませんか？ VBAの条件分岐はプログラミングの基本中の基本です。しかし初めて見ると記号や英語の羅列に見えて、つい身構えてしまいますよね。

でも安心してください。If文の仕組みは、実は日常会話とほとんど同じです。この記事ではVBA If文の基本構文から実務で使えるコードまで、一つずつ丁寧に解説していきます。

VBA If文（条件分岐）とは？

条件分岐とは、条件に応じて処理を切り替える仕組みのことです。

日常で例えるとこんな感じです。

「明日晴れたらピクニックに行こう。くもりだったら映画にして、雨だったら家でのんびりしよう」

この会話、無意識に条件分岐をしていますよね。「天気」という条件によって「行き先」という処理を変えているわけです。

VBAのIf文も、やっていることはまったく同じです。「もし○○だったら△△する、そうでなければ□□する」をコードで書いているだけなんですよ。

VBEの起動とコードの書き方

If文を試すには、まずVBE（Visual Basic Editor）を開く必要があります。VBEの画面構成について詳しく知りたい方は、VBEの画面の見方を図解で解説もあわせてどうぞ。

VBEの開き方

一番かんたんな方法は、Excelを開いた状態で Alt + F11 キーを押すことです。

開発タブが表示されていない場合でも、このショートカットなら直接VBEを開けます。開発タブを表示させたい場合は「ファイル」→「オプション」→「リボンのユーザー設定」へ進みましょう。そこで「開発」にチェックを入れてくださいね。

標準モジュールの挿入

VBEが開いたら、コードを書く場所を用意します。

メニューの「挿入」→「標準モジュール」を選んでください。白い画面が表示されたら、そこにコードを貼り付けて実行できます。

実行方法は F5キー を押すか、メニューの「実行」→「Sub/ユーザーフォームの実行」を選びます。

If文の基本構文（コピペで動くコード）

ここからは、実際にコピペして動かせるコードで解説していきます。

Ifだけのシンプルな分岐

まずは一番シンプルな形です。「条件に合ったときだけ処理する」パターンです。

Sub シンプルなIf()
    Dim 天気 As String '--- 天気を入れる変数 ---
    天気 = "晴れ"

    If 天気 = "晴れ" Then
        MsgBox "ピクニックに出かけよう！"
    End If
End Sub

日本語に置き換えると、こうなります。

• If → もし
• 天気 = "晴れ" → 天気が「晴れ」だったら
• Then → そのときは
• End If → ここまで

ポイントは If で始めたら、必ず End If で閉じる ことです。これを忘れるとエラーになるので、Ifを書いたらすぐにEnd Ifも書いておくのがおすすめです。

変数（Dim）の使い方がまだよく分からないという方は、先にそちらの記事を読んでおくとスムーズですよ。

If…Else（2択の分岐）

次は「条件に合ったらAの処理、合わなかったらBの処理」という2択パターンです。

Sub 二択の分岐()
    Dim 天気 As String '--- 天気を入れる変数 ---
    天気 = "雨"

    If 天気 = "晴れ" Then
        MsgBox "ピクニックに出かけよう！"
    Else
        MsgBox "家でのんびり過ごそう"
    End If
End Sub

Else は「その他」という意味です。If の条件に合わなかった場合、すべてここに流れてきます。

このコードでは天気が「雨」なので、Else側の「家でのんびり過ごそう」が表示されます。天気を「晴れ」に書き換えて実行すると、結果が変わりますよ。

If…ElseIf…Else（3つ以上の分岐）

条件を3つ以上に分けたいときは ElseIf を使います。冒頭の天気の例をそのままコードにしてみましょう。

Sub 天気で行き先を決める()
    Dim 天気 As String '--- 天気を入れる変数 ---
    天気 = "くもり"

    If 天気 = "晴れ" Then
        MsgBox "ピクニックに出かけよう！"
    ElseIf 天気 = "くもり" Then
        MsgBox "映画を見に行こう"
    Else
        MsgBox "家でのんびり過ごそう"
    End If
End Sub

処理の流れを整理しておきます。

1. まず If の条件をチェック（天気 = “晴れ”？）
2. 合わなければ ElseIf の条件をチェック（天気 = “くもり”？）
3. どれにも合わなければ Else の処理を実行

ElseIf は何個でも追加できます。ただし、最初の条件は必ず If で書く必要があります。ElseIf だけで始めることはできないので注意してくださいね。

If文の3つのパターンを表にまとめておきましょう。

If文の実践コード（業務で使えるバージョン）

基本を押さえたところで、実際の業務で使えるコードを見ていきましょう。

セルの値で処理を分岐する例

たとえば、テストの点数がセルに入力されていて、隣のセルに判定結果を書き込みたい場合です。A列に点数が入っていて、B列に判定を出力します。

Sub テスト判定()
    Dim i As Long       '--- 行カウンター ---
    Dim lastRow As Long '--- 最終行 ---
    Dim 点数 As Long    '--- 判定対象の点数 ---

    lastRow = Cells(Rows.Count, 1).End(xlUp).Row '--- A列の最終行を取得 ---

    For i = 2 To lastRow '--- 2行目（データ開始行）から最終行まで ---
        点数 = Cells(i, 1).Value

        If 点数 >= 80 Then
            Cells(i, 2).Value = "合格"
        ElseIf 点数 >= 60 Then
            Cells(i, 2).Value = "追試"
        Else
            Cells(i, 2).Value = "不合格"
        End If
    Next i

    MsgBox "判定が完了しました！"
End Sub

このコードでは For文 を使ってA列のデータを1行ずつ処理しています。最終行の取得を使っているので、データが何行あっても自動で対応できますよ。

セルの指定方法について詳しくは、Rangeの使い方で解説しています。

複数条件を組み合わせる（And / Or）

「点数が80点以上かつ出席率が90%以上のとき合格」のように、複数の条件を同時にチェックしたい場合は And や Or を使います。

Sub 複数条件の判定()
    Dim 点数 As Long   '--- テストの点数 ---
    Dim 出席率 As Long '--- 出席率（%） ---

    点数 = Range("A2").Value
    出席率 = Range("B2").Value

    If 点数 >= 80 And 出席率 >= 90 Then
        MsgBox "合格です！"
    ElseIf 点数 >= 80 Or 出席率 >= 90 Then
        MsgBox "条件付き合格です"
    Else
        MsgBox "残念ですが不合格です"
    End If
End Sub

使い分けをまとめます。

And と Or を同じIf文に混ぜるときは、括弧 () で優先順位を明確にしましょう。括弧がないと、意図しない判定になることがあります。

文字列のパターンで条件を分岐したい場合は、Like演算子を使う方法もあります。ワイルドカードで柔軟な文字列比較ができるので、あわせてチェックしてみてくださいね。

If文とSelect Caseの使い分け

VBAにはIf文のほかに、Select Case文という条件分岐の方法もあります。

どちらを使うか迷ったときの目安はこちらです。

たとえば、さきほどの天気の例のように「1つの変数の値で3つ以上に分岐する」場合は、Select Caseで書くとコードが見やすくなります。

Select Case文の詳しい使い方は、Select Case文で条件分岐を見やすく書く方法で解説しています。あわせて読んでみてくださいね。

よくあるエラーと対処法

If文を書いていて遭遇しやすいエラーをまとめました。

End Ifの書き忘れ

一番多いのがこのエラーです。「コンパイル エラー: End If に対応する If がありません」と表示されます。

'--- 悪い例：End Ifがない ---
Sub エラー例1()
    If Range("A1").Value > 0 Then
        MsgBox "正の数です"
    '--- ここにEnd Ifが必要！ ---
End Sub

If文が入れ子（ネスト）になっていると、どのIfにEnd Ifが対応しているか分かりにくくなります。Ifを書いたらすぐにEnd Ifも書く習慣をつけると、このエラーを防げますよ。

なお、変数の宣言忘れによるバグを防ぐには、Option Explicitの設定がおすすめです。コードの先頭に1行書いておくだけで、未宣言の変数をエラーで知らせてくれます。

比較演算子のミス

「等しい」を表す = と「代入」の = を混同するケースです。VBAではどちらも = を使います。If文の中では比較として扱われるので、実は心配不要です。

ただし、文字列を比較するときに = ではなく == と書いてしまうのはNGです。VBAには == という演算子はありません。

'--- 悪い例：==はVBAでは使えない ---
If 天気 == "晴れ" Then  '← コンパイルエラー！

型の不一致

セルの値を数値として比較したいのに、セルに文字列が入っているとエラーになることがあります。

'--- 安全な書き方：IsNumericで事前チェック ---
If IsNumeric(Range("A1").Value) Then
    If CLng(Range("A1").Value) >= 80 Then
        MsgBox "合格"
    End If
Else
    MsgBox "数値を入力してください"
End If

IsNumeric で数値かどうかを先にチェックしておくと、実行時エラーを防げます。

エラーパターンをまとめておきましょう。

マクロを保存するときは、ファイル形式を Excelマクロ有効ブック（.xlsm） にするのを忘れないでください。通常の .xlsx で保存すると、せっかく書いたマクロが消えてしまいます。

まとめ

この記事では、VBA If文の使い方を基本から実務コードまで解説しました。

ポイントをおさらいしておきましょう。

• If文は 「もし○○だったら△△する」 という条件分岐の基本構文
• If / ElseIf / Else の3つを組み合わせて、複数の条件を処理できる
• 複数の条件を同時にチェックするには And / Or 演算子を使う
• 条件が3つ以上で1つの値の分岐なら、Select Case文の方がスッキリ書ける
• If を書いたら End If もセットで書く（エラー防止の基本）

条件分岐はVBAの中でもっともよく使う構文です。まずはこの記事のサンプルコードをコピーして、実際に動かしてみてください。変数の値を変えて結果がどう変わるか試してみると、理解がぐっと深まりますよ。

If文を使いこなせるようになったら、For文でのループ処理やDo Loopでの繰り返し処理にも挑戦してみてくださいね。VBAの学習全体の進め方を知りたい方は、VBAを学習する順番と心構えを参考にしてみてください。