回答編集履歴
1
不要変数削除
test
CHANGED
|
@@ -16,10 +16,6 @@
|
|
|
16
16
|
|
|
17
17
|
|
|
18
18
|
|
|
19
|
-
Dim datePeriod As Date
|
|
20
|
-
|
|
21
|
-
datePeriod = dateStartDate
|
|
22
|
-
|
|
23
19
|
Dim cntColl As Long '列変数
|
|
24
20
|
|
|
25
21
|
cntColl = 5
|
|
@@ -28,9 +24,7 @@
|
|
|
28
24
|
|
|
29
25
|
Do While wsTemplate2.Cells(2, cntColl - 1).Value <> dateEndDate '終了日でない間続ける
|
|
30
26
|
|
|
31
|
-
wsTemplate2.Cells(2, cntColl).Value = date
|
|
27
|
+
wsTemplate2.Cells(2, cntColl).Value = dateStartDate + cntColl - 5
|
|
32
|
-
|
|
33
|
-
datePeriod = datePeriod + 1
|
|
34
28
|
|
|
35
29
|
cntColl = cntColl + 1
|
|
36
30
|
|