Hsieh

¦^´_ 3# mead
¦]¬°¦b8:45¥H«e¶}ÀÉ¡AÁöµM¦³°õ¦æ¤@¦¸Timer
¦ý¦]¬°ª½±µ¸õ¥Xµ{§Ç¡A¨Ã¥¼·Ç³Æ¤U¤@¦¸°õ¦æTimer
§PÂ_¦¡§ï¤@¤U
  If TimeValue(Now) <= TimeValue("08:45:00") Then Application.OnTime Now + TimeValue("00:00:01"), "Timer"
  If TimeValue(Now) >= TimeValue("13:45:00") Then Exit Sub 'Àç·~®É¶¡¤~°õ¦æ

Hsieh

¦^´_ 5# mead

1. Sub Timer()
   
2. 
   
3. Dim HHMMSS As Integer
   
4. 
   
5. On Error Resume Next
   
6. 
   
7. ' Sheets("µ¦²¤°O¿ý").Select
   
8. 
   
9. Sheets(2).Cells(2, 1) = Time '±N®É¶¡show¦Üµ¦²¤ªºa2Äæ¦ì
   
10. 
    
11.   If (TimeValue(Now) <= TimeValue("08:45:00") Or TimeValue(Now) >= TimeValue("13:45:00")) Then GoTo 10 'Àç·~®É¶¡¤~°õ¦æ
    
12. 
    
13. ' If Minute(Time) <> LastMin Then '¶}©l«á°µ
    
14. 
    
15.     i = i + 1
    
16. 
    
17.     If i = 60 Then
    
18. 
    
19. 
    
20. Sheets(2).Range("a10000").End(xlUp).Offset(1, 0) = Time
    
21. 
    
22. Sheets(2).Range("a10000").End(xlUp).Offset(0, 1) = O
    
23. 
    
24. Sheets(2).Range("a10000").End(xlUp).Offset(0, 2) = H
    
25. 
    
26. Sheets(2).Range("a10000").End(xlUp).Offset(0, 3) = L
    
27. 
    
28. Sheets(2).Range("a10000").End(xlUp).Offset(0, 4) = C
    
29. 
    
30.   
    
31. 
    
32. Sheets(2).Range("a10000").End(xlUp).Offset(0, 5) = O1
    
33. 
    
34. Sheets(2).Range("a10000").End(xlUp).Offset(0, 6) = H1
    
35. 
    
36. Sheets(2).Range("a10000").End(xlUp).Offset(0, 7) = L1
    
37. 
    
38. Sheets(2).Range("a10000").End(xlUp).Offset(0, 8) = C1
    
39. 
    
40. 
    
41. Sheets(2).Range("a10000").End(xlUp).Offset(0, 9) = O2
    
42. 
    
43. Sheets(2).Range("a10000").End(xlUp).Offset(0, 10) = H2
    
44. 
    
45. Sheets(2).Range("a10000").End(xlUp).Offset(0, 11) = L2
    
46. 
    
47. Sheets(2).Range("a10000").End(xlUp).Offset(0, 12) = C2
    
48. 
    
49.      i = 0
    
50. 
    
51.       O = Sheets(2).Cells(2, 2)
    
52. 
    
53.       H = Sheets(2).Cells(2, 2)
    
54. 
    
55.       L = Sheets(2).Cells(2, 2)
    
56. 
    
57.       C = Sheets(2).Cells(2, 2)
    
58. 
    
59.         
    
60. 
    
61.      O1 = Sheets(2).Cells(2, 3)
    
62. 
    
63.      H1 = Sheets(2).Cells(2, 3)
    
64. 
    
65.      L1 = Sheets(2).Cells(2, 3)
    
66. 
    
67.      C1 = Sheets(2).Cells(2, 3)
    
68. 
    
69.      
    
70. 
    
71.      O2 = Sheets(2).Cells(2, 4)
    
72. 
    
73.      H2 = Sheets(2).Cells(2, 4)
    
74. 
    
75.      L2 = Sheets(2).Cells(2, 4)
    
76. 
    
77.      C2 = Sheets(2).Cells(2, 4)
    
78. 
    
79. Else
    
80. 
    
81.      C = Sheets(2).Cells(2, 2)
    
82. 
    
83.      If H = "" Then H = Sheets(2).Cells(2, 2)
    
84. 
    
85.      If C >= H Then H = C
    
86. 
    
87.      If C < L Then L = C
    
88. 
    
89.      If O = 0 Then O = Sheets(2).Cells(2, 2) Else O = O
    
90. 
    
91.      If L = 0 Then L = Sheets(2).Cells(2, 2) Else L = L
    
92. 
    
93.    
    
94. 
    
95.      C1 = Sheets(2).Cells(2, 3)
    
96. 
    
97.      If H1 = "" Then H1 = Sheets(2).Cells(2, 3)
    
98. 
    
99.      If C1 >= H1 Then H1 = C1
    
100. 
     
101.      If C1 < L1 Then L1 = C1
     
102. 
     
103.      If O1 = 0 Then O1 = Sheets(2).Cells(2, 3) Else O1 = O1
     
104. 
     
105.      If L1 = 0 Then L1 = Sheets(2).Cells(2, 3) Else L1 = L1
     
106. 
     
107.    
     
108. 
     
109.      C2 = Sheets(2).Cells(2, 4)
     
110. 
     
111.      If H2 = "" Then H2 = Sheets(2).Cells(2, 4)
     
112. 
     
113.      If C2 >= H2 Then H2 = C2
     
114. 
     
115.      If C2 < L2 Then L2 = C2
     
116. 
     
117.      If O2 = 0 Then O2 = Sheets(2).Cells(2, 4) Else O1 = O1
     
118. 
     
119.      If L2 = 0 Then L2 = Sheets(2).Cells(2, 4) Else L2 = L2
     
120. 
     
121.   End If
     
122. 
     
123.         LastMin = Minute(Time)
     
124. 
     
125. '  End If
     
126. 10
     
127. Application.OnTime Now + TimeValue("00:00:01"), "Timer" '¨C¬íÅã¥Ü
     
128. 
     
129. End Sub

½Æ»s¥N½X