Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

54038 / 76738

←次へ　｜　前へ→


	【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･･･にどんな数字をもってくるのがいいのかわかりません。
どうすれば早く発見できますでしょうか？

0 hits

▼

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

≪