|
また質問させていただきます。
下記はプログラムの一部分です。
このままですと、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
|
|