Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

式の値に応じて多分岐を行う（Switch 関数）

2015/05/19

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 による除算エラーが発生する式が１つでも含まれている場合は、エラーとなります。

真（True）と評価された最初の式に、Null 値が関連付けられている場合、Null 値を返します。
また、すべての式が真（True）と評価されない場合も Null 値を返します。

Switch 関数の使用例

サンプルVBAソース

　

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

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」を入力）

- VBA基本 select case ステートメント, Switch 関数, VBA基本, エクセルVBA, 多分岐, 条件分岐

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: データ型を調べて、そのデータ型を示す数値を返す（VarType 関数）

VarType 関数の使い方 VarType 関数は、引数に、データ型を調べた …

: 文字列：文字を指定数並べた文字列を返す（String 関数）

String 関数【書式】 result = String ( number, …

: 配列の添字の最小値を「1」に設定する

Option Base ステートメントを使用する【書式】 Option Bas …

: 文字列：文字列の指定した位置から指定文字数取得（Mid 関数,MidB 関数）

Mid 関数・MidB 関数の使い方【書式】 result_mid = Mi …

: フォントの設定（Font プロパティ）

フォントの設定（Font プロパティ）指定されたオブジェクトのフォント情報（F …

: 色の設定（ThemeColor プロパティ・TintAndShade プロパティ）

ThemeColor プロパティ・TintAndShade プロパティテーマカ …

: 文字列：２つの文字列を比較する（StrComp 関数）

StrComp 関数の使い方【書式】 result = StrComp ( s …

: 色を設定する（QBColor 関数）

QBColor 関数 QBColor 関数は、指定した色番号に対応するRGB コ …

: 変数が配列かどうかをチェックする（ IsArray 関数）

IsArray 関数の使い方【書式】 result = IsArray( va …

: 指定したセル範囲のサイズを変更（Resize プロパティ）

Resize プロパティ指定したセル範囲のサイズ（行数や列数）を変更します。 …

PREV: 式を評価し、結果（真・偽）に応じた式・値を返す（IIf 関数）
NEXT: IME の現在の状態を取得します（IMEStatus 関数）