|
▼まっちゃん さん:
今晩は、このような表の作成って結構面倒なんですが、世の中にはあるものです。
こんな感じで書いてみました。
A B C D K
1
2 作業A 作業B 作業C 作業D Aのサイクル
3 9/1 1 4 4 1
4 9/2 2 5 5 2
5 9/3 3 6 6 3
6 9/4 4 7 - 1 4
7 9/5 1 1 1
8 9/6 2 2 2
9 9/7 3 3 3
10 9/8 4 4 4
11 9/9 1 5 5
12 9/10 2 6 6
9/11 3 7 - 2
9/12 4 1 1
9/13 1 2 2
9/14 2 3 3
9/15 3 4 4
9/16 4 5 5
12/31
表を慣れている行主体で書いてみました。
K列に「作業Aのサイクル」を書きます。
作業Aのコードとして
Sub test1()
With Range("C3:C6")
.Value = Worksheets("Sheet3").Range("K3:K6").Value '作業Aサイクル
.AutoFill Destination:=Range("C3:C124"), Type:=xlFillCopy
End With
End Sub
で、12月31日まで出来上がります。行数を増やせば来年の3月31日までも出来ます。
以下、作業Bのサイクルも作成方法は同じです。
仕上がったら、必要に応じて、月の間に空白行(行の挿入)を入れ、月単位で表を作成されては如何でしょう。
少し違いますが、こんなものも書きました。上のほうが良いかも?
Sub test3()
m = 3
Do While m <= 122
i = 1
Do While i <= 4
Range("C" & m).Value = _
Worksheets("Sheet3").Cells(i + 2, 11).Value
i = i + 1
m = m + 1
Loop
Loop
End Sub
|
|