c_c_lai

§Ú®tÂI§Ñ¤F»P§Ú¾Ö¦³¤p¾Ç¥Íµ¥¯Åªº¦P¾Ç­Ì¬OµLªk¤U¸üªþ¥óªº¡A
©Ò¥H§Ú¤S±N¥¦ª½±µ¶K¤F¥X¨Ó¡A¤è«K¤j®a¾\Äý¡C

1. ' ½L¤¤ DDE ¦sÀɪº¹ê»ÚÀ³¥Î½d¨Ò
   
2. 
   
3. Option Explicit
   
4. 
   
5. Dim actEnabled As Boolean
   
6. Dim index As Single
   
7. 
   
8. Private Sub Workbook_Open()
   
9.     If (Sheets("¤u§@ªí1").Range("AA1").Value = "") Then Sheets("¤u§@ªí1").Range("AA1").Value = "08:45:00"   ' °²³]AA1Äæ¦ì¬°ªÅ¥Õ¡A«h¼g¤J¶}½L°_©l®É¶¡
   
10.     If (Sheets("¤u§@ªí1").Range("AA2").Value = "") Then Sheets("¤u§@ªí1").Range("AA2").Value = "13:45:59"   ' AA2Äæ¦ì¥ç¦P¡C(¦¹¨âÄæ¬ö¿ý°_©l²×¤î®É¶¡)
    
11.     If (Sheets("¤u§@ªí1").Range("AA3").Value = "") Then Sheets("¤u§@ªí1").Range("AA3").Value = 0            ' ¬ö¿ý³Ì«á¸ê®Æ¶×¤J¤§¦C¸¹ (Rows)¡C
    
12.     If (Sheets("¤u§@ªí1").Range("AA4").Value = "") Then Sheets("¤u§@ªí1").Range("AA4").Value = "00:00:10"   ' ¬ö¿ý¸ê®Æ¶×¤J¬Û¹j®É¶¡¡A¦p¨C¹j¤Q¬í¼g¤J¤@¦¸¡C
    
13. 
    
14.     If (TimeValue(Now) > Sheets("¤u§@ªí1").Range("AA2").Value) Then       ' ¦pªG¥Ø«e®É¶¡·~¤w¶W¹LAA2ªº®É¬q¡A«h©I¥s.......
    
15.         Call stopProcedure
    
16.     Else                                                                  ' ¤Ï¤§¡A«h©I¥s.......
    
17.         Call startProcedure
    
18.     End If
    
19. End Sub
    
20. 
    
21. Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
22.     On Error Resume Next
    
23.     Call actStop
    
24. End Sub
    
25. 
    
26. 
    
27. Private Sub startProcedure()       ' «O¯d§@¬°±±¨î¶µ¤§À³¥Îµ{§Ç¡A¦p«ö¶s¤§¥¨¶°À³¥Îµ¥¡C
    
28.     Call actStart
    
29. End Sub
    
30. 
    
31. Private Sub stopProcedure()        ' «O¯d§@¬°±±¨î¶µ¤§À³¥Îµ{§Ç¡A¦p«ö¶s¤§¥¨¶°À³¥Îµ¥¡C
    
32.    Call actStop
    
33. End Sub
    
34. 
    
35. Sub Starter()
    
36.     If (actEnabled = True And TimeValue(Now) >= Sheets("¤u§@ªí1").Range("AA1").Value And TimeValue(Now) <= Sheets("¤u§@ªí1").Range("AA2").Value) Then
    
37.         index = Sheets("¤u§@ªí1").Range("AA3").Value
    
38. 
    
39.         If (Index = 0) Then Call newTitle  '°²³]newTitleµ{§Ç(¥Ñ¨Ï¥ÎªÌ¦Û¦æ©w¸q)¬O±N²Ä¤@¦Cªº¸ê®Æ©ïÀY¦WºÙ¼g¤J¨ì¤u§@ªí2¡C ¦p¡G¤é´Á¡B®É¶¡¡BR1C5ªº¹ïÀ³Äæ¦ì¸ê®Æµ¥¡C
    
40. 
    
41.         Sheets("¤u§@ªí1").Range("AA3").Value = index + 1       ' ¬ö¿ý¦C¸¹¥[¤@¡C
    
42.         Sheets("¤u§@ªí2").Cells(index + 2, 1).Value = Date
    
43.         Sheets("¤u§@ªí2").Cells(index + 2, 2).Value = TimeValue(Now)
    
44.         ' Sheets("¤u§@ªí2").Cells(index + 2, 3).Value = Sheets("¤u§@ªí1").Cells(1, 5).Value
    
45.         '
    
46.         ' ½Æ»s±q¨é°ÓDDE¶×¤J¤§¬Û¹ïÀ³¦ì¸m¸ê®Æ¡A¦p R1C5 ¹ïÀ³ªº¥i¯à¬O¦¬½L»ùµ¥µ¥¡C
    
47.         '
    
48.     End If
    
49. End Sub
    
50. 
    
51. 
    
52. Sub onStarter()
    
53.     Call Starter
    
54.     If actEnabled Then Call actStart
    
55. End Sub
    
56. 
    
57. Sub actStart()
    
58.     actEnabled = True
    
59.     Application.OnTime (Now + Sheets("¤u§@ªí1").Range("AA4").Value), "ThisWorkBook.onStarter"   ' ¼g¤J¸ê®Æªº±Æµ{ (¥Ø«e¬O¨C¹j¤Q¬í¼g¤J¤@¦¸)
    
60. End Sub
    
61. 
    
62. Sub actStop()
    
63.     actEnabled = False
    
64. 
    
65.     On Error Resume Next
    
66.     Application.OnTime Now, "ThisWorkBook.onStarter", , False
    
67. End Sub

½Æ»s¥N½X