回答編集履歴
2
コードを一部変更
test
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
以下のコードでいかがでしょうか。
|
|
1
|
+
以下のコードでいかがでしょうか。
|
|
2
2
|
|
|
3
3
|
「Microsoft Scripting Runtime」へ参照設定してください。
|
|
4
4
|
|
|
@@ -10,15 +10,19 @@
|
|
|
10
10
|
|
|
11
11
|
Const cnsWsh1RowBgn = 2
|
|
12
12
|
|
|
13
|
-
Const cnsWsh1Col担当者 = 3
|
|
13
|
+
Const cnsWsh1Col担当者 = 3 'C列
|
|
14
|
+
|
|
15
|
+
Const cnsWsh1Col年月日Bgn = 4 'D列
|
|
16
|
+
|
|
17
|
+
Const cnsWsh1Col年月日End = 12 'L列
|
|
14
18
|
|
|
15
19
|
Const cnsWsh2Row年月日 = 2
|
|
16
20
|
|
|
17
21
|
Const cnsWsh2RowBgn = 3
|
|
18
22
|
|
|
19
|
-
Const cnsWsh2Col担当者 = 3
|
|
23
|
+
Const cnsWsh2Col担当者 = 3 'C列
|
|
20
24
|
|
|
21
|
-
Const cnsWsh2Col年月日 = 4
|
|
25
|
+
Const cnsWsh2Col年月日 = 4 'D列
|
|
22
26
|
|
|
23
27
|
|
|
24
28
|
|
|
@@ -122,9 +126,7 @@
|
|
|
122
126
|
|
|
123
127
|
|
|
124
128
|
|
|
125
|
-
lngWsh1Col = cnsWsh1Col
|
|
129
|
+
For lngWsh1Col = cnsWsh1Col年月日Bgn To cnsWsh1Col年月日End
|
|
126
|
-
|
|
127
|
-
Do
|
|
128
130
|
|
|
129
131
|
For lngWsh1Row = cnsWsh1RowBgn To lngWsh1RowEnd
|
|
130
132
|
|
|
@@ -152,9 +154,7 @@
|
|
|
152
154
|
|
|
153
155
|
Next lngWsh1Row
|
|
154
156
|
|
|
155
|
-
|
|
157
|
+
Next lngWsh1Col
|
|
156
|
-
|
|
157
|
-
Loop Until IsDate(wsh1.Cells(cnsWsh1RowBgn, lngWsh1Col)) = False
|
|
158
158
|
|
|
159
159
|
|
|
160
160
|
|
1
説明文を修正
test
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
以下のコードでいかがでしょうか。２行目のL列まで日付が入っている事が前提です。
|
|
1
|
+
以下のコードでいかがでしょうか。Sheet1の２行目のL列まで日付が入っている事が前提です。
|
|
2
2
|
|
|
3
3
|
「Microsoft Scripting Runtime」へ参照設定してください。
|
|
4
4
|
|