Excel VBA質問箱 IV

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

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


55222 / 76738 ←次へ | 前へ→

【26294】Re:表出回数を平均化するには
質問  にしもり  - 05/6/30(木) 17:37 -

引用なし
パスワード
   また質問させていただきます。

下記はプログラムの一部分です。
このままですと、11,16,34,39,57,62,80,85,103,108,126,131,149,154,
172,177,195,200,218,223,241,246,264,269,287,292,310,315,333,338,
356,361,379,384,402,407,425,430,448,453,471,476,494,499,517,522行目は、case No2に入り、人員のB2:B5から持ってきてしまいます。
ですが、80,85,172,177,264,269,356,361,448,453行目は、
case No1に入るようにしたいのです。
そのときどう書けばいいかわかりません。
どうかご教授ください。

    r = 3
    i = 1
    k = 1
    m = 6
    Do While r <= lr
      Select Case False
'case No1
        Case r Mod 23 = 11 Or r Mod 23 = 16
          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
'case No2
        Case Else
          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
     
      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 お礼

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