条件分岐(Select Case ステートメント)
Select Case ステートメントの使い方
Select Case form
[ Case value1
[ statements1 ] ]
[ Case value2
[ statements2 ] ]
[ ・・・・・ ]
[ Case Default
[ default_statements ] ]
[ Case Else
[ else_statements ] ]
End Select
【項目の説明】
- form ・・・ 条件式(数式または文字列式)
- value1(2) ・・・ 次の形式で指定(省略可。ただしCase節がある場合は必須)
(1)【値】
(2)【値】To【値】
(3) Is【比較演算子】【値】 - statements1(2) ・・・ form が value1(2) と一致したとき statements1(2) が実行されます(省略可)。
- default_statements ・・・ form が Empty値(初期化されていない値)のとき、default_statements が実行されます(省略可)。
- else_statements ・・・ form が Case 節のいずれとも一致しないとき else_statements が実行されます(省略可)。
キーワード To と Is は、値の範囲を指定するキーワードです。
※ この Is は、比較演算子の Is とは別物です。
To を使って値の範囲を指定するときは、小さい方の値を先(左側)に指定します。
ここで使用できる比較演算子の種類には、より小さい(<)、以下(<=)、より大きい(>)、以上(>=)、等しくない(<>)、等しい(=) があります。
等価演算子(Is)と文字列比較演算子(Like)は使用できません。
Case 節には複数の式や範囲を指定可能。その場合はカンマ(,)で区切ります。
(例)Case 1 To 10, 23, Is > 100
Select Case ステートメントの使用例
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 26 27 28 29 |
Sub sample_select() Dim form As Integer form = -100 Select Case form Case Default MsgBox 1000 Case 1, 2 MsgBox form Case 3 To 10 MsgBox form Case Is > 10 MsgBox form Case Else MsgBox form End Select End Sub |
ソース実行結果
関連記事
-
繰り返し処理(Do…Loop ステートメント)
Do…Loop ステートメントの使い方 【構文 1】 Do [ Wh …
-
条件分岐 If文(If…Then…Else ステートメント)
If…Then…Else ステートメントの使い方 【構文 …
-
ユーザー定義型変数を使う(Type ステートメント)
Type ステートメントを使う Type ステートメントを使うと1つまたは複数の …
-
With ステートメントを使う
With ステートメントを使う With ステートメントを使うことで、1度指定し …
-
配列が引数のプロシージャを作成する
配列が引数のプロシージャを作成する 【構文】 { Sub | Function …
-
変数やプロシージャのスコープ(適用範囲)
変数やプロシージャのスコープ(適用範囲) 【構文:変数の宣言】 { Dim | …
-
引数を可変にする( ParamArray )
ParamArray キーワード ParamArray キーワードを使用すると任 …
-
繰り返し処理(For Each…Next ステートメント)
For Each…Next ステートメントの使い方 【構文】 For …
-
繰り返し処理(For…Next ステートメント)
For…Next ステートメントの使い方 【構文】 For coun …
-
エラー処理(On Error ステートメント / Errオブジェクト)
On Error ステートメントの使い方 【構文 1】 On Error GoT …