Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


9407 / 13644 ツリー ←次へ | 前へ→

【27504】Modの除数をみつけるには にしもり 05/8/10(水) 15:03 質問[未読]
【27513】Re:Modの除数をみつけるには 小僧 05/8/10(水) 17:33 回答[未読]
【27514】Re:Modの除数をみつけるには にしもり 05/8/10(水) 17:44 お礼[未読]
【27515】Re:Modの除数をみつけるには 小僧 05/8/10(水) 18:05 発言[未読]
【27544】Re:Modの除数をみつけるには にしもり 05/8/11(木) 12:30 お礼[未読]

【27504】Modの除数をみつけるには
質問  にしもり  - 05/8/10(水) 15:03 -

引用なし
パスワード
   こんにちは。

lr = 416
Do while R<=lr
Select Case R Mod xx
Case a b c・・・
(処理1)
Case Else
(処理2)
Loop
というロジックを書いています。

Rが以下の数字のとき、処理1をしたいとおもいます。
9,13,27,31,81,85,99,103,153,157,171,175,225,229,
243,247,297,301,315,319,369,373,387,391
    
Rが以下の数字のとき、処理2にしたいと思います。        
45,49,63,67,117,121,135,139,189,193,207,211,261,        
265,279,283,333,337,351,355,405,409等

xxにどんな数字をもってくるのがいいのか、いろいろためしてもわかりません。    
a, b, c・・・にどんな数字をもってくるのがいいのかわかりません。
どうすれば早く発見できますでしょうか?

【27513】Re:Modの除数をみつけるには
回答  小僧  - 05/8/10(水) 17:33 -

引用なし
パスワード
   ▼にしもり さん:
こんにちは。

こんな感じですかね…。

Sub Test()
Const lr = 416
Dim R As Long
Dim p As Long
Dim q As Long

p = 1
q = 1
  Do While R <= lr
      Select Case R Mod 72
      Case 9, 13, 27, 31
        ActiveSheet.Cells(p, 1).Value = R
        p = p + 1
      Case 45, 49, 63, 67
        ActiveSheet.Cells(q, 2).Value = R
        q = q + 1
    End Select
  R = R + 1
  Loop
End Sub

【27514】Re:Modの除数をみつけるには
お礼  にしもり  - 05/8/10(水) 17:44 -

引用なし
パスワード
   ▼小僧 さん:
ありがとうございます!
使わせていただきます。
それにしてもどうしてこんなに早くみつけられるのでしょうか・・

【27515】Re:Modの除数をみつけるには
発言  小僧  - 05/8/10(水) 18:05 -

引用なし
パスワード
   ▼にしもり さん:
こんにちは。

VBA とは関係ないんですけどね(笑)。

>Rが以下の数字のとき、処理1をしたいとおもいます。
>9,13,27,31,81,85,99,103,153,157,171,175,225,229,
>243,247,297,301,315,319,369,373,387,391

処理1 の差を見ていくと

4,14,4,50,4,14,4,50…

という事は「4 + 14 + 4 + 50 = 72」毎の周期になっています。

>Rが以下の数字のとき、処理2にしたいと思います。        
>45,49,63,67,117,121,135,139,189,193,207,211,261,        
>265,279,283,333,337,351,355,405,409等

同じく処理2 も

4,14,4,50…

なので、素直に72で割った余りで行けそうだな…と。

検証の為にセルに代入してみたらあっていました^^

【27544】Re:Modの除数をみつけるには
お礼  にしもり  - 05/8/11(木) 12:30 -

引用なし
パスワード
   ▼小僧 さん:
なるほど差を見ていくのですね。
その差を足して周期を見つけるのですね。
お蔭様で一つ知識を得ました。
どうもありがとうございました。

9407 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free