优化启动时间代码

sampsonpon

附件模块1里的"sub chktime"由于时间多，看起来比较凌乱。有谁能帮忙给优化一下，让其更加规范。
特别是，"启动大批1、启动大批2"需加上一条件：逢周日不执行

1. Sub chktime()
   
2. 
   
3.     Application.ScreenUpdating = False
   
4. 
   
5.     '启动大批1
   
6.     '-------------------------------------------------------------------------------------------------------------
   
7.     If Format(Time, "h:mm") = "6:50" Or Format(Time, "h:mm") = "9:50" Or Format(Time, "h:mm") = "10:50" Or _
   
8.     Format(Time, "h:mm") = "13:50" Or Format(Time, "h:mm") = "17:50" Or Format(Time, "h:mm") = "19:50" Then '自动启动时间
   
9.         Call comb_Sunglass1
   
10.     End If
    
11. 
    
12. 
    
13.     '启动大批2
    
14.     '-------------------------------------------------------------------------------------------------------------
    
15.     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" _
    
16.     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 '自动启动时间
    
17.         Call comb_Sunglass2
    
18.     End If
    
19. 
    
20. 
    
21.     '启动额外
    
22.     '-------------------------------------------------------------------------------------------------------------
    
23.     If Format(Time, "h:mm") = "5:45" Then '自动启动时间
    
24.         Call Dell_Data
    
25.     End If
    
26. 
    
27. 
    
28.     '启动额外
    
29.     '-------------------------------------------------------------------------------------------------------------
    
30.     If Format(Time, "h:mm") = "6:20" Or Format(Time, "h:mm") = "21:50" Then '自动启动时间
    
31.         Call comb_EXPICK
    
32.     End If
    
33. 
    
34. 
    
35.     '启动有色
    
36.     '-------------------------------------------------------------------------------------------------------------
    
37.     If Format(Time, "h:mm") = "12:20" Then '自动启动时间
    
38.         Call comb_Sunglass_0R
    
39.     End If
    
40. 
    
41. 
    
42.     '启动R
    
43.     '-------------------------------------------------------------------------------------------------------------
    
44.     If Format(Time, "h:mm") = "16:50" Then '自动启动时间
    
45.         Call comb_SunglassRX
    
46.     End If
    
47. 
    
48. 
    
49.     '启动TD
    
50.     '-------------------------------------------------------------------------------------------------------------
    
51.     If Format(Time, "h:mm") = "8:10" Then '自动启动时间
    
52.         Call comb_TRDAN
    
53.     End If
    
54. 
    
55. 
    
56.     '启动TC
    
57.     '-------------------------------------------------------------------------------------------------------------
    
58.     If Format(Time, "h:mm") = "10:10" Then '自动启动时间
    
59.         Call comb_TRC2AN
    
60.     End If
    
61. 
    
62. 
    
63.     '启动TM
    
64.     '-------------------------------------------------------------------------------------------------------------
    
65.     If Format(Time, "h:mm") = "10:30" Then '自动启动时间
    
66.         Call comb_TRM6AN
    
67.     End If
    
68. 
    
69. 
    
70.     '启动TBD
    
71.     '-------------------------------------------------------------------------------------------------------------
    
72.     If Format(Time, "h:mm") = "12:30" Then '自动启动时间
    
73.         Call comb_TrbTrdAN
    
74.     End If
    
75. 
    
76. 
    
77.     '启动TBCM
    
78.     '-------------------------------------------------------------------------------------------------------------
    
79.     If Format(Time, "h:mm") = "16:20" Then '自动启动时间
    
80.         Call comb_TrbTrcTrmAN
    
81.     End If
    
82. 
    
83. 
    
84.     '12:00点、17:30点、22点自动保存
    
85.     '-------------------------------------------------------------------------------------------------------------
    
86.     If Format(Time, "h:mm") = "12:00" Or Format(Time, "h:mm") = "17:30" Or Format(Time, "h:mm") = "22:00" Then '自动启动时间
    
87.        ThisWorkbook.Save  '自动保存整个工作簿
    
88.     End If
    
89.    
    
90. 
    
91.     If CStr(Hour(Now())) = "5" And CStr(Minute(Now())) = "30" Then
    
92.        Sheet1.Range("A12").Value = 0
    
93.     End If
    
94. 
    
95. 
    
96.     Call run_Timer
    
97. 
    
98.     Application.ScreenUpdating = True
    
99. 
    
100. End Sub

复制代码

sampsonpon

请哪位老师能给梳理一下？给个答案