Excel VBA質問箱 IV

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

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


55199 / 76732 ←次へ | 前へ→

【26311】Re:表出回数を平均化するには
お礼  にしもり  - 05/7/1(金) 10:40 -

引用なし
パスワード
   ▼ponponさん、小僧 さん:
アドバイスを参考に下記のようにしたら、できました。
Select Caseの直後にMod xxと書けるのですね。
また、別の質問がありますが、整理してから投稿するように致します。
とりあえずどうもありがとうございました。

    r = 3
    i = 1
    k = 1
    m = 6
    Do While r <= lr
      Select Case r Mod 92

      Case 11, 16, 34, 39, 57, 62
          v = Worksheets("人員").Range("B2:B5").Value
          .Cells(r, 6).Value = v(k, 1)
          k = k + 1
          If k > 4 Then k = 1
          r = r + 1
     
      Case Else
          v = Worksheets("人員").Range("A2:A30").Value
          .Cells(r, 6).Value = v(i, 1)
          i = i + 1
          If i > 29 Then i = 1
          r = r + 1

      End Select
    Loop

0 hits

【26255】表出回数を平均化するには にしもり 05/6/29(水) 17:12 質問
【26268】Re:表出回数を平均化するには ponpon 05/6/30(木) 0:11 発言
【26292】Re:表出回数を平均化するには にしもり 05/6/30(木) 17:21 お礼
【26294】Re:表出回数を平均化するには にしもり 05/6/30(木) 17:37 質問
【26301】Re:表出回数を平均化するには ponpon 05/6/30(木) 23:04 発言
【26308】Re:表出回数を平均化するには 小僧 05/7/1(金) 9:56 回答
【26311】Re:表出回数を平均化するには にしもり 05/7/1(金) 10:40 お礼
【26323】Re:○の数を平準化するには にしもり 05/7/1(金) 13:57 質問
【26367】Re:○の数を平準化するには ponpon 05/7/2(土) 22:25 発言
【26405】Re:○の数を平準化するには にしもり 05/7/4(月) 15:56 質問
【26415】Re:○の数を平準化するには ponpon 05/7/4(月) 20:13 発言
【26435】Re:○の数を平準化するには にしもり 05/7/5(火) 15:21 発言
【26461】Re:○の数を平準化するには ponpon 05/7/6(水) 0:23 発言
【26467】Re:○の数を平準化するには にしもり 05/7/6(水) 10:10 お礼
【26475】Re:○の数を平準化するには 小僧 05/7/6(水) 13:52 発言
【26526】Re:○の数を平準化するには にしもり 05/7/7(木) 20:28 お礼

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