½Ð°Ý¦p¦ó§ï¦¨K´ÎÅã¥Ü?

mead

ªþ¥ó¬O§Ú¥Ø«e¤@¤ÀÄÁ¬ö¿ý¶qºA¨Ãø¹ÏªºEXCEL(¨Ï¥Î¤¸¤jDDE)
¦]µLªkÅé²{¶qªº±j®z  ·Q§ï¦¨¥éK´Îªº§Î¦¡  ¨q¥X1¤ÀÄÁªº/¶}/°ª/§C/¦¬
¬ß±æ½×¾Â°ª¤â«ü¾É§ï¶i

ÁÂÁ  ·P®¦

§Y®É¶qºA.rar (24.48 KB)

¤U¸ü¦¸¼Æ: 13

2012-5-24 20:25

mead

¦^´_  mead
¸Õ¬Ý¬Ý
f3202 µoªí©ó 2012-5-27 17:42

¥i¥H¤F  ©ú¤Ñ¶}½L¨Ó¸Õ¸Õ

ÁÂÁÂf3202¤j¤jªº¼ö¤ß¨ó§U

·P®¦¦A·P®¦

f3202

1. Sub Timer()
   
2. Dim HHMM As Integer
   
3. On Error Resume Next
   
4. ' Sheets("µ¦²¤°O¿ý").Select
   
5. Sheets(2).Cells(2, 1) = Time '±N®É¶¡show¦Üµ¦²¤ªºb3Äæ¦ì
   
6. HHMM = Hour(Time) * 100 + Minute(Time)
   
7.   If (HHMM < 845 Or HHMM > 1345) Then Exit Sub 'Àç·~®É¶¡¤~°õ¦æ
   
8.   If Minute(Time) <> LastMin Then '¶}©l«á°µ
   
9.     i = i + 1
   
10.     If i = 60 Then
    
11. 
    
12. Sheets(2).Range("a10000").End(xlUp).Offset(1, 0) = Time
    
13. Sheets(2).Range("a10000").End(xlUp).Offset(0, 1) = O
    
14. Sheets(2).Range("a10000").End(xlUp).Offset(0, 2) = H
    
15. Sheets(2).Range("a10000").End(xlUp).Offset(0, 3) = L
    
16. Sheets(2).Range("a10000").End(xlUp).Offset(0, 4) = C
    
17.   
    
18. Sheets(2).Range("a10000").End(xlUp).Offset(0, 5) = O1
    
19. Sheets(2).Range("a10000").End(xlUp).Offset(0, 6) = H1
    
20. Sheets(2).Range("a10000").End(xlUp).Offset(0, 7) = L1
    
21. Sheets(2).Range("a10000").End(xlUp).Offset(0, 8) = C1
    
22. 
    
23. Sheets(2).Range("a10000").End(xlUp).Offset(0, 9) = O2
    
24. Sheets(2).Range("a10000").End(xlUp).Offset(0, 10) = H2
    
25. Sheets(2).Range("a10000").End(xlUp).Offset(0, 11) = L2
    
26. Sheets(2).Range("a10000").End(xlUp).Offset(0, 12) = C2
    
27.      i = 0
    
28.       O = Sheets(2).Cells(2, 2)
    
29.       H = Sheets(2).Cells(2, 2)
    
30.       L = Sheets(2).Cells(2, 2)
    
31.       C = Sheets(2).Cells(2, 2)
    
32.         
    
33.      O1 = Sheets(2).Cells(2, 3)
    
34.      H1 = Sheets(2).Cells(2, 3)
    
35.      L1 = Sheets(2).Cells(2, 3)
    
36.      C1 = Sheets(2).Cells(2, 3)
    
37.      
    
38.      O2 = Sheets(2).Cells(2, 4)
    
39.      H2 = Sheets(2).Cells(2, 4)
    
40.      L2 = Sheets(2).Cells(2, 4)
    
41.      C2 = Sheets(2).Cells(2, 4)
    
42. Else
    
43.      C = Sheets(2).Cells(2, 2)
    
44.      If H = "" Then H = Sheets(2).Cells(2, 2)
    
45.      If C >= H Then H = C
    
46.      If C < L Then L = C
    
47.      If O = 0 Then O = Sheets(2).Cells(2, 2) Else O = O
    
48.      If L = 0 Then L = Sheets(2).Cells(2, 2) Else L = L
    
49.    
    
50.      C1 = Sheets(2).Cells(2, 3)
    
51.      If H1 = "" Then H1 = Sheets(2).Cells(2, 3)
    
52.      If C1 >= H1 Then H1 = C1
    
53.      If C1 < L1 Then L1 = C1
    
54.      If O1 = 0 Then O1 = Sheets(2).Cells(2, 3) Else O1 = O1
    
55.      If L1 = 0 Then L1 = Sheets(2).Cells(2, 3) Else L1 = L1
    
56.    
    
57.      C2 = Sheets(2).Cells(2, 4)
    
58.      If H2 = "" Then H2 = Sheets(2).Cells(2, 4)
    
59.      If C2 >= H2 Then H2 = C2
    
60.      If C2 < L2 Then L2 = C2
    
61.      If O2 = 0 Then O2 = Sheets(2).Cells(2, 4) Else O1 = O1
    
62.      If L2 = 0 Then L2 = Sheets(2).Cells(2, 4) Else L2 = L2
    
63.   End If
    
64.         LastMin = Minute(Time)
    
65.   End If
    
66. Application.OnTime Now + TimeValue("00:00:01"), "Timer" '¨C¬íÅã¥Ü
    
67. End Sub

½Æ»s¥N½X

¦^´_ 14# mead
¸Õ¬Ý¬Ý

mead

¦^´_  mead
¬Ý¤F¤@¤U§A¨º¤T¦X¤@ªºµ{¦¡¡A§Ú±N¥¦¾ã²z¤F¤@¤U (§Aª½±µ¶K¤W´N OK ¤F¡A¥t¥~§Ú¤]·|±NÀÉ®×E-Mailµ¹ ...
c_c_lai µoªí©ó 2012-5-27 12:16

¤F¸Ñ  ·PÁÂc_c_lai ¤j¤jªº¼ö¤ß¨ó§U

§Ú´ú¸Õ¤@¤U

ÁÂÁÂ

·P®¦¦A·P®¦

c_c_lai

¦^´_ 14# mead
¬Ý¤F¤@¤U§A¨º¤T¦X¤@ªºµ{¦¡¡A§Ú±N¥¦¾ã²z¤F¤@¤U (§Aª½±µ¶K¤W´N OK ¤F¡A¥t¥~§Ú¤]·|±NÀÉ®×E-Mailµ¹§A)¡G

1. ' ¥H¦hªÅ¤O¹D¡B¤Ï¦V¶Õ¤O¡B¥D¤O±±½Lªº¸ê®Æ¦C¨Ó³B²z
   
2. Option Explicit
   
3. Dim timerEnabled As Boolean  '
   
4. Dim Ov(1 To 3), Hv(1 To 3), Lv(1 To 3), Cv(1 To 3) As Single  ' ¶}½L»ù¡B³Ì°ª»ù¡B³Ì°ª»ù¡B¦¬½L»ù(¦¨¥æ»ù) µ¥³]©w¤§ÅܼơC
   
5.                                                               ' §ï¥H°}¦C³B²z¡C(1. ¦hªÅ¤O¹D¡B2. ¤Ï¦V¶Õ¤O¡B3. ¥D¤O±±½L)
   
6. Dim turnKey As Integer   ' §PÂ_¨C¤@½ü°j¤W¦CÅܼƪì©l­È¤§³]©w¡C
   
7. Dim nums As Integer      ' ±N¨C¹j "¦h¤Ö®É¶¡" ³B²z®É¬q¡A²¾¨ì¦¹³B¨Ó³B²z¡C
   
8. 
   
9. Private Sub Workbook_Open()
   
10.     Sheets("µ¦²¤°O¿ý").Cells(4, 2) = 10
    
11.    
    
12.     nums = 30            ' ³]©w¨C¹j 30 ¬í³B²z®É¬q¡A¥ç¥i§ó§ï¦¨ 30 (¨C¹j 30 ¬í)¡B 10 (¨C¹j 10 ¬í)¡B20 (¨C¹j 20 ¬í)µ¥µ¥¡C
    
13.     timerEnabled = False ' ¦¹³B¤£«Øij¨Ï¥Î 1 ¬í®É¬q¨Ó³B²z¡A¦]¬°ÁÙ­n¥h¨D¥X¶}½L¡B³Ì°ª¡B³Ì§C¡B¦¨¥æ»ù¡C
    
14. 
    
15.     Call timerStart      ' µ{¦¡¤@±Ò©l¡A«K¥h¦Û°Ê°õ¦æ timerStart
    
16. End Sub
    
17. 
    
18. Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
19.     On Error Resume Next
    
20.     Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkbook.Timer", , False
    
21. End Sub
    
22. 
    
23. Public Sub Timer()
    
24.     Dim Pos As Integer
    
25.    
    
26.     On Error Resume Next
    
27.     ' Sheets("µ¦²¤°O¿ý").Cells(2, 1) = Time '±N®É¶¡show¦Üµ¦²¤ªºa2Äæ¦ì
    
28.    
    
29.      If (TimeValue(Now) >= TimeValue("08:45:00") And TimeValue(Now) <= TimeValue("13:46:01")) Then    ' ¶}½L¡B¦¬½L®É¬q³]©w
    
30.         ' ½L¤¤³B²z¡A±N¸ê®Æ¶×¤J¼g¤J¤u§@ªí³æ¤ºÀx¦s¡C
    
31. 
    
32.         With Sheets("µ¦²¤°O¿ý")
    
33.             Cells(4, 2).Value = Cells(4, 2).Value + 1 '±NÅܰʦ渹¥[¤@¦æ
    
34. 
    
35.             Pos = Cells(4, 2).Value
    
36.             
    
37.             Cells(Pos, 1).Value = Time
    
38.             Cells(Pos, 2).Value = Ov(1)    ' B Äæ
    
39.             Cells(Pos, 3).Value = Hv(1)    ' C Äæ
    
40.             Cells(Pos, 4).Value = Lv(1)    ' D Äæ
    
41.             Cells(Pos, 5).Value = Cv(1)    ' E Äæ
    
42. 
    
43.             Cells(Pos, 6).Value = Ov(2)    ' F Äæ
    
44.             Cells(Pos, 7).Value = Hv(2)    ' G Äæ
    
45.             Cells(Pos, 8).Value = Lv(2)    ' H Äæ
    
46.             Cells(Pos, 9).Value = Cv(2)    ' I Äæ
    
47. 
    
48.             Cells(Pos, 10).Value = Ov(3)   ' J Äæ
    
49.             Cells(Pos, 11).Value = Hv(3)   ' K Äæ
    
50.             Cells(Pos, 12).Value = Lv(3)   ' L Äæ
    
51.             Cells(Pos, 13).Value = Cv(3)   ' M Äæ
    
52.         End With
    
53.     End If
    
54. End Sub
    
55. 
    
56. Sub ExeSelf()
    
57.     timerEnabled = True
    
58. 
    
59.     If IsError(Sheets("µ¦²¤°O¿ý").Range("B2").Value) Then ' °²³] B2 Äæ¦ì¬°¦hªÅ¤O¹D
    
60.         Cv(1) = 0
    
61.         Cv(2) = 0
    
62.         Cv(3) = 0
    
63.     Else
    
64.         Cv(1) = Sheets("µ¦²¤°O¿ý").Range("B2").Value   ' ¦hªÅ¤O¹D¦¨¥æ»ù
    
65.         Cv(2) = Sheets("µ¦²¤°O¿ý").Range("C2").Value   ' ¤Ï¦V¶Õ¤O¦¨¥æ»ù
    
66.         Cv(3) = Sheets("µ¦²¤°O¿ý").Range("D2").Value   ' ¥D¤O±±½L¦¨¥æ»ù
    
67.     End If
    
68. 
    
69.     If (turnKey = 0 Or Ov(1) = 0) Then                 ' ·í turnKey ­È¬°0¡Aªí¥Ü¨ä¬°ªì©l­È³]©w¡C¬°¦Ò¶q¨t²Î­è³s¤W DDE¡A
    
70.                                                        ' ¦³®É¦b²Ä¤@®Ú¼Æ­È²£¥Í®É Ov = Cv ­È¥i¯à¬° 0 (IsError()ªºª¬ºA)¡C
    
71.         Ov(1) = Cv(1)                                  ' ¦hªÅ¤O¹D¶}½L»ùªì©l­È³]©w
    
72.         Hv(1) = Cv(1)                                  ' ¦hªÅ¤O¹D³Ì°ª»ùªì©l­È³]©w
    
73.         Lv(1) = Cv(1)                                  ' ¦hªÅ¤O¹D³Ì§C»ùªì©l­È³]©w
    
74. 
    
75.         Ov(2) = Cv(2)                                  ' ¤Ï¦V¶Õ¤O¶}½L»ùªì©l­È³]©w
    
76.         Hv(2) = Cv(2)                                  ' ¤Ï¦V¶Õ¤O³Ì°ª»ùªì©l­È³]©w
    
77.         Lv(2) = Cv(2)                                  ' ¤Ï¦V¶Õ¤O³Ì§C»ùªì©l­È³]©w
    
78. 
    
79.         Ov(3) = Cv(3)                                  ' ¥D¤O±±½L¶}½L»ùªì©l­È³]©w
    
80.         Hv(3) = Cv(3)                                  ' ¥D¤O±±½L³Ì°ª»ùªì©l­È³]©w
    
81.         Lv(3) = Cv(3)                                  ' ¥D¤O±±½L³Ì§C»ùªì©l­È³]©w
    
82.     End If
    
83. 
    
84.     turnKey = turnKey + 1
    
85. 
    
86.     If (Cv(1) > Hv(1)) Then Hv(1) = Cv(1)              ' §PÂ_¦hªÅ¤O¹D³Ì°ª»ù
    
87.     If (Cv(2) > Hv(2)) Then Hv(2) = Cv(2)              ' §PÂ_¤Ï¦V¶Õ¤O³Ì°ª»ù
    
88.     If (Cv(3) > Hv(3)) Then Hv(3) = Cv(3)              ' §PÂ_¥D¤O±±½L³Ì°ª»ù
    
89. 
    
90.     If (Cv(1) < Lv(1)) Then Lv(1) = Cv(1)              ' §PÂ_¦hªÅ¤O¹D³Ì§C»ù
    
91.     If (Cv(2) < Lv(2)) Then Lv(1) = Cv(2)              ' §PÂ_¤Ï¦V¶Õ¤O³Ì§C»ù
    
92.     If (Cv(3) < Lv(3)) Then Lv(1) = Cv(3)              ' §PÂ_¥D¤O±±½L³Ì§C»ù
    
93. 
    
94.     If (turnKey < nums) Then
    
95.         Application.OnTime (Now + TimeValue("00:00:01")), "ThisWorkbook.ExeSelf"
    
96.     Else
    
97.         If (Cv(1) <> 0) Then Call Timer
    
98.         ' Call Timer
    
99.         Call timerStart
    
100.     End If
     
101. End Sub
     
102. 
     
103. Sub timerStart()
     
104.     turnKey = 0          ' ¨C¤@½ü°j½L¤¤ªì©l­È¤§³]©w¡C
     
105. 
     
106.     If timerEnabled Then
     
107.         ' Application.OnTime (Now), "ThisWorkbook.ExeSelf"      
     
108.        [color=Red]Application.OnTime (Now + TimeValue("00:00:01")), "ThisWorkbook.timerOnTimer"[/color]
     
109.     Else
     
110.         ' ¨t²Î­è³s¤W DDE ¦Ü¸ê®Æ¶×¤JExcel¤u§@ªí³æ¡A¶·¦³¤@­Ó½w½Ä®É¬q¡A³o®É¦pªG°¨¤W¥h§ì¨úDDE¸ê®Æ¡A·|¦³«¬ºA¤£²Åªº¿ù»~°T®§²£¥Í¡A¨Ã¤¤Â_°õ¦æ§Çªº§@·~¡C
     
111.         Application.OnTime (Now + TimeValue("00:00:05")), "ThisWorkbook.ExeSelf"
     
112.     End If
     
113. End Sub

½Æ»s¥N½X

¦³Ãö³]©w¶¡®æ®É¬q¥i¨Ì­Ó¤H»Ý¨D¦Ó³]¸m (­Ó¤H¬O¿ï¾Ü B¡B©Î C¡A B ¬O¼g¦º¦bµ{¦¡¤º¡A C ¥i±q¤u§@ªí³æ¤º¤§"A5"Äæ¦ì¨Ì­Ó¤H»Ý¨D¥h¥~³¡§ó§ï)
(A) LastMin = Hour(Time) * 3600 + Minute(Time) * 60 + Second(Time) ¬O¨D¥X²{¦b®É¶¡¤§´«ºâ­È¡A
      ¦p¡G²{¦b¬O 11:25:10¡A «h LastMin = 41110 ¬í¡F
(B) ½d¨Ò¤¤ªº nums = 30¡A ¬Oª½±µ³]©w¬° 30 ¬í¡F
(C) ³]©w¤@©T©wÄæ¦ì (°²³]¬° "A5")¡A¨äÄæ¦ì­Èª½±µ¿é¤J 00:00:30¡C
      nums = Hour(Cells(5,1).Value) * 3600 + Minute(Cells(5,1).Value) * 60 + Second(Cells(5,1).Value)
     «h nums =  30 ¬í¡C   
P.S. ¦pªG§A·Q­nÆF¬¡¹B§@ªº¸Ü¡A ¥i¿ï¾Ü C ¶µ¡A¸û¦³¼u©Ê¡A A ¶µµ{¦¡½X¦b³B²z¤W·|µL¿×ªº¼W¤j
       (¦p¥[¤W¦h¤Ö®É¶¡¦A¥h§P¹ï¤ñ¸û¡AµM«á¤S¦A¨D±o¥Ø«e®É¶¡µ¥)¡C
ªþ¤Wµ{¦¡°õ¦æµe­±¦@ÀÀ°Ñ¦Ò¡G

¤U¸ü (78.36 KB)

2012-5-27 12:15

0526¤¸¤j°O¿ý¶qºAOHLC.rar (22.53 KB)

¤U¸ü¦¸¼Æ: 13

2012-5-27 12:15

mead

¦^´_  mead
°Ñ¦Ò¤@¤U30¬í+K½u¹Ïtext
f3202 µoªí©ó 2012-5-27 08:54

ÁÂÁÂf3202¤j¤j¼ö¤ßÀ°¦£
¦ý¦]Åv­­¤£°÷  ¬O§_³Â·Ð±H¨ì§Úªºmail:
[email protected]

·P®¦¦A·P®¦

f3202

¦^´_ 7# mead
´Á³f§Y®É¶qºA½u.rar (18.49 KB)

¤U¸ü¦¸¼Æ: 9

2012-5-27 08:50

°Ñ¦Ò¤@¤U30¬í+K½u¹Ïtext

mead

¨Ì§A¥Ø«eªº»Ý¨D¨Ó»¡¡A­n¥H¦hªÅ¤O¹D¡B¤Ï¦V¶Õ¤O¡B¥D¤O±±½Lªº¸ê®Æ¦C¨Ó³B²zªº¸Ü¡A
¬O¦³Ãø«×¡A¦Ó¥B§Ú¥»¨­¬O¤£ ...
c_c_lai µoªí©ó 2012-5-26 15:59

c_c_lai ¤j¤j§Ú¦pªþ¥ó¾ã¦X¤@¤U
¦n¹³¤£¦æ£z£°  ³£¬O1¬í¬ö¿ý  µLªk1¤À§PÂ_!
©êºp!¦]µ{¦¡©³¤l¤£¦n  ¥u¯à¨Ì¼Ëµe¸¬Äª
³Â·Ð«ü¥¿

ÁÂÁ  ·P®¦

0526¤¸¤j°O¿ý¶qºAOHLC.rar (21.78 KB)

¤U¸ü¦¸¼Æ: 5

2012-5-26 22:31

mead

¨Ì§A¥Ø«eªº»Ý¨D¨Ó»¡¡A­n¥H¦hªÅ¤O¹D¡B¤Ï¦V¶Õ¤O¡B¥D¤O±±½Lªº¸ê®Æ¦C¨Ó³B²zªº¸Ü¡A
¬O¦³Ãø«×¡A¦Ó¥B§Ú¥»¨­¬O¤£ ...
c_c_lai µoªí©ó 2012-5-26 15:59

·PÁÂc_c_lai ¤j¤j³o»ò¼ö¤ßªºÀ°¦£
§Ú¦Û¦æ´ú¸Õ¬Ý¬Ý
ÁÂÁÂ
·P®¦¦A·P®¦

c_c_lai

·PÁÂc_c_lai¤j¤jªº¼ö¤ß¸Ô²Ó¸Ñ»¡  ¾Ç²ß¤F¸Ñ¨Ç¤F
¦A½Ð°Ý c_c_lai ¤j¤j  §Y®É¤ñ¹ïªºO/H/L/C ­n¦p¦ó«ü©w¼È¦s ...
mead µoªí©ó 2012-5-26 11:57

¨Ì§A¥Ø«eªº»Ý¨D¨Ó»¡¡A­n¥H¦hªÅ¤O¹D¡B¤Ï¦V¶Õ¤O¡B¥D¤O±±½Lªº¸ê®Æ¦C¨Ó³B²zªº¸Ü¡A
¬O¦³Ãø«×¡A¦Ó¥B§Ú¥»¨­¬O¤£°µ³o»ò³B¸Ìªº¡C
¤@¯ë±`¨£ªº¦h¥H¦¨¥æ»ù¬°¥D¹Ï¡B¦¨¥æ¶q¡B¦hªÅ¤O¹D¡B¤Ï¦V¶Õ¤Oµ¥¬°ªþ¹Ï¡C
¤]´N¬O»¡¦h¥H K ½uªº O/H/L/C ¨Ó³B²zªÑ»ù¹Ï¡A¥H§é½u¡B¬Wª¬¹Ï¨Ó»²§Uªþ¹Ï¡C
¦Ó¥B§A¥Ø«eªº¦hªÅ¤O¹D¡B¤Ï¦V¶Õ¤O¡B¥D¤O±±½Lªº¼Æ¾Ú§¡¦³¥¿­t¼Æ¡A§Ú¨S¸Õ¹L
ªÑ»ù¹Ï¯à§_³B²z¦¹¥¿­t­Èªº¼Æ¦C¡C§A¥i¥H¸Õ¸Õ¬Ý¡A¤èªk¦p¤U¡G
(1)  °²³]§A³]©w¨C¹j 30 ¬í³B²z¸ê®Æ¤@µ§¡C (§Ú¤§«eªþ¤Wªº½d¨Ò§Y¬O)
(2) °²³]§A³]©wBCDEÄæ¦ì¬°¦hªÅ¤O¹D¤§O/H/L/C¡AFGHIÄæ¦ì¬°¤Ï¦V¶Õ¤O¤§O/H/L/C¡AJKLMÄæ¦ì¬°¥D¤O±±½L¤§O/H/L/C¡C
(3) §Ú¤§«eªþ¤Wªº½d¨Ò¥[¥H­×§ï¦¨§A­nªº (·Q¤F·QÁÙ¬OÀ°§A§¹¦¨§a¡I)¡G

1. Option Explicit
   
2. Dim timerEnabled As Boolean  '
   
3. Dim counter As Single        ' ¥Ü½d¥Î­p¼Æ¾¹
   
4. Dim Ov(1 To 3), Hv(1 To 3), Lv(1 To 3), Cv(1 To 3) As Single  ' ¶}½L»ù¡B³Ì°ª»ù¡B³Ì°ª»ù¡B¦¬½L»ù(¦¨¥æ»ù) µ¥³]©w¤§ÅܼơC
   
5.                                                               ' §ï¥H°}¦C³B²z¡C(1. ¦hªÅ¤O¹D¡B2. ¤Ï¦V¶Õ¤O¡B3. ¥D¤O±±½L)
   
6. Dim turnKey As Integer   ' §PÂ_¨C¤@½ü°j¤W¦CÅܼƪì©l­È¤§³]©w¡C
   
7. Dim nums As Integer      ' ±N¨C¹j "¦h¤Ö®É¶¡" ³B²z®É¬q¡A²¾¨ì¦¹³B¨Ó³B²z¡C
   
8. 
   
9. Private Sub Workbook_Open()
   
10.     counter = 0
    
11. 
    
12.     nums = 30            ' ³]©w¨C¹j 30 ¬í³B²z®É¬q¡A¥ç¥i§ó§ï¦¨ 10 (¨C¹j 10 ¬í)¡B20 (¨C¹j 20 ¬í)µ¥µ¥¡C
    
13.                          ' ¦¹³B¤£«Øij¨Ï¥Î 1 ¬í®É¬q¨Ó³B²z¡A¦]¬°ÁÙ­n¥h¨D¥X¶}½L¡B³Ì°ª¡B³Ì§C¡B¦¨¥æ»ù¡C
    
14.     timerEnabled = False
    
15.     Call timerStart      ' µ{¦¡¤@±Ò©l¡A«K¥h¦Û°Ê°õ¦æ timerStart      
    
16. End Sub
    
17. 
    
18. Sub Timer()
    
19.     Dim str As String
    
20.    
    
21.     If (TimeValue(Now) >= TimeValue("08:45:00") And TimeValue(Now) <= TimeValue("13:46:01")) Then    ' ¶}½L¡B¦¬½L®É¬q³]©w
    
22.         ' ½L¤¤³B²z¡A±N¸ê®Æ¶×¤J¼g¤J¤u§@ªí³æ¤ºÀx¦s¡C
    
23. 
    
24.         With Sheets("µ¦²¤°O¿ý")
    
25.             .Cells(4, 2) = .Cells(4, 2) + 1 '±NÅܰʦ渹¥[¤@¦æ
    
26.             Pos = .Cells(4, 2)
    
27.             .Cells(Pos, 1) = Time
    
28.             .Cells(Pos, 2) = Ov(1)    ' B Äæ
    
29.             .Cells(Pos, 3) = Hv(1)    ' C Äæ
    
30.             .Cells(Pos, 4) = Lv(1)    ' D Äæ
    
31.             .Cells(Pos, 5) = Cv(1)    ' E Äæ
    
32.             .Cells(Pos, 6) = Ov(2)    ' F Äæ
    
33.             .Cells(Pos, 7) = Hv(2)    ' G Äæ
    
34.             .Cells(Pos, 8) = Lv(2)    ' H Äæ
    
35.             .Cells(Pos, 9) = Cv(2)    ' I Äæ
    
36.             .Cells(Pos, 10) = Ov(3)   ' J Äæ
    
37.             .Cells(Pos, 11) = Hv(3)   ' K Äæ
    
38.             .Cells(Pos, 12) = Lv(3)   ' L Äæ
    
39.             .Cells(Pos, 13) = Cv(3)   ' M Äæ
    
40.         End With
    
41.     End If
    
42. End Sub
    
43. 
    
44. Sub ExeSelf()
    
45.     timerEnabled = True
    
46. 
    
47.     If IsError(Sheets("µ¦²¤°O¿ý").Range("B2").Value) Then ' °²³] B2 Äæ¦ì¬°¦hªÅ¤O¹D
    
48.         Cv(1) = 0
    
49.         Cv(2) = 0
    
50.         Cv(3) = 0
    
51.     Else
    
52.         Cv(1) = Sheets("µ¦²¤°O¿ý").Range("B2").Value   ' ¦hªÅ¤O¹D¦¨¥æ»ù
    
53.         Cv(2) = Sheets("µ¦²¤°O¿ý").Range("C2").Value   ' ¤Ï¦V¶Õ¤O¦¨¥æ»ù
    
54.         Cv(3) = Sheets("µ¦²¤°O¿ý").Range("D2").Value   ' ¥D¤O±±½L¦¨¥æ»ù
    
55.     End If
    
56.    
    
57.     If (turnKey = 0 Or Ov(1) = 0) Then                 ' ·í turnKey ­È¬°0¡Aªí¥Ü¨ä¬°ªì©l­È³]©w¡C¬°¦Ò¶q¨t²Î­è³s¤W DDE¡A
    
58.                                                        ' ¦³®É¦b²Ä¤@®Ú¼Æ­È²£¥Í®É Ov = Cv ­È¥i¯à¬° 0 (IsError()ªºª¬ºA)¡C
    
59.         Ov(1) = Cv(1)                                  ' ¦hªÅ¤O¹D¶}½L»ùªì©l­È³]©w
    
60.         Hv(1) = Cv(1)                                  ' ¦hªÅ¤O¹D³Ì°ª»ùªì©l­È³]©w
    
61.         Lv(1) = Cv(1)                                  ' ¦hªÅ¤O¹D³Ì§C»ùªì©l­È³]©w
    
62.         Ov(2) = Cv(2)                                  ' ¤Ï¦V¶Õ¤O¶}½L»ùªì©l­È³]©w
    
63.         Hv(2) = Cv(2)                                  ' ¤Ï¦V¶Õ¤O³Ì°ª»ùªì©l­È³]©w
    
64.         Lv(2) = Cv(2)                                  ' ¤Ï¦V¶Õ¤O³Ì§C»ùªì©l­È³]©w
    
65.         Ov(3) = Cv(3)                                  ' ¥D¤O±±½L¶}½L»ùªì©l­È³]©w
    
66.         Hv(3) = Cv(3)                                  ' ¥D¤O±±½L³Ì°ª»ùªì©l­È³]©w
    
67.         Lv(3) = Cv(3)                                  ' ¥D¤O±±½L³Ì§C»ùªì©l­È³]©w
    
68.     End If
    
69.    
    
70.     turnKey = turnKey + 1
    
71.    
    
72.     If (Cv(1) > Hv(1)) Then Hv(1) = Cv(1)              ' §PÂ_¦hªÅ¤O¹D³Ì°ª»ù
    
73.     If (Cv(2) > Hv(2)) Then Hv(2) = Cv(2)              ' §PÂ_¤Ï¦V¶Õ¤O³Ì°ª»ù
    
74.     If (Cv(3) > Hv(3)) Then Hv(3) = Cv(3)              ' §PÂ_¥D¤O±±½L³Ì°ª»ù
    
75. 
    
76.     If (Cv(1) < Lv(1)) Then Lv(1) = Cv(1)              ' §PÂ_¦hªÅ¤O¹D³Ì§C»ù
    
77.     If (Cv(2) < Lv(2)) Then Lv(1) = Cv(2)              ' §PÂ_¤Ï¦V¶Õ¤O³Ì§C»ù
    
78.     If (Cv(3) < Lv(3)) Then Lv(1) = Cv(3)              ' §PÂ_¥D¤O±±½L³Ì§C»ù
    
79. 
    
80.     If (turnKey < nums) Then
    
81.         Application.OnTime (Now + TimeValue("00:00:01")), "ThisWorkbook.ExeSelf"
    
82.     Else
    
83.         If (Cv(1) > 0) Then Call Timer
    
84.         Call timerStart
    
85.     End If
    
86. End Sub
    
87. 
    
88. Sub timerStart()
    
89.     turnKey = 0          ' ¨C¤@½ü°j½L¤¤ªì©l­È¤§³]©w¡C
    
90. 
    
91.     If timerEnabled Then
    
92.         Application.OnTime (Now), "ThisWorkbook.ExeSelf"
    
93.     Else
    
94.         ' ¨t²Î­è³s¤W DDE ¦Ü¸ê®Æ¶×¤JExcel¤u§@ªí³æ¡A¶·¦³¤@­Ó½w½Ä®É¬q¡A³o®É¦pªG°¨¤W¥h§ì¨úDDE¸ê®Æ¡A·|¦³«¬ºA¤£²Åªº¿ù»~°T®§²£¥Í¡A¨Ã¤¤Â_°õ¦æ§Çªº§@·~¡C
    
95.         Application.OnTime (Now + TimeValue("00:00:05")), "ThisWorkbook.ExeSelf"
    
96.     End If
    
97. End Sub

½Æ»s¥N½X

(4) ¦pªG¦³¤F O/H/L/C «á¡A§A´N·ÓµÛ§Ú³Ì¥ý§i¶D§AªºªÑ»ù¹Ï»s§@¤èªk¡A¤@¤Á«K¤j¥\§i¦¨¤F¡I
(5) ¥¿¦p§Ú¦b«e­±»¡¹Lªº¡G§Ú¨S¸Õ¹LªÑ»ù¹Ï¯à§_³B²z¦¹¥¿­t­Èªº¼Æ¦C¡A§A¥i¥H¸Õ¸Õ¬Ý¡C
     ³o¨à§Ú¥u¬O±Ð§A«ç»ò³B²z¤H¤u²£¥Í¤§ O/H/L/C ªºÂ¬ªù¦Ó¤w¡I