c_c_lai

¦^´_ 4# blue2263
¸Õ¸Õ¬Ý

1. Sub ¶}©l°õ¦æ()
   
2.     Dim startOn As Boolean
   
3.    
   
4.     Set MyBook = ThisWorkbook
   
5.     aTime = "08:44:00"  '  ¦­  ½L ¶}½L®É¶¡   "08:44:00"
   
6.     bTime = "13:45:05"  '  ¦­  ½L ¦¬½L®É¶¡   "13:45:00"
   
7.     cTime = "14:35:00"  '  ¹q¤l½L ¶}½L®É¶¡   "14:35:00"
   
8.     dTime = "23:59:50"  '  ¹q¤l½L ´«¤é®É¶¡   "00:00:00"
   
9.     eTime = "03:00:05"  '  ¹q¤l½L ¦¬½L®É¶¡   "03:00:00"
   
10.     startOn = False
    
11.         
    
12.     '  µ¥­Ô¦Ü¦­¤W¶}½L , ¦Û°Ê°õ¦æ¥Dµ{¦¡
    
13.     If Time > TimeValue("03:00:00") And Time < TimeValue("13:45:00") Then
    
14.         startOn = True
    
15.         Set Sht1 = MyBook.Sheets("a")
    
16.         aaTime = bTime  '  °±¤î°O¿ý®É¶¡ "13:45:00"
    
17.         If Time < TimeValue("08:44:00") Then
    
18.             Application.StatusBar = "¡°²{¦b©|¥¼¶}½L¡Aµ{¦¡µ¥«Ý¦Ü8:45¶}½L¦Û°Ê°õ¦æ"
    
19.             Application.OnTime TimeValue("08:44:05"), "¶}©l"
    
20.             Application.OnTime TimeValue("08:44:10"), "¦Û°Ê°O¿ý"
    
21.         Else
    
22.             Call ¶}©l
    
23.             Call ¦Û°Ê°O¿ý
    
24.         End If
    
25.     End If
    
26.    
    
27.     '  µ¥­Ô¦Ü¤¤¤È¹q¤l½L , ¶}½L¦Û°Ê°õ¦æ¥Dµ{¦¡
    
28.     If Time > TimeValue("13:45:00") And Time < TimeValue("23:59:59") Then
    
29.         startOn = True
    
30.         Set Sht1 = MyBook.Sheets("b")
    
31.         aaTime = dTime  '  °±¤î°O¿ý®É¶¡ "00:00:00"
    
32.         If Time < TimeValue("14:34:00") Then
    
33.             Application.StatusBar = "¡°²{¦b©|¥¼¶}½L¡Aµ{¦¡µ¥«Ý¦Ü14:35:00¶}½L¦Û°Ê°õ¦æ"
    
34.             Application.OnTime TimeValue("14:34:05"), "¶}©l"
    
35.             Application.OnTime TimeValue("14:34:10"), "¦Û°Ê°O¿ý"
    
36.         Else
    
37.             Call ¶}©l
    
38.             Call ¦Û°Ê°O¿ý
    
39.         End If
    
40.     End If
    
41.    
    
42.     '  µ¥­Ô¦Ü¤¤¤È¹q¤l½L(´«¤é) , ¶}½L¦Û°Ê°õ¦æ¥Dµ{¦¡
    
43.     If Time > TimeValue("00:00:01") And Time < TimeValue("03:00:00") Then
    
44.         startOn = True
    
45.         Set Sht1 = MyBook.Sheets("b")
    
46.         aaTime = eTime  '  °±¤î°O¿ý®É¶¡ "03:00:05"
    
47.         If Time < TimeValue("00:00:30") Then
    
48.             Application.OnTime TimeValue("00:00:30"), "¶}©l"
    
49.             Application.OnTime TimeValue("00:00:35"), "¦Û°Ê°O¿ý"
    
50.         Else
    
51.             Call ¶}©l
    
52.             Call ¦Û°Ê°O¿ý
    
53.         End If
    
54.     End If
    
55.    
    
56.     If startOn Then Application.OnTime Now + TimeValue("00:00:01"), "¶}©l°õ¦æ"   '  ¨C¤@¬í»¼°j¤@¦¸
    
57. End Sub
    
58. 
    
59. Sub ¦Û°Ê°O¿ý()
    
60.     If uMode = 0 Then Exit Sub
    
61.     If Time > TimeValue(aaTime) Then '  ¦¬½L®É¶¡¥H«á¤£°õ¦æ
    
62.        Application.DisplayStatusBar = True  '  ¥´¶}ª¬ºA¦C¡C
    
63.        Application.StatusBar = "¦¬½L"
    
64.        ActiveWorkbook.Save '  ·í«e¤u§@ªíÀx¦s
    
65.        Exit Sub
    
66.     End If
    
67.     '  ¨C¤ÀÄÁ°O¿ý----------------------------------------------------------
    
68.     If Second(Time) = 0 Then
    
69.         xRow = Sht1.Range("A8").End(xlDown).Row  '  ¥Ñ¤W©¹¤U§ä
    
70.         Sht1.Range("B1") = xRow + 1
    
71.         Sht1.Range("A10").EntireRow.Insert
    
72.         Sht1.Range("A10:CZ10").Value = Sht1.Range("A9:CZ9").Value
    
73.         Sht1.Range("b10") = Time
    
74.     End If
    
75. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 6# blue2263
§A­ì¥»ªºµ{¦¡½X«K·|¦³¦¹°ÝÃD¡A®t§O¬O·í§A²Ä¤@¦¸°õ¦æ
¦Û°Ê°O¿ý() ¤@ª½¨ì If Time > TimeValue(aaTime) Then
®ÆÂ÷«á«K°±¤î¤£¦A°õ¦æ¤F¡C (¥u RUN ²Ä¤@°j½ü¦Ó¤w)¡C
©Ò¥H¦b¨C¤@¬íªºµøı¤W(µe­±·|¤£°±°{Ã{)¦ÛµM·|¦³©Ò¤£¦P¡C
­×¥¿«áªºµ{¦¡¤~¬O¥¿±`¹B§@ªº¹Lµ{¡C(¤TºØ§PÂ_¬Ò¹LÂo)
·íµM¦o·|¤@ª½°õ¦æ¨ì±ø¥óº¡¨¬¬°¤î¡C
¦pªG§A·Q¥O¥¦¯à¤¤³~°±¤î¡A«h»Ý¥[¤J´¡Â_§PÂ_¡C
­×§ï (¤½¥ÎÅܼƼW¥[ stp )

1. Public uMode&, aTime, bTime, cTime, dTime, eTime, aaTime, bbTime, stp As Boolean
   
2. Public MyBook As Workbook, Sht1 As Worksheet, Sht2 As Worksheet, xRow&, §ó·s§PÂ_, xTime
   
3. 
   
4. Sub ¶}©l°õ¦æ()
   
5.     Dim startOn As Boolean
   
6.    
   
7.     If stp Then stp = False: Exit Sub    '  ´¡Â_
   
8.     Set MyBook = ThisWorkbook

½Æ»s¥N½X

¼W¥[

1. Sub ´¡Â_()
   
2.     stp = True
   
3. End Sub

½Æ»s¥N½X

¤u§@ªí¤W¼W¥[¤@ "«ö¶s"  «ü©w¥¨¶°«ü¦V  "´¡Â_()" §Y¥i¡A
ÂI¿ï¥¦«K°±¤î°õ¦æ¡F±µ³o¦A¦¸ÂI¿ï¥¦¡A«K¤SÄ~Äò°õ¦æ¤F¡C

c_c_lai

¦^´_ 7# blue2263
¨ä¹ê¹D²z¬O¤@¼Ëªº¡C
§A¤]¥i¥[¤J #9 ¼W¥[ªº³¡¥÷¡C