回答編集履歴
2
コード修正
test
CHANGED
|
@@ -5,8 +5,6 @@
|
|
|
5
5
|
稼働プロシージャ内でFor Nextループさせるのではなく、
|
|
6
6
|
|
|
7
7
|
OnTimeで1分ごとに処理を呼び出したらどうでしょうか。
|
|
8
|
-
|
|
9
|
-
|
|
10
8
|
|
|
11
9
|
|
|
12
10
|
|
|
@@ -26,7 +24,7 @@
|
|
|
26
24
|
|
|
27
25
|
Application.OnTime StartTime, "timer1"
|
|
28
26
|
|
|
29
|
-
ElseIf Time
|
|
27
|
+
ElseIf Time < EndTime Then
|
|
30
28
|
|
|
31
29
|
Call 処理
|
|
32
30
|
|
1
コード修正
test
CHANGED
|
@@ -14,11 +14,11 @@
|
|
|
14
14
|
|
|
15
15
|
Sub timer1()
|
|
16
16
|
|
|
17
|
-
Dim StartTime As Date: StartTime = TimeValue("
|
|
17
|
+
Dim StartTime As Date: StartTime = TimeValue("08:30:00")
|
|
18
18
|
|
|
19
|
-
Dim EndTime As Date: EndTime = TimeValue("1
|
|
19
|
+
Dim EndTime As Date: EndTime = TimeValue("10:30:00")
|
|
20
20
|
|
|
21
|
-
Dim TimerInterval As Date: TimerInterval = TimeValue("00:0
|
|
21
|
+
Dim TimerInterval As Date: TimerInterval = TimeValue("00:01:00")
|
|
22
22
|
|
|
23
23
|
|
|
24
24
|
|