Excel VBA質問箱 IV

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

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


54023 / 76732 ←次へ | 前へ→

【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
2 hits

【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 お礼

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