式の値に応じて多分岐を行う(Switch 関数)
Switch 関数 の使い方
Switch 関数は、「式・値」を対にして指定して、左から順に評価し、最初に真(True)に評価された値を返します。
result = Switch ( expr1, value1 [, expr2, value2, … , exprn, valuen ] )
引数・戻り値
- expr1,expr2 … exprn ・・・ 評価対象の式を指定します。
- value1,value2 … valuen ・・・ 対応する式( expr1, expr2 … exprn )が真(True)の場合に返す式・値を指定します。
- result ・・・ 引数( expr1, expr2 … exprn )で最初に、真(True)と評価された式に対応する Value。
Switch 関数は、左から右の順で式を評価し、最初に真(True)と評価された式に対応した値(式)が返されますが、評価はすべての式に対して行われます。このため、評価すると 0 による除算エラーが発生する式が1つでも含まれている場合は、エラーとなります。
真(True)と評価された最初の式に、Null 値が関連付けられている場合、Null 値を返します。
また、すべての式が真(True)と評価されない場合も Null 値を返します。
Switch 関数 の使用例
サンプルVBAソース
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
Sub Sample_Switch() Dim str, ret str = InputBox("数字「1-3」のいずれかを入力してください") ret = Switch(str = 1, "1 を入力", str = 2, "2 を入力", str = 3, "3 を入力") If Not IsNull(ret) Then MsgBox ret Else MsgBox "「1-3」以外を入力しました" End If End Sub |
実行結果(「2」を入力)
実行結果(「abc」を入力)
関連記事
-
-
文字列:文字列の長さを取得( Len 関数、LenB 関数 )
Len 関数(文字列の長さを取得) 【書式】 result_len = Len …
-
-
Array 関数(バリアント型の配列を作成)
Array 関数の使い方 【書式】 myArray = Array ( elem …
-
-
指定した文字列を数値に変換する(Val 関数)
Val 関数 の使い方 Val 関数は、指定した文字列に含まれる数字を数値として …
-
-
四捨五入・切り上げ・切り捨て・丸め(Round 関数 他)
Round 関数(丸め)の使い方 【書式】 value = Round ( ex …
-
-
カレントフォルダの取得・設定(DefaultFilePath プロパティ)
DefaultFilePath プロパティ カレントフォルダとは、ブックを開いた …
-
-
XlThemeColor 列挙型
XlThemeColor 列挙 定数 値 内容 xlThemeColorDark …
-
-
エラー(CVErr 関数・IsError 関数・Error 関数)
CVErr 関数(エラー番号をエラー値に変換する)の使い方 【書式】 retur …
-
-
変数が日付型かどうかをチェックする( IsDate 関数 )
IsDate 関数の使い方 【書式】 result = IsDate( expr …
-
-
文字に下線を設定する(Underline プロパティ)
下線を設定(Underline プロパティ) Underline プロパティは、 …
-
-
日付時刻:数値から日付・時刻データを取得( DateSerial 関数、TimeSerial 関数 )
DateSerial 関数(数値を使って日付データを取得) 【書式】 date …