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

条件分岐（Select Case ステートメント）

2015/03/23

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ソース

　
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

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

　

ソース実行結果

- 構文 select case ステートメント, エクセルVBA, 構文

Tweet

Message コメントをキャンセル

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

関連記事

: プロシージャ内のサブルーチンへ移動（GoSub…Return ステートメント）

GoSub…Return ステートメント GoSub ステートメント …

: With ステートメントを使う

With ステートメントを使う With ステートメントを使うことで、１度指定し …

: プロシージャを作成する（ Sub, Function ）

プロシージャを作成するプロシージャとは、実行時に 1 つの単位として処理される …

: set ステートメントを使う

Set ステートメントを使う【構文 1】 Dim objectvar [ As …

: 繰り返し処理（For Each…Next ステートメント）

For Each…Next ステートメントの使い方【構文】 For …

: エラー処理（On Error ステートメント / Errオブジェクト）

On Error ステートメントの使い方【構文 1】 On Error GoT …

: 省略可能な引数・デフォルト値を設定（ Optional キーワード）

Optional キーワード Optional キーワードを使用するとプロシージ …

: 配列が引数のプロシージャを作成する

配列が引数のプロシージャを作成する【構文】 { Sub | Function …

: 繰り返し処理（While…Wend ステートメント）

While…Wend ステートメントの使い方【構文】 While …

: プロシージャ内のサブルーチンへ移動（GoTo ステートメント）

GoTo ステートメント GoTo ステートメントは、指定したラベルのサブルーチ …

PREV: 条件分岐 If文（If...Then...Else ステートメント）
NEXT: 繰り返し処理（Do...Loop ステートメント）