Select　Case（条件分岐処理）

HOME >>Select　Case（条件分岐処理）

今回はSelect　Caseを説明します。

基本的な書き方は

Select　Case　条件式　Or　値
　　Case　値
　　　一致した時の処理内容
　　Case　値
　　　一致した時の処理内容
　　Case　Else
　　　その他の処理
End　Select

これはＩＦ文と同じですが、条件が多い場合などに使うと便利です。

IF文だと条件が増える度にどんどん増えていくのが

Select　Caseだと綺麗にまとまります。

例えば、セルに入力されている値が１～４で

１なら１、２なら２と表示したい場合の処理を書いてみます。

ＩＦ文で書いた場合↓

Sub test2()
'変数宣言（変数名をｉとkし、型をIntegerとする）
Dim i As Integer
Dim k As Integer

'変数にアクティブな行と列の値をいれる
i = ActiveCell.Row
k = ActiveCell.Column

'セルの値が１なら
If Cells(i, k).Value = 1 Then
メッセージを表示
MsgBox ("1です")
Elseif Cells(i, k).Value = 2 Then
MsgBox ("2です")
Elseif Cells(i, k).Value = 3 Then
MsgBox ("3です")
Elseif Cells(i, k).Value = 4 Then
MsgBox ("4です")
End　Select
End　Sub

途中まで書きましたが、わかりにくいしめんどうじゃないですか？

こんな時にSelect　Caseを使って書くと↓

Sub test2()
'変数宣言（変数名をｉとkし、型をIntegerとする）
Dim i As Integer
Dim k As Integer

'変数にアクティブな行と列の値をいれる
i = ActiveCell.Row
k = ActiveCell.Column

'セルの値が１なら
Select　Case Cells(i, k).Value
　　Case　１
　　メッセージを表示
　　MsgBox ("1です")
　　Case　２
　　MsgBox ("２です")
　　Case　３
　　MsgBox ("３です")
　　Case　４
　　MsgBox ("４です")
End　Select

見やすくありませんか？？

この様に条件が多い場合などに使うのが効果的です。

次は繰り返し処理を書いていきます。