Home » エクセルマクロ・Excel VBAの使い方 » 条件分岐 » Select Case文で複数条件Orはどう書く？

Select Case文で複数条件Orはどう書く？

対象：Excel2007, Excel2010, Excel2013, Windows版Excel2016

「vba または 条件 case」
「vba case 複数条件 or」
といった検索で、このサイト・インストラクターのネタ帳へのアクセスが、時折あります。

VBA（Visual Basic for Applications）の条件分岐文の一つSelect Case文で、Or条件をどう書けばいいのかを探している方による検索です。

VBAのSelect Case文に関する定番の疑問と言っていいでしょう。

［スポンサードリンク］

Select CaseのOr条件を使ったサンプルマクロ

わかってしまえば、あっけない書き方でSelect Case文のOr条件となります。

Sub SelectCase文のOr条件1()
　Dim date_ As Variant

　date_ = ActiveCell.Value
　If Not IsDate(date_) Then Exit Sub

　Select Case Weekday(date_)
　　Case 1
　　　MsgBox "日曜日だ。"
　　Case 5, 6
　　　MsgBox "もうすぐ週末ですよ。"
　　Case 7
　　　MsgBox "週末（土曜日）ですね。"
　　Case Else
　　　MsgBox "平日です。"
　End Select
End Sub

アクティブセルに日付が入力されているときに上記のマクロを実行すると、木曜日か金曜日の日付の場合に、「もうすぐ週末ですよ。」というメッセージが表示されます。

この判別を行っている、
　　Case 5, 6
のように「,」（カンマ）で複数の条件を羅列するだけでOr条件となります。

Select CaseのOr条件ではToやIsも使える

Select Case文では、ToやIsといったキーワードも使え、これらも「,」で区切って羅列することでOr条件になります。

Sub SelectCase文のOr条件2()
　Dim num As Variant

　num = ActiveCell.Value
　If Not IsNumeric(num) Then Exit Sub

　Select Case num
　　Case 1 To 3, Is >= 10
　　　MsgBox "○"
　　Case Else
　　　MsgBox "－"
　End Select
End Sub

アクティブセルに数値が入力されているときに上記のマクロを実行すると、1以上3以下、または10以上のときに、「○」がメッセージボックスに表示されます。

［スポンサードリンク］

Home » エクセルマクロ・Excel VBAの使い方 » 条件分岐 » Select Case文で複数条件Orはどう書く？

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓ 上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓ 『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓ PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓ 数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓ 小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓ Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓ Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓ Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓ 図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓ グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓ Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓


「条件分岐」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.