ｏｒをまとめることはできないか？

質問

Dim 月 As Integer
If 月 = 3 Or 月 = 6 Or 月 = 9 Or 月 = 12 Then
End If
の場合は上の様に記載すればいいのですが
「もしくは」の条件がたくさんある場合、
(月,"or",3,6,9,12)
のようなことはできないのかな？と思いました。

今の条件は４つなので楽チンですが
条件が１０個、２０個となっても
Or 月 = 数値
と書き続けるしかないのでしょうか？

連番ではなく、飛び飛びの数です。
ご教授よろしくお願い致します。

回答No.1

kmetu · ベストアンサー

条件が多くなるとそこにパターンが生まれないでしょうか
そのパターンを条件にしてしまえばそれほど多くの条件を
書かなくてすみます。

If 月 = 3 Or 月 = 6 Or 月 = 9 Or 月 = 12 Then
は
月 MOD 3 =0 and 月<13
でもいけますよね

お礼

パターンを探ってみます。ありがとうございます。

回答No.6

KURUMITO

次のようにしてはどうでしょう。
Dim 月 As Integer
If 月 / 3 = Int(月 / 3) Then
・・・・
End If

お礼

ありがとうございます。大変参考になりました。

回答No.5

imogasi

（１）配列に条件となる値を入れて、０からUBound（ｘ）までのようその値と等しいか繰り回して聞く。ORなら見つかったところで繰り回し処理を脱出。質問のような書き方よりはましだろう。
（２）EXCELの場合は同一列の複数セルに条件値を入力し、そのセル範囲でFindメソッドで聞く。見つかれば条件をみたし、見つからなければ条件不成立。EXCELの予定する方法かもしれない。色々なデータはシートのセルに置くのが原則。
（３）（順次比較以外に）配列の値に関し、Find機能はVBAではないと思う。（だんだん言語によっては設けられていくと思う）。
自分のコードで検索すればよい。幸い、２分検索法（知ってますか）という、コード数も10行以下の、検索回数も少なくてすむアルゴリズムがある。自分で組めばよい。
（４）数式で表されるような（数列的な）ルール性があれば、それを条件で使う（プログラム化する）のが一番です。
（５）配列で１，３，９だけ該当の場合、
ｘ＝Array("","1","","2","","","","","","9","")
という配列を作って
ｙ＝２
if x(y)<>"" then
'条件該当
Else
'条件該当せず
End IF
といった方法もある。
（６）もっと条件が多ければ、ファイル（多分テキストファイルで済む）にデータを持ち、必要の都度、読み込んでそのデータと比較するなどになろう。

お礼

お詳しいですね。ありがとうございます。

回答No.4

okormazd

VBのようなので、プログラム言語の仕様です。
質問のの場合は　、
If 月 Mod 3=0 then
でいいですが、If文を使う限り、
何らかの規則性でもなければ、一般的にはまとめて記述することはできません。

お礼

ありがとうございます。

回答No.3

kmetu

あとこんなのも

WorksheetFunction.Or(月 = 3 , 月 = 6 , 月 = 9 , 月 = 12)

お礼

関数も使えるのですね。ありがとうございます。

回答No.2

watabe007

規則性が無いのなら
Select Case 月
　　Case 3, 6, 9, 12, 13,17
　　　　MsgBox "適合"
　　Case Else
　　　　MsgBox "不適合"
End Select

お礼

Select Caseが使えるのですね。ありがとうございます。