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

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

投稿日時 - 2009-10-09 10:23:00

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

投稿日時 - 2009-10-08 22:03:28

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

投稿日時 - 2009-10-08 21:31:44

あとこんなのも

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

投稿日時 - 2009-10-08 21:20:23

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

投稿日時 - 2009-10-08 21:18:26