Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9409 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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･･･
(処理１）
Case Else
(処理２）
Loop
というロジックを書いています。

Rが以下の数字のとき、処理１をしたいとおもいます。
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が以下の数字のとき、処理２にしたいと思います。　　　　　　　　
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が以下の数字のとき、処理１をしたいとおもいます。
>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が以下の数字のとき、処理２にしたいと思います。　　　　　　　　
>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 -
引用なし
パスワード
   ▼小僧 さん：
なるほど差を見ていくのですね。
その差を足して周期を見つけるのですね。
お蔭様で一つ知識を得ました。
どうもありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9409 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free