Excel VBA Select Case分岐（初心者向け20）

くるみこ

今回は分岐処理第2回目 Select Caseステートメントについてです！
条件分岐が複数存在する場合、If…Then…Elseを駆使すれば条件分岐できますが、こちらを利用すると簡単に解消される場合が多いので、しっかり覚えましょう(^^)

楽しみに待っていました。しっかり勉強しま～す(^^)

よろしくお願いしますm(_ _)m

前回のおさらいはこちらの記事です(^^)/　下のカードをクリックすれば開きます

Excel VBA If Then Else（初心者向け19）

Excel マクロ VBAの条件構文 If...Then...Elseステートメントについて詳しく解説します。If...Then...Elseステートメントの使い方がわかります。ElseIfを使った複数条件の分岐や論理演算子についても解説。

www.kurumico.com

くるみこ

前回記事でわかったことは
・If…Then…Else ステートメントの使い方がわかりました
・ElseIf を使った複数条件の分岐がわかりました
・論理演算子を使って複数の条件を判定して評価できることがわかりました

【この記事でわかることは】
・Select…Case ステートメントの使い方がわかります

この記事のサンプルはこのリンク先からダウンロードでます！

Select Case ステートメント

式の値に応じて、複数のステートメントのグループのいずれかを実行します

Select Case ステートメントの構文

Select Case testexpression
　　[ Case expressionlist-n [ statements-n ]]
　　[ Case Else [ elsestatements ]]
End Select

Select Case ステートメント構文の指定項目の詳細はつぎのとおり

構文の解説

・testexpressionには、評価する数式または文字列式を指定します
・expressionlistには、Case 句を実行するための条件を指定します
・statementsには、実行する1つ以上のステートメントを指定します（省略可能です）

testexpression が Case expressionlist 式のいずれかと一致する場合は、その Case 句の後から次の Case 句まで、最後の句については End Select までのステートメントが実行されます

testexpression が複数の Case 句の expressionlist 式に一致する場合は、最初に一致した句に続くステートメントのみが実行されます

Case Else 句は、その他のどの Case の選択肢にも testexpression と expressionlist との間に一致するものが見つからない場合に実行する elsestatements を示すために使用されます
Case Else は必須ではありませんが、予測できない testexpression の値を処理するために、Select Case ブロック内で使用したほうがよいでしょう

Select Caseサンプルコード（基本）

'Select Caseステートメントの使用例サンプル1
Sub Select_Case_Sample1()
    Dim Number As Long
    Dim CaseString As String
    
    On Error Resume Next    '数字以外が入力された場合0にするため
    Number = InputBox("1～5の整数を入力してください", "Select_Case_TEST") 'NO入力要求
    
    Select Case Number
        Case 0
            CaseString = " は 0 です"
        Case 1
            CaseString = " は 1 です"
        Case 2
            CaseString = " は 2 です"
        Case Else
            CaseString = " は 3 以上です"
    End Select
    MsgBox "入力値 " & Number & CaseString
End Sub

・７行目で、インプットボックスを表示して1～5の整数入力を要求し入力値をNumberに代入
・９行目で、Select Case に変数 Number を充てています
・10行目、最初の Case 0 を評価して一致していれば変数 CaseString に ” は 0 です”を代入
・一致していない場合、次の Case を評価して行き、一致していれば当該Case句を実行します
・End Select 後、結果をメッセージボックスで評価値を表示します

To キーワードを使ったSelect Caseサンプルコード

To キーワードで範囲指定したサンプルコードです

'Select Case の To キーワード使用例サンプル
Sub Select_Case_Sample2()
    Dim Number As Long
    Dim CaseString As String
    
    On Error Resume Next    '数字以外が入力された場合0にするため
    Number = InputBox("整数を入力してください", "Select_Case_TEST") 'NO入力要求
    
    Select Case Number
        Case 1 To 10
            CaseString = " は1～10の範囲内です"
        Case 11 To 20
            CaseString = " は11～20の範囲内です"
        Case 21 To 50
            CaseString = " は21～50の範囲内です"
        Case 51 To 100
            CaseString = " は51～100の範囲内です"
        Case Else
            CaseString = " は101以上です"
    End Select
    MsgBox "入力値 " & Number & CaseString
End Sub

・10行目、1 To 10（１～10） を評価して一致していれば変数 CaseString に指定文字列を代入
・一致していない場合、次の Case を評価して行き、一致していれば当該Case句を実行します
・End Select 後、結果をメッセージボックスで評価値を表示します

Is キーワードを使ったSelect Caseサンプルコード

'Select Case の Isキーワード使用例サンプル
Sub Select_Case_Sample3()
    Dim Number As Long
    Dim CaseString As String
    
    On Error Resume Next    '数字以外が入力された場合0にするため
    Number = InputBox("整数を入力してください", "Select_Case_TEST") 'NO入力要求
    
    Select Case Number
        Case Is < 10
            CaseString = " は10未満です"
        Case Is < 100
            CaseString = " は100未満です"
        Case Else
            CaseString = " は100以上です"
    End Select
    MsgBox "入力値 " & Number & CaseString
End Sub

・７行目で、インプットボックスを表示して整数の入力を要求し入力値をNumberに代入
・10行目、Case Is < 10（10未満）を評価し、一致していれば変数 CaseString に文字列を代入
・一致していない場合、次の Case を評価して行き、一致していれば当該Case句を実行します
・End Select 後、結果をメッセージボックスで評価値を表示します

その他の例

・「文字列の範囲」や「複数の文字列式」を指定することもできます
・次の例の Case は “everything” と完全に等しい文字列、アルファベット順で “nuts” と “soup” の間にある文字列、および変数 TestItem の現在の値と一致します

elect Case ステートメントを入れ子に（ネスト）する場合

・Select Case ステートメントは入れ子にできます
・入れ子にした場合、各 Select Case ステートメントごとに、対応する End Select ステートメントが必要になります

    Select Case A
        Case 1
            Select Case B    
                Case 4                
                    処理１
                Case 5
                    処理 5
            End Select
        Case 2
            処理２
        Case 3
            処理３
    End Select

スポンサーリンク

Amazonセールで上手に買い物する【必須情報】

Amazonセールで上手に買い物するための「必須情報」です。プライムデーやブラックフライデーなどのビッグセールのほかタイムセールなどをお得に利用できるようにするための情報が満載です。記事内にはAmazonの該当ページへのリンクを豊富に設置

www.kurumico.com

まとめ（おわりに）

くるみこ

は～い！　Select Caseステートメントの説明はここで終了です！
使い方は理解できましたか？　しっかり覚えてくださいね(^^)

はい！　よくわかりました(^^）
いろいろ試してみて、しっかり使い方を覚えるようにします(^^ゞ

くるみこ

はい！　条件分岐の方法の幅が広がりましたね。
次回は、GoTo ステートメントの使い方を解説します。楽しみに待っていてね(^^)/

まとめと感想など

・マクロ（VBA）を実行する際は必ずバックアップを取ってから行ってください！
・マクロ（VBA）は実行後にファイルを保存すると元に戻すことはできません！
・実行後にファイルを保存せず終了すれば、実行前に戻すことができます！

★★★ ランキング参加中！ クリックしてね(^^)/ ★★★

今後の記事について

今回の記事はいかがだったでしょうか。皆さまのお役に立てたなら幸いです(^^;
当面は「初心者向けマクロVBA」の記事を継続して書いていきます

【検討中の今後の記事内容は・・・・・】
・実務に役立つものを提供できるよう現在検討中です
・その他雑記的に「小ネタなどいろいろ」・・・・・
・今後の記事にもご期待ください(^^)/

スポンサーリンク

記事のサンプルファイルをダウンロードできます

この記事のサンプルはこのリンク先からダウンロードでます！

過去の記事で使用したサンプルファイルがダウンロードできるページを設置しています
こちら（このリンク先）からご利用ください

【Excel VBA】サンプルファイル_ダウンロードのページ

【Excel VBA】の記事内で使ったサンプルファイルを（Zipファイルで）ダウンロードできるようにしました。記事内では細かい部分の解説が不十分ですが、実際にファイルをダウンロードして実行することで使えるのかどうか見ていただけたら幸いです。

www.kurumico.com