質問編集履歴
1
現在のソースに更新
test
CHANGED
File without changes
|
test
CHANGED
@@ -162,7 +162,7 @@
|
|
162
162
|
|
163
163
|
Function sakuseisql_detail(ByVal sqlB As Workbook, ByVal srcB As Workbook)
|
164
164
|
|
165
|
-
On Error GoTo errorend
|
165
|
+
' On Error GoTo errorend
|
166
166
|
|
167
167
|
Dim irow As Integer
|
168
168
|
|
@@ -186,7 +186,7 @@
|
|
186
186
|
|
187
187
|
|
188
188
|
|
189
|
-
Set srcSheet = srcB.Worksheets(2)
|
189
|
+
Set srcSheet = srcB.Worksheets(2) ← 【一番目のシートは、変更履歴だから、”2”】
|
190
190
|
|
191
191
|
Set sqlSheet = sqlB.Worksheets(1)
|
192
192
|
|
@@ -334,7 +334,7 @@
|
|
334
334
|
|
335
335
|
|
336
336
|
|
337
|
-
errorend:
|
337
|
+
'errorend:
|
338
338
|
|
339
339
|
|
340
340
|
|