VBA Select Caseで複数の文字列・条件を簡単処理！ワイルドカードや文字列比較の応用例も紹介

「VBAのIF分で複数の条件分岐を行うと、コードが複雑になってよく分からなくなる．．．」
そんな悩みを抱えていませんか？

・複数の条件をIF文で書くと、コードが複雑になり読みづらい。

・もっとシンプルに条件分岐を管理できる方法はないの？

・数値や文字列の条件によって異なる処理を簡単に書いてみたい。

その場合は、VBAの「Select Case 文」を
使用すると解決します！

この記事では、VBAの Select Case 文を使ったシンプルでわかりやすい条件分岐の方法を解説します。

Select Case 文を使用すると、例えば、複数の条件や文字列を一括して処理したり、ワイルドカードを使ったパターンマッチングも簡単に行えるようになります。

基本的な使い方から、実際の業務で役立つ応用例まで、初心者でもすぐに実践できる内容です。
ぜひ最後までお読みください。

【　この記事の概要　】

VBAをしっかり学びたいけれど、「どこから始めればいいかわからない」と迷っていませんか？

そんな方には、UdemyのVBA講座がおすすめです。

動画での丁寧な解説や、実践的な学習スタイルで、初心者でも無理なく基礎から応用まで習得できます。
自己学習を進める上で、何度でも繰り返し見返せる講座は非常に心強い味方になりますよ！

＼ 　自分のペースで学べるVBA講座はこちら　 ／

【 Udemy 】初心者でも安心！VBA講座を見る

​

この記事を見て「できるようになる」こと

VBA「Select Case文」の基本を解説

VBAのSelect Case文は、複数の条件をシンプルに整理し、効率よく処理できる構文です。
特に、文字列を扱う際や複数の条件を適用する場合に、その威力を発揮します。

複数の条件を処理する場合、IF文では複雑になりやすく、条件が増えると「ElseIf」が何度も出てきてしまい、コードが読みにくくなります。

しかし、「Select Case文」を使えば、例えば文字列を基準にした条件分岐や、複数の異なる条件を簡潔にまとめることができます。

Select Case文の基本構成

Select Case文の基本構成は以下の通りです。

より詳しい情報は、Microsoft公式 – Select Case ステートメントを参照してみてください。

VBA「Select Case」の応用例：複数条件・比較演算・ワイルドカード

Select Case文は、条件を単純に分岐させるだけでなく、「比較演算」や「範囲指定」、さらには「文字列の指定」や「ワイルドカード」にも対応しています。

応用1 : 比較演算子を使う場合 (Isキーワード)

Select Case文で数値の大小比較を行う場合には、「Isキーワード」を使用します。
例えば、次のように記述することで、指定の値が90以上であれば条件を満たす処理が行えます。

Case Is >= 90

この構文により、数値の評価が柔軟に行えるため、条件の範囲を細かく設定したい場合に便利です。

比較演算子の一覧については、以下を参照ください。

応用2 : 数値の範囲を指定する場合 (Toキーワード)

特定の数値の範囲内で処理を分岐させる場合、「Toキーワード」を使います。
例えば、「1」から「10」までの数値に一致する場合には、以下のように記述します。

Case 1 To 10

これにより、複数の連続した数値を一度に処理でき、個別に指定する必要がなくなります。

応用3 : 文字列を条件に指定する場合

文字列を条件に指定する場合は、そのまま文字列を記述します。
例えば、名前やコードに基づいて処理を分岐させたい場合、次のように記述できます。

Case "山田", "鈴木"

カンマで区切ることで、複数の文字列条件を一度に指定することが可能です。

応用4 : ワイルドカードを使った文字列比較

Select Case文では、「Like演算子」を使って「ワイルドカード」による文字列パターンマッチングも行えます。

ワイルドカードとは、文字列の一部をあいまいに指定するための記号です。
特定のパターンに一致する文字列を検索したり、条件分岐に使ったりできます。

これにより、特定のパターンに一致する文字列に対して処理を分岐させることが可能です。

Case text Like "A#*"

この例では、「A」で始まる任意の文字列に一致する場合に処理が実行されます。

ワイルドカードの一覧は下記の通りとなります。

VBA 「Select Case文」を使用するうえでの注意ポイント

Select Case文を使う際の注意ポイントを以下にまとめます。

注意1 : Caseの重複に注意しましょう

同じ値や条件が複数のCaseブロックに含まれていると、最初に一致した条件のみが処理され、それ以降のCaseは無視されます。

つまり、重複する条件があると、それらが期待どおりに処理されない可能性があります。

Select Case score
    Case Is >= 70
        MsgBox "70点以上"
    Case Is >= 90
        MsgBox "90点以上"
End Select

この場合、「score」が「90」の場合でも、最初の「70点以上」という条件に一致するため、「70点以上」が表示され、「90点以上」のメッセージは表示されません。
条件の順番や内容に注意しましょう。

注意2 : Case Elseを活用しましょう

「Case Else」は、どの「Case」にも一致しなかった場合に実行される処理です。

例えば、予期しない値や範囲外の値が入力された場合に対応できます。
また、「Case Else」を使って、条件が一致しない場合に「何もしない」という処理を行うことも可能です。

抜けのない処理を行うために、「Case Else」を使うことが推奨されます。

Select Case score
    Case Is >= 90
        MsgBox "90点以上"
    Case Is >= 70
        MsgBox "70点以上"
    Case Else
        MsgBox "70点未満"
End Select

ここでは、「70点未満」の場合の処理を「Case Else」でカバーしています。
特定の範囲以外の条件にも対応することで、エラーを防げます。

注意3 : 数値と文字列の混同に注意しましょう

VBAでは、「数値」と「文字列」は別のデータ型として扱われます。

「Select Case文」で条件を指定するときは、数値と文字列が混ざらないように注意しましょう。
意図せず数値を文字列として扱ったり、その逆をしてしまうと、期待した結果にならないことがあります。

Select Case userName
    Case 123
        MsgBox "これは数値"
    Case "123"
        MsgBox "これは文字列"
End Select

上記の例では、「数字の123」と「文字列の”123″」は別の条件として扱われます。
型の違いを理解して、正しい形式で記述しましょう。

注意4 : パフォーマンスの最適化について

「Select Case文」は条件を簡潔に整理できる便利なツールですが、条件が多すぎる場合や処理が複雑すぎる場合には、コードのパフォーマンスに影響が出ることがあります。

特に、大量の条件を一度に処理する場合や、複雑な比較演算を多用する場合は、コードの効率性に気を配る必要があります。

VBA「Select Case文」の使用例をご紹介

それでは、Select Case文の具体的な使用例を見ていきましょう。

以下に紹介する使用例は、すべてコピペしてすぐに実行できるコードです。
気になる例は、ぜひご覧いただき、実際に実行してみてください。

VBAの基礎から応用までを効率よくしっかり学習したい方には、UdemyのVBA講座もおすすめです。

特に自己学習で進める場合、ビデオや実践例があると理解が進みやすくなります。

＼ 　自分のペースで学べるVBA講座はこちら　 ／

【 Udemy 】初心者でも安心！VBA講座を見る

​

使用例1：比較演算子を使用した数値の条件分岐 (Isキーワード)

Select Case文を使って、数値が特定の値以上かどうかを条件として判定する方法を紹介します。

この例では、セルA1に入力された点数に基づいて、成績評価を表示します。

Sub CheckGrade()
    Dim score As Long
    
    score = Range("A1").Value

    Select Case score
        Case Is >= 90
            MsgBox "成績はAです"
        Case Is >= 80
            MsgBox "成績はBです"
        Case Is >= 70
            MsgBox "成績はCです"
        Case Else
            MsgBox "成績はDです"
    End Select
    
End Sub

処理結果

コードの動作概要

このコードで使用している機能

• Dim (変数)
• MsgBox (メッセージボックス)

1行ずつコードを解説

このサブルーチンは、Select Case文を使用して数値の比較を行う基本的な例です。
シンプルなコードで条件を分かりやすく管理することができ、より可読性の高いプログラムを作成するのに役立ちます。

使用例2：特定の数値に基づく条件分岐

この例では、特定の数値 に基づいて処理を分岐する方法を紹介します。

以下のコードでは、セルA1に入力された数値が奇数か偶数かを判定してメッセージを表示します。

Sub CheckOddOrEven()
    Dim number As Long
    
    number = Range("A1").Value

    Select Case number
        Case 1, 3, 5, 7, 9
            MsgBox "奇数です"
        Case 2, 4, 6, 8
            MsgBox "偶数です"
        Case Else
            MsgBox "1から9の間の数ではありません"
    End Select
    
End Sub

処理結果

コードの動作概要

このコードで使用している機能

• Dim (変数)
• MsgBox (メッセージボックス)

1行ずつコードを解説

このコードでは、Select Case文を使って、特定の数値が奇数か偶数かを判定しています。
VBAを使用して数値の条件分岐を行う際、特定の複数の値を一度に処理できるSelect Case文は非常に便利です。

使用例3：文字列を条件として処理を分岐

この例では、特定の文字列 に基づいて処理を分岐する方法を紹介します。

以下のコードでは、セルA1に入力された名前に応じて、異なるメッセージを表示します。

Sub GreetUser()
    Dim userName As String
    
    userName = Range("A1").Value

    Select Case userName
        Case "山田"
            MsgBox "こんにちは、山田さん"
        Case "鈴木"
            MsgBox "こんにちは、鈴木さん"
        Case Else
            MsgBox "こんにちは、ゲストさん"
    End Select
    
End Sub

処理結果

コードの動作概要

このコードで使用している機能

• Dim (変数)
• MsgBox (メッセージボックス)

1行ずつコードを解説

このコードは、Select Case文を使って、文字列（名前）に基づいて処理を分岐させています。
特定の名前に一致する条件に応じてメッセージを表示するシンプルな例ですが、VBAで文字列を扱う条件分岐の基本として非常に有用です。

使用例4：数値の範囲を条件にした処理分岐 (Toキーワード)

この例では、数値の範囲 に基づいて処理を分岐する方法を紹介します。

数値の範囲を指定する場合は、「Case 1 To 10」のように、「To」が必要になります。

以下のコードでは、セルA1に入力された数値がどの範囲に属するかを判定してメッセージを表示します。

Sub EvaluateRange()
    Dim value As Long
    
    value = Range("A1").value

    Select Case value
        Case 1 To 10
            MsgBox "1から10の間の数です"
        Case 11 To 20
            MsgBox "11から20の間の数です"
        Case Else
            MsgBox "範囲外の数です"
    End Select
    
End Sub

処理結果

コードの動作概要

このコードで使用している機能

• Dim (変数)
• MsgBox (メッセージボックス)

1行ずつコードを解説

このコードでは、Select Case文を使用して、数値の範囲に基づいて処理を分岐させています。
「To」を使って範囲指定をすることで、複数の数値条件を一度に判定できるため、条件分岐が非常にシンプルかつ効率的に行えます。

使用例5：文字列のパターンマッチングに基づく条件分岐 (ワイルドカード)

Like演算子を使って文字列のパターンに基づく 条件分岐の例です。

Like演算子を使うことで、文字列が特定のパターンに一致するかどうかを判定できます。

また、Like演算子を使用する場合は、ワイルドカードを使ってパターンマッチングを行うことができます。

Sub CheckPattern()
    Dim text As String
    
    text = Range("A1").value

    Select Case True
        Case text Like "A####"
            MsgBox "A1は'A'で始まり、続く4文字が数字です"
        Case text Like "B*"
            MsgBox "A1は'B'で始まる文字列です"
        Case Else
            MsgBox "A1の値は指定のパターンと一致しません"
    End Select
    
End Sub

処理結果

コードの動作概要

このコードで使用している機能

• Dim (変数)
• MsgBox (メッセージボックス)

1行ずつコードを解説

このコードでは、Like演算子を使用して、文字列のパターンマッチングを行っています。
ワイルドカードを活用することで、文字列の特定のパターンに基づいた柔軟な条件分岐が可能です。
これにより、特定の形式やパターンに応じた処理が簡単に記述できます。

この記事のまとめ

この記事では、VBAのSelect Case文を使用して、複数の条件を簡潔に処理する方法を解説しました。
数値や文字列の条件分岐から、ワイルドカードを使ったパターンマッチングまで、さまざまな応用方法が取り扱えるようになったと思います。

ポイントのおさらい

さらに学ぶために

Select Case文は、複数の条件分岐を簡潔に記述するための非常に強力なツールです。
特に、IF文では複雑になりがちなコードを整理するのに役立ちます。

さらに、Select Case文を応用することで、業務効率を高めるための柔軟なVBAプログラムを作成することができます。

また、IF文との使い分けを理解することで、より適材適所に条件分岐を適用できるようになります。
IF分については、別記事で解説していますので、そちらをご覧ください。

あわせて読みたい

VBAのIF文で条件分岐をマスターしよう｜IF Else文の使い方も解説 「VBAで条件分岐を使いたいけれど、どう書けばいいのかわからない…。」このようなことで悩んでいませんか？ ・IF文を使いたいけれど、条件によって異なる処理を どう書...

Select Case文を使いこなすことで、VBAでの条件分岐をより効率的に管理し、コードの可読性とメンテナンス性を向上させましょう。

あわせて読みたい

サイトマップ このページは、本サイトの記事を分かりやすくまとめました。ぜひご覧ください。 目次 「VBA」を見る 「Officeスクリプト」を見る 「ワークシート関数」を見る 「JavaScr...