回答編集履歴
1
コード微修正
test
CHANGED
|
@@ -15,7 +15,7 @@
|
|
|
15
15
|
'開始日時を取得
|
|
16
16
|
startDateTime = Now
|
|
17
17
|
|
|
18
|
-
Set ws1 = ThisWorkbook.Worksheets(
|
|
18
|
+
Set ws1 = ThisWorkbook.Worksheets(4)
|
|
19
19
|
|
|
20
20
|
Application.ScreenUpdating = False
|
|
21
21
|
Application.Calculation = xlCalculationManual
|