关于定时自启动问题

sampsonpon

ThisWorkbook里已经有这些代码：


模块1里有如下代码：

1. Dim RunWhen
   
2. 
   
3. Sub run_Timer()
   
4. 
   
5.     RunWhen = Now + TimeValue("00:01:00")
   
6.     Application.OnTime RunWhen, "chktime", Schedule:=True
   
7. 
   
8. End Sub
   
9. 
   
10. 
    
11. Sub shut_Timer()
    
12. 
    
13.     Application.OnTime RunWhen, "chktime", Schedule:=False
    
14. 
    
15. End Sub
    
16. 
    
17. 
    
18. Sub chktime()
    
19. 
    
20.     Application.ScreenUpdating = False
    
21. 
    
22.     '启动大批镜片1
    
23.     '-------------------------------------------------------------------------------------------------------------
    
24.     If Format(Time, "h:mm") = "6:50" Or Format(Time, "h:mm") = "9:50" Or Format(Time, "h:mm") = "10:50" Or _
    
25.     Format(Time, "h:mm") = "13:50" Or Format(Time, "h:mm") = "17:50" Or Format(Time, "h:mm") = "19:50" Then '自动启动时间
    
26. 
    
27.         Call comb_Sunglass1
    
28. 
    
29.     End If
    
30.     '-------------------------------------------------------------------------------------------------------------
    
31. 
    
32. 
    
33. 
    
34.     '启动大批镜片2
    
35.     '-------------------------------------------------------------------------------------------------------------
    
36.     If Format(Time, "h:mm") = "5:50" Or Format(Time, "h:mm") = "7:50" Or Format(Time, "h:mm") = "8:50" Or Format(Time, "h:mm") = "12:50" _
    
37.     Or Format(Time, "h:mm") = "14:50" Or Format(Time, "h:mm") = "15:50" Or Format(Time, "h:mm") = "18:50" Or Format(Time, "h:mm") = "20:30" Then '自动启动时间
    
38. 
    
39.         Call comb_Sunglass2
    
40. 
    
41.     End If
    
42.     '-------------------------------------------------------------------------------------------------------------
    
43. 
    
44. 
    
45. 
    
46.     '启动额外打标签
    
47.     '-------------------------------------------------------------------------------------------------------------
    
48.     If Format(Time, "h:mm") = "5:45" Then '自动启动时间
    
49. 
    
50.         Call comb_EXPICK
    
51. 
    
52.     End If
    
53.     '-------------------------------------------------------------------------------------------------------------
    
54. 
    
55. 
    
56. 
    
57.     '启动额外打标签
    
58.     '-------------------------------------------------------------------------------------------------------------
    
59.     If Format(Time, "h:mm") = "6:20" Or Format(Time, "h:mm") = "21:10" Then '自动启动时间
    
60. 
    
61.         Call comb_EXPICK
    
62. 
    
63.     End If
    
64.     '-------------------------------------------------------------------------------------------------------------
    
65. 
    
66. 
    
67. 
    
68. 
    
69. 
    
70.     '启动有色腿镜片
    
71.     '-------------------------------------------------------------------------------------------------------------
    
72.     If Format(Time, "h:mm") = "12:20" Then '自动启动时间
    
73. 
    
74.         Call comb_Sunglass_0R
    
75. 
    
76.     End If
    
77.     '-------------------------------------------------------------------------------------------------------------
    
78. 
    
79. 
    
80. 
    
81.     '启动RX镜片
    
82.     '-------------------------------------------------------------------------------------------------------------
    
83.     If Format(Time, "h:mm") = "16:50" Then '自动启动时间
    
84. 
    
85.         Call comb_SunglassRX
    
86. 
    
87.     End If
    
88.     '-------------------------------------------------------------------------------------------------------------
    
89. 
    
90. 
    
91. 
    
92.     '启动TRD AN
    
93.     '-------------------------------------------------------------------------------------------------------------
    
94.     If Format(Time, "h:mm") = "8:10" Then '自动启动时间
    
95. 
    
96.         Call comb_TRDAN
    
97. 
    
98.     End If
    
99.     '-------------------------------------------------------------------------------------------------------------
    
100. 
     
101. 
     
102. 
     
103.     '启动TRC AN
     
104.     '-------------------------------------------------------------------------------------------------------------
     
105.     If Format(Time, "h:mm") = "10:10" Then '自动启动时间
     
106. 
     
107.         Call comb_TRC2AN
     
108. 
     
109.     End If
     
110.     '-------------------------------------------------------------------------------------------------------------
     
111. 
     
112. 
     
113. 
     
114.     '启动TRM AN
     
115.     '-------------------------------------------------------------------------------------------------------------
     
116.     If Format(Time, "h:mm") = "10:30" Then '自动启动时间
     
117. 
     
118.         Call comb_TRM6AN
     
119. 
     
120.     End If
     
121.     '-------------------------------------------------------------------------------------------------------------
     
122. 
     
123. 
     
124. 
     
125.     '启动TRB&TRD AN
     
126.     '-------------------------------------------------------------------------------------------------------------
     
127.     If Format(Time, "h:mm") = "12:30" Then '自动启动时间
     
128. 
     
129.         Call comb_TrbTrdAN
     
130. 
     
131.     End If
     
132.     '-------------------------------------------------------------------------------------------------------------
     
133. 
     
134. 
     
135. 
     
136.     '启动TRB&TRC&TRM AN
     
137.     '-------------------------------------------------------------------------------------------------------------
     
138.     If Format(Time, "h:mm") = "16:20" Then '自动启动时间
     
139. 
     
140.         Call comb_TrbTrcTrmAN
     
141. 
     
142.     End If
     
143.     '-------------------------------------------------------------------------------------------------------------
     
144. 
     
145. 
     
146. 
     
147. 
     
148. 
     
149.     '12:00点、17:30点、22点自动保存
     
150.     '-------------------------------------------------------------------------------------------------------------
     
151.     If Format(Time, "h:mm") = "12:00" Or Format(Time, "h:mm") = "17:30" Or Format(Time, "h:mm") = "22:00" Then '自动启动时间
     
152. 
     
153.        ThisWorkbook.Save  '自动保存整个工作簿
     
154. 
     
155.     End If
     
156.     '-------------------------------------------------------------------------------------------------------------
     
157. 
     
158. 
     
159.     If CStr(Hour(Now())) = "5" And CStr(Minute(Now())) = "30" Then
     
160.        Sheet1.Range("A12").Value = 0
     
161. '       Sheet6.UsedRange.Offset(1).Clear
     
162. '       Sheet7.UsedRange.Offset(1).Clear
     
163. '       Sheet9.UsedRange.Offset(1).ClearContents
     
164.     End If
     
165. 
     
166. 
     
167.     Call run_Timer
     
168. 
     
169.     Application.ScreenUpdating = True
     
170. 
     
171. End Sub

复制代码

现在的问题是：
1、因为它已经是每分钟都在检测启动时间，到时间了就会自启动，但为什么有时又不能自启动了呢？
2、想把上面列出的模块1里的代码的启动时间重新给它组织一下，看起来很凌乱是不是也会影响启动？

xjl565135022

你这不是只能运行第一次而已吗，想要循环要调用宏本身才行，比如：
Sub Run_Macro()
    '在这里编写你的VBA宏代码
    Debug.Print Now
    Application.OnTime Now + TimeValue("00:00:01"), "Run_Macro"
End Sub