処理を分岐させる（Ｓｅｌｅｃｔ Ｃａｓｅ構文）＠エクセルマクロＶＢＡ

エクセルのちょっとしたテクニックを紹介します。

ＩＦ構文とは別に一つの条件式に対して、複数の処理を分岐させることができます。それが、Ｓｅｌｅｃｔ　Ｃａｓｅステートメントです。この場合、ＩＦ構文でもコードは書けますが、Ｓｅｌｅｃｔ　Ｃａｓｅステートメントの方がすっきりしていて見やすいです。

・構文
Ｓｅｌｅｃｔ　Ｃａｓｅ　条件式
　　Ｃａｓｅ　条件式の値１
　　　　処理１
　　Ｃａｓｅ　条件式の値２
　　　　処理２
　　Ｃａｓｅ　Ｅｌｓｅ
　　　　処理３
Ｅｎｄ　Ｓｅｌｅｃｔ

※条件式が値１の場合、処理１、値２の場合、処理２を行い、それ以外は処理３を行うという意味です。


以下はサンプルコードになります。試してみて下さいね。

Sub Test4()
　　Dim Num As Integer

　　Num = InputBox("数字を入力して下さい。")
　　Select Case Num
　　　　Case 1 To 9
　　　　　　MsgBox "１桁"
　　　　Case 10 To 99
　　　　　　MsgBox "２桁"
　　　　Case 100 To 999
　　　　　　MsgBox "３桁"
　　　　Case Else
　　　　　　MsgBox "１〜３桁までの正の整数を入力してくださいね。"
　　End Select
End Sub