SELECT CASE を OR でつなげたい場合？。

質問

SELECT CASE を OR でつなげたい場合？。

SELECT CASE を OR でつなげて判定したいと思います。
下記の構文は正しくないと思います。
どなたか分かる方がいればご教授下さい。

Select Case tuki_hantei
Case 3 Or 6 Or 9 Or 12
syuuki = 1
Case 1 Or 4 Or 7 Or 10
syuuki = 2
Case 2 Or 5 Or 8 Or 11
syuuki = 3
End Select

回答No.2

BellBell · ベストアンサー

3 , 6 , 9 , 12
すべて、3の剰余を取ると0になるでしょ？
なので、それに+1すると結果は1
syuuki = 1

1 , 4 , 7 , 10
すべて、3の剰余を取ると1になるでしょ？
なので、それに+1すると結果は2
syuuki = 2

2 , 5 , 8 , 11
すべて、3の剰余を取ると2になるでしょ？
なので、それに+1すると結果は3
syuuki = 3

すなわち、Select Caseで分岐させてひとつひとつ確認していた事が
一文で書けるって事で、紹介しました。

数列に規則性があり、剰余を使って一発計算できるので紹介しました。

剰余やビット演算は意外にあちこちで使いまくりますので、覚えておいて損はないですよ。
理解すれば、数学パズル的な面白さもありますし。

お礼

ありがとうございました。
目から鱗状態です。
数学の苦手な私で申し訳ありませんでした。

回答No.1

BellBell

Select Case tuki_hantei
Case 3 , 6 , 9 , 12
syuuki = 1
Case 1 , 4 , 7 , 10
syuuki = 2
Case 2 , 5 , 8 , 11
syuuki = 3
End Select

実際には、
syuuki = (tuki_hantei Mod 3)+1
としますけど。

お礼

ありがとうございます。意味が分からず、補足させて頂きました。

補足

ご教授ありがとうございます。
tuki_hantei（月）が３月か６月か９月か１２月の時に周期に１をセットしたいです。
syuuki = (tuki_hantei Mod 3)+1の意味が分からないのですが。
例えばtuki_hantei:3、Mod:剰余、3:整数　→　３÷３＝１　に　＋１をsyuukiにセット？？？。