VBAでorを使用しているときの合致条件

質問

お世話になります。
vbaで、下記の様なif文があるときに、
iは、1,2,3のどれで合致しているか判別する方法はありますか?

現在は、下記のように処理(1)を繰り返し、書いているのを
一度で済ませたいと思っています。

-------現在----------------
if i=1 then
'処理(1)
'iの値が1の時の処理
elseif i=2 then
'処理(1)
'iの値が2の時の処理
elseif i=3 then
'処理(1)
'iの値が3の時の処理
endif
-----------------------------------
----------------理想---------------------------
if i=1 or i=2 or i=3 then
'処理(1)
★★ここの時点でiの値を取りたい
endif
'処理で、iの値によって分岐
------------------------------------------

回答No.2

cj_mover · ベストアンサー

こんにちは。
こんな感じのことでしょうか？

Sub Re8336327()
　　Dim nMatchIdx As Long
　　Dim i As Long
　　For i = 0 To 4

　　　　Select Case i
　　　　Case 1, 2, 3
　　　　　　' ' 共通の処理、処理(1)
　　　　　　' ' ★★ここの時点でiの値がどの条件にマッチしているかを取りたい
　　　　　　nMatchIdx = Application.Match(i, Array(1, 2, 3), 0)
　　　　　　Debug.Print "i = "; i, "条件("; nMatchIdx; ")にマッチ"　　'　　←確認用の仮コード
　　　　End Select

　　　　Select Case nMatchIdx
　　　　Case 1
　　　　　　' ' 条件( 1 )の場合の個別処理
　　　　Case 2
　　　　　　' ' 条件( 2 )の場合の個別処理
　　　　Case 3
　　　　　　' ' 条件( 3 )の場合の個別処理
　　　　Case Else　　' ' 条件( 1 )～条件( 3 )にマッチしない場合のの個別処理（必要なら）
　　　　　　' ' 条件( 1 )～条件( 3 )にマッチしない場合のの個別処理（必要なら）
　　　　End Select

　　Next i
End Sub

ベタに書くと以下のようになりますが、
繰り返し同じ処理を書くのに抵抗があると、、、。

Sub Re8336327a()
　　Dim i As Long
　　For i = 0 To 4
　　　　Select Case i
　　　　Case 1
　　　　　　' ' 共通の処理、処理(1)
　　　　　　' ' 条件( 1 )の場合の個別処理
　　　　Case 2
　　　　　　' ' 共通の処理、処理(1)
　　　　　　' ' 条件( 2 )の場合の個別処理
　　　　Case 3
　　　　　　' ' 共通の処理、処理(1)
　　　　　　' ' 条件( 3 )の場合の個別処理
　　　　Case Else
　　　　　　' ' 条件( 1 )～条件( 3 )にマッチしない場合のの個別処理
　　　　End Select
　　Next i
End Sub

ただ、if i=1 or i=2 or i=3 then　条件に合致する場合の
共通の処理であるとところの"処理(1)"そのものを
サブルーチンとして別のプロシージャにかいてしまえば、

Sub Re8336327a()
　　Dim i As Long
　　For i = 0 To 4
　　　　Select Case i
　　　　Case 1
　　　　　　' ' 共通の処理
　　　　　　ProcSub
　　　　　　' ' 条件( 1 )の場合の個別処理
　　　　Case 2
　　　　　　' ' 共通の処理
　　　　　　ProcSub
　　　　　　' ' 条件( 2 )の場合の個別処理
　　　　Case 3
　　　　　　' ' 共通の処理
　　　　　　ProcSub
　　　　　　' ' 条件( 3 )の場合の個別処理
　　　　Case Else
　　　　　　' ' 条件( 1 )～条件( 3 )にマッチしない場合のの個別処理
　　　　End Select
　　Next i
End Sub

Sub ProcSub()
　　' ' 処理(1)
End Sub

これでも案外スッキリ書けますけれど。
後は、状況やお好み次第ですけれど。

お礼

やっぱり、どうがんばっても冗長な記載になりますよね。。。

ありがとうございました！！

回答No.3

山田 太郎（@f_a_007）

Q、iは、1,2,3のどれで合致しているか判別する方法はありますか?
A、i の値で判別します。

お礼

ほんと、ばかですね。

回答No.1

web2525

If文をネストしなくとも
Select Case
http://officetanaka.net/excel/vba/statement/SelectCase.htm

こんな形でも処理はできる