エクセルマクロVBA 条件分岐 Choose関数 Switch関数
Choose関数やSwitch関数は、条件によって異なる戻り値を返す関数です。
戻り値によって異なる処理を行うときに使用します。
「エクセルマクロVBA 条件分岐 Choose関数 Switch関数」
１．入力されている値によって表示するメッセージを変えたい
（１）使い方
数値を入力し、Choose関数で数値ごとに異なるメッセージを表示します。
次にSwitch関数を使用して、その表示されたメッセージによって、次のメッセージを選択して表示します。
（２）コード
Sub sample()
Dim 回答 As Variant
Dim メッセージ As Variant
回答 = InputBox（”１～５までの数値を入力してください”）
If 回答 ＝”” Then
MsgBox ”１～５までの数値を入力してください”
Exit Sub
メッセージ ＝ Choose（回答,”１を選択”,”２を選択”,”３を選択”,”４を選択”,”５を選択”）
If IsNull（メッセージ）Then
MsgBox ”１～５までの数値を入力してください”
Exit Sub
End If
MsgBox メッセージ
MsgBox Switch（メッセージ＝”１を選択”,”１が選択されました”,
メッセージ＝”２を選択”,”２が選択されました”,
メッセージ＝”３を選択”,”３が選択されました”,
メッセージ＝”４を選択”,”４が選択されました”,
メッセージ＝”５を選択”,”５が選択されました”）
End If
（３）解説
インプットボックスに入力された「回答」を評価し、１のときに第２引数の値を、２のときに第３引数を返します。
１～５以外のデータが入力された場合は、メッセージを表示してプロシージャを終了します。
Choose関数は第１引数で指定された値を、第２引数以降の引数から選択して返します。
例えば、第１引数に１が指定されている場合は第２引数に指定された値を、３が指定されている場合は第４引数に指定された引数を返します。
該当する引数がない場合はNullを返します。
指定された変数やプロパティなどの値がNullかどうかは、IsNull関数を使用して確認することができます。
IsNull関数は、対象となるプロパティなどの値がNullのとき、Trueを返します。
①Choose関数
第１引数に指定された数値をもとに、それに対応する引数の値を返します。
Choose（index,choice-1［,choose-2,・・・［,choose-n］］）
②IsNull関数
対象となる値がNullかどうかを確認します。
NullのときTrueを、Null以外のときFalseを返します。
IsNull(arg)
③Switch関数
式を評価して、対応する値を返します。
Switch(expr-1,value-1［,expr-2,value-2・・・［,expr-n,value-n］］)
「エクセルマクロVBA 条件分岐 Choose関数 Switch関数」について説明しました。
Selset Caseステートメントについてはこちらから↓
If Then Elseステートメントについてはこちらから↓
