回答編集履歴
1
待ち時間処理追加
test
CHANGED
|
@@ -1,10 +1,10 @@
|
|
|
1
1
|
規則性のある繰り返し処理は、For-Next構文 にて行えます。
|
|
2
|
+
|
|
3
|
+
IE操作のため、１秒程度の待ち時間も必要です。
|
|
2
4
|
|
|
3
5
|
```VBA
|
|
4
6
|
|
|
5
7
|
Sub 転記一括()
|
|
6
|
-
|
|
7
|
-
|
|
8
8
|
|
|
9
9
|
Dim a As Integer
|
|
10
10
|
|
|
@@ -36,6 +36,12 @@
|
|
|
36
36
|
|
|
37
37
|
Call tenki(a, d, e, f, g)
|
|
38
38
|
|
|
39
|
+
|
|
40
|
+
|
|
41
|
+
'1000ミリ秒待つ
|
|
42
|
+
|
|
43
|
+
Application.Wait [Now()] + 1000 / 86400000
|
|
44
|
+
|
|
39
45
|
Next Cnt
|
|
40
46
|
|
|
41
47
|
End Sub
|