°õ¦æ®É¶¡°ÝÃD?

mead

¦U¦ì¤j¤j:
ªþ¥óªºEXCEL§Ú³]©w¦b8:45~13:45¶¡°õ¦æ
¦ý¨C¦¸¦b8:45«e°õ¦æ  ¥Hµ¥«Ý8:45¶}©l°O¿ý  ¦ý¥h³£µLªk±Ò°Êµ{¦¡¬ö¿ý
³£¥²¶·µ¥8:45«á°õ¦æ  µ{¦¡¤~·|±Ò°Ê°O¿ý!¤£ª¾°ÝÃD¥X¦b­þ¨à?
Àµ½Ðª©¤W¤j¤j¨ó§U­×¥¿

ÁÂÁÂ

·P®¦

¶q.rar (12.12 KB)

¤U¸ü¦¸¼Æ: 22

2012-6-7 17:22

ANGELA

If (TimeValue(Now) <= TimeValue("08:45:00") Or TimeValue(Now) >= TimeValue("13:45:00")) Then Exit Sub 'Àç·~®É¶¡¤~°õ¦æ
­Y¦b8:45«e©Î13:45¥H«á§YÂ÷¶}µ{¦¡

mead

If (TimeValue(Now) = TimeValue("13:45:00")) Then Exit Sub 'Àç·~®É¶¡¤~°õ¦æ
­Y¦b8:45«e©Î13:45¥H«á§YÂ÷ ...
ANGELA µoªí©ó 2012-6-7 20:05

Dear³o§Ú¯à²z¸Ñ
¦ý°ÝÃD¬O§Ú¦b8:44°õ¦æµ{¦¡«á  ¹L¤F8:45«o¨S°Ê§@°Ú?
·Q°Ý¬O¬Æ»ò­ì¦]©M¦p¦ó­×¥¿?

ÁÂÁ  ·P®¦

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 'Àç·~®É¶¡¤~°õ¦æ

mead

¦^´_  mead
¦]¬°¦b8:45¥H«e¶}ÀÉ¡AÁöµM¦³°õ¦æ¤@¦¸Timer
¦ý¦]¬°ª½±µ¸õ¥Xµ{§Ç¡A¨Ã¥¼·Ç³Æ¤U¤@¦¸°õ¦æTimer
§P ...
Hsieh µoªí©ó 2012-6-7 20:28

·PÁÂÁ`ª©¥Dªº«ü¾É
¦ý·Ó¦¹­×§ï  ÁÙ¬O¤£¦æ!
¹L¤F³]©w®É¶¡¨S°Ê§@  °h¥X¦A¶i¤J  §YÅܦ¨ÀH®É¦b°O¿ý¤F!
³Â·Ð¦A«ü¾É

ÁÂÁ  ·P®¦

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

mead

¦^´_  mead
Hsieh µoªí©ó 2012-6-7 21:51

·PÁÂÁ`ª©¥D³o»ò§Ö¦^ÂÐ
­è­è´ú¸Õªºµ²ªG¤w¥i¦æ
©ú¤Ñ½L¤¤¦A´ú¸Õ¬Ý¬Ý

ÁÂÁÂÁ`ª©¥Dªº¼ö¤ßÀ°¦£

·P®¦¦A·P®¦

c_c_lai

¦^´_ 7# mead
ÃöÁä¦b©ó Application.OnTime (TimeValue("08:45:00")), "Module1.Timer"  ¡G

1. Private Sub Workbook_Open()
   
2.     Sheets("µ¦²¤°O¿ý").[a5:n700] = ""
   
3.     ' LastMin = Minute(Time)
   
4.     Application.OnTime (TimeValue("08:45:00")), "Module1.Timer"      ' *********
   
5. End Sub
   
6. 
   
7. 
   
8. 
   
9. Sub Timer()
   
10.     Dim HHMMSS As Integer
    
11. 
    
12.     On Error Resume Next
    
13. 
    
14.     ' Sheets("µ¦²¤°O¿ý").Select
    
15.     Sheets(2).Cells(2, 1) = Time '±N®É¶¡show¦Üµ¦²¤ªºa2Äæ¦ì
    
16. 
    
17.     If (TimeValue(Now) >= TimeValue("13:45:00")) Then Exit Sub  ' ¶W¹LÀç·~®É¶¡«á§Y¸õÂ÷¤£¤©°õ¦æ
    
18.     .
    
19.     .
    
20.     .
    
21.     .
    
22. End Sub

½Æ»s¥N½X

¦Ü©ó Timer ­×§ï¤@¤U  If (TimeValue(Now) >= TimeValue("13:45:00")) Then Exit Sub
¨ä¥¦³¡¤À¨Ì§A©Ò»Ý¥h­×¥¿¡C

mead

¦^´_  mead
ÃöÁä¦b©ó Application.OnTime (TimeValue("08:45:00")), "Module1.Timer"  ¡G¦Ü©ó Timer ­×§ï ...
c_c_lai µoªí©ó 2012-6-8 08:07

·PÁÂc_c_lai ¤j¤jªº¼ö¤ß¦^ÂÐ
¥ý¸Õ¸Õ¬Ý
·P®¦

devidlin

½Ð±Ðª©¤j­ô¡A¤¸¤jeasywin¤§DDE¡A­n¦p¦ó±N¤§«eªºEXCEL¦sÀÉ¡A¹j¤Ñ¨Ì¼Ë¶}¦¹ÀɮסA­n¦p¦ó³]©w?
ÁÂÁ¡C