c_c_lai

¦^´_ 1# xu123
´N¥H§A¤â¤W®×¨Ò¨Ó°Q½×ªº¸Ü¡A§A¥u­n±N "00:00:01" (¨C¤@¬í)
­×§ï¬° "00:00:30"  (¨C¤T¤Q¬í) «K§¹¦¨¤F¡I

c_c_lai

¦^´_ 3# xu123
¤£¶·µ¥¶}½L¡A§A¥u­n¶}±Ò¸ÓExcel ªí³æ¡A©ó 8:45 «áÆ[¹î¨C¹j30¬í¬O§_·|¼g¤J¤@µ§¬ö¿ý¡A
µª®×«K§Yª¾¾å¡C

c_c_lai

¦^´_ 6# xu123
½Ðªþ¤WÀɮץѧڳo¤è¨ÓÆ[¹î¡A¦]¬°¨º¥»¨Ó´N¥i¦æªº¡A
§_«h§Aªº "00:00:01" ¥çµLªk°õ¦æ¡C

c_c_lai

¦^´_ 6# xu123
ªþ¤W¹Ï¤ù¥H¤Îµ{¦¡½X¨Ñ§A¹ê°È°Ñ¦Ò¡G
¤@¡B DDE ¨C¤ÀÄÁ°O¿ý§ï¬°30¬í¦Û°Ê°O¿ý¤@¦¸­n«ç§ï [­×§ï]

¤U¸ü (53.2 KB)

2012-5-26 09:33

1. Option Explicit
   
2. Dim counter As Single      ' ¬°¥[²`¦L¶H¡A¥Î¥¦¨ÓÅã¥Üµ{¦¡¦³§_¦b¹B¦æ³B²z
   
3. 
   
4. Private Sub Workbook_Open()
   
5.     counter = 0
   
6. 
   
7.     Call timerStart        ' ·í¶}±Ò¥» Excel ÀɮסAµ{¦¡«h¦Û°Ê°õ¦æ timerStart µ{¦¡¬q¡C
   
8. End Sub
   
9. 
   
10. Sub timerStart()
    
11.     ' ¥»½d¨Ò³]©w®É¶¡¬O±q¨C¤é¤KÂI¥|¤Q¤­¤À¶}©l°_ºâ¡A¨C¹j 30 ¬í«K·|¦Û°Ê¥h°õ¦æ ThisWorkbook µ{¦¡°Ï°ì¤ºªº ExeSelf¡C
    
12.     ' ¦pªGı±oµ¥¤Ó¤[¤F¡A¤]¥i¥H¥h²§°Ê®É¬q¡C¨Ò¦p: "00:00:01"(¨C¹j 1 ¬í)¡B"00:00:10"(¨C¹j 10 ¬í)¡B"00:00:20"(¨C¹j 20 ¬í) µ¥µ¥¡C
    
13.     If (TimeValue(Now) > TimeValue("08:45:00")) Then Application.OnTime (Now + TimeValue("00:00:30")), "ThisWorkbook.ExeSelf"
    
14. End Sub
    
15. 
    
16. Sub ExeSelf()
    
17.     counter = counter + 1   ' counter ·|³v¦¸¥[¤@
    
18. 
    
19.     [F8].Value = counter    ' 08:45 «á¨C¹j 30 ¬í¡A½ÐÆ[¹î F1 Äæ¦ì¼Æ¦r¬O§_·|²§°Ê¡H
    
20.     Call timerStart         ' µ{¦¡¤§©Ò¥H·|¤ÏÂаõ¦æ¡A´N¦b©ó¥»¦æ¦Û°Ê¦A¥h¦^ÀY©I¥s°õ¦æ timerStart µ{¦¡¬q¤@¦¸¤§¬G¡C
    
21. End Sub

½Æ»s¥N½X

¤G¡B ¦hªÅ¤O¹D (O/H/L/C) ¹ê»Ú¤§µ{¦¡¹B§@µ{¦¡½X¡A½Ð²Ó¤ßºÝ­Ù¡C

1. Option Explicit
   
2. 
   
3. Dim timerEnabled As Boolean  '
   
4. Dim counter As Single        ' ¥Ü½d¥Î­p¼Æ¾¹
   
5. Dim Ov As Single, Hv As Single, Lv As Single, Cv As Single As Single  ' ¶}½L»ù¡B³Ì°ª»ù¡B³Ì°ª»ù¡B¦¬½L»ù(¦¨¥æ»ù) µ¥³]©w¤§ÅܼơC
   
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 timerStart()
    
19.     turnKey = 0          ' ¨C¤@½ü°j½L¤¤ªì©l­È¤§³]©w¡C
    
20. 
    
21.     If timerEnabled Then
    
22.         Application.OnTime (Now), "ThisWorkbook.ExeSelf"
    
23.     Else
    
24.         ' ¨t²Î­è³s¤W DDE ¦Ü¸ê®Æ¶×¤JExcel¤u§@ªí³æ¡A¶·¦³¤@­Ó½w½Ä®É¬q¡A³o®É¦pªG°¨¤W¥h§ì¨úDDE¸ê®Æ¡A·|¦³«¬ºA¤£²Åªº¿ù»~°T®§²£¥Í¡A¨Ã¤¤Â_°õ¦æ§Çªº§@·~¡C
    
25.         Application.OnTime (Now + TimeValue("00:00:05")), "ThisWorkbook.ExeSelf"
    
26.     End If
    
27. End Sub
    
28. 
    
29. Sub ExeSelf()
    
30.     timerEnabled = True
    
31. 
    
32.     If IsError(Sheets("¤u§@ªí1").Range("E5").Value) Then ' °²³] E5 Äæ¦ì¬°¦hªÅ¤O¹D
    
33.         Cv = 0
    
34.     Else
    
35.         Cv = Sheets("¤u§@ªí1").Range("E5").Value          ' ¦hªÅ¤O¹D¦¨¥æ»ù
    
36.     End If
    
37.    
    
38.     If (turnKey = 0 Or Ov = 0) Then                     ' ·í turnKey ­È¬°0¡Aªí¥Ü¨ä¬°ªì©l­È³]©w¡C¬°¦Ò¶q¨t²Î­è³s¤W DDE¡A
    
39.                                                         ' ¦³®É¦b²Ä¤@®Ú¼Æ­È²£¥Í®É Ov = Cv ­È¥i¯à¬° 0 (IsError()ªºª¬ºA)¡C
    
40.         Ov = Cv                                         ' ¦hªÅ¤O¹D¶}½L»ùªì©l­È³]©w
    
41.         Hv = Cv                                         ' ¦hªÅ¤O¹D³Ì°ª»ùªì©l­È³]©w
    
42.         Lv = Cv                                         ' ¦hªÅ¤O¹D³Ì§C»ùªì©l­È³]©w
    
43.     End If
    
44.    
    
45.     turnKey = turnKey + 1
    
46.    
    
47.     If (Cv > Hv) Then Hv = Cv                           ' §PÂ_¦hªÅ¤O¹D³Ì°ª»ù
    
48.     If (Cv < Lv) Then Lv = Cv                           ' §PÂ_¦hªÅ¤O¹D³Ì§C»ù
    
49. 
    
50.     counter = counter + 1
    
51.     [F1].Value = counter    ' 08:45 «á¨C¹j 30 ¬í¡A½ÐÆ[¹î F1 Äæ¦ì¼Æ¦r¬O§_·|²§°Ê¡H
    
52.    
    
53.     If (turnKey < nums) Then
    
54.         Application.OnTime (Now + TimeValue("00:00:01")), "ThisWorkbook.ExeSelf"
    
55.     Else
    
56.         If (Cv > 0) Then Call Timer
    
57.         Call timerStart
    
58.     End If
    
59. End Sub
    
60. 
    
61. Sub Timer()
    
62.     Dim str As String
    
63.    
    
64.     If (TimeValue(Now) >= TimeValue("08:45:00") And TimeValue(Now) <= TimeValue("13:46:01")) Then    ' ¶}½L¡B¦¬½L®É¬q³]©w
    
65.         ' ½L¤¤³B²z¡A±N¸ê®Æ¶×¤J¼g¤J¤u§@ªí³æ¤ºÀx¦s¡C
    
66. 
    
67.     End If
    
68. End Sub

½Æ»s¥N½X

½Ð¯d·N¦¹¨â¤äµ{¦¡ªº¼gªk¤W¤§®t²§¡A§Ú³£ºÉ¶q¤@¤@¥[¥H»¡©ú¬°¦ó¦p¦¹¡A¬Û«H¹ï§A·|¦³§U¯q¡C
§Ú­Ì¦b¤H¥Í®Èµ{¤W³£¬O±q¤£ª¾¦ÓÀòª¾¤¤¦¨ªøªº¡A¥u­n¦³¤ß³£¥i¥H¦¨¥\ªº¡C

c_c_lai

¦^´_ 9# xu123

¤U¸ü (49.39 KB)

2012-5-26 11:32

1. Option Explicit
   
2. Dim LastMin As String          ' §ó§ï¬°¶¡¹j®É¬q³]©w
   
3. 
   
4. Private Sub Workbook_Open()
   
5.     Sheets("µ¦²¤°O¿ý").Cells(4, 2) = 10     ' «O¯d§A¤§«eªº³]©w¡A¨C¦¸¤@¶}±ÒExcel³£­«·s¶}©l
   
6.     LastMin = "00:00:30"          ' ¨C¹j 30 ¬íªº®É¬q³]©w¡C¦p»Ý¥H¤@¤ÀÄÁ°µ³B­ù¡A«h½Ð­×¥¿¬° "00:01:00"
   
7.    
   
8.     Call Timer
   
9. End Sub
   
10. 
    
11. Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
12.     On Error Resume Next
    
13.     Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkbook.Timer", , False
    
14. End Sub
    
15. 
    
16. 
    
17. Public Sub Timer()
    
18.     Dim Pos, i, HHMM As Integer, RangeStr As String
    
19.         
    
20.     On Error Resume Next
    
21.     Sheets("µ¦²¤°O¿ý").Cells(3, 2) = Time '±N®É¶¡show¦Üµ¦²¤ªºb3Äæ¦ì
    
22.    
    
23.     HHMM = Hour(Time) * 100 + Minute(Time)
    
24.     If (HHMM < 845 Or HHMM > 1345) Then Exit Sub 'Àç·~®É¶¡¤~°õ¦æ
    
25.         
    
26.     With Sheets("µ¦²¤°O¿ý")
    
27.         .Cells(4, 2) = .Cells(4, 2) + 1 '±NÅܰʦ渹¥[¤@¦æ
    
28.         Pos = .Cells(4, 2)
    
29.         .Cells(Pos, 1) = Time
    
30.         .Cells(Pos, 2) = .Cells(2, 2)
    
31.         .Cells(Pos, 3) = .Cells(2, 3)
    
32.         .Cells(Pos, 4) = .Cells(2, 4)
    
33.         .Cells(Pos, 5) = .Cells(2, 5)
    
34.         .Cells(Pos, 6) = .Cells(2, 6)
    
35.         .Cells(Pos, 7) = .Cells(2, 7)
    
36.         .Cells(Pos, 8) = .Cells(2, 8)
    
37.         .Cells(Pos, 9) = .Cells(2, 9)
    
38.         .Cells(Pos, 10) = .Cells(2, 10)
    
39.     End With
    
40.    
    
41.     Application.OnTime Now + TimeValue(LastMin), "ThisWorkbook.Timer"  ' ¨C LastMin °õ¦æ¤@¦¸
    
42. End Sub

½Æ»s¥N½X

¯¬¬P´Á°²¤é´r§Ö¡I
¦Û°Ê°O¿ý¨C¤ÀÄÁ©e¶R½æ§¡­È-½d¨Ò.rar (12.31 KB)

¤U¸ü¦¸¼Æ: 99

2012-5-26 11:38

c_c_lai

¦^´_ 17# mead
ªþ¤W¤@­Ó¥i¥HÀH§A»Ý¨D²§°Êªº "¦Û°Ê°O¿ý¨C¤ÀÄÁ©e¶R½æ§¡­È"¡A
¥H«á§A´N¨S¦³·Ð´oªº¨Æ¤F¡I
¦Û°Ê°O¿ý¨C¤ÀÄÁ©e¶R½æ§¡­È.rar (13.96 KB)

¤U¸ü¦¸¼Æ: 83

2012-6-25 07:55

P.S. ½Ð±N Time() ¸Ìªº             .Cells(21, 2).Offset(0).Resize(, 9) = .[B12:J12].Value
§ó§ï¦¨                                      .Cells(Pos, 2).Offset(0).Resize(, 9) = .[B2:J2].Value

c_c_lai

¦^´_ 19# mead
§ä¨ì¤F¡A¤w  E-Mail ¹L¥h¤F¡I

c_c_lai

¦^´_ 21# usana642
1. ½Ð±N¤U¦Cµ{¦¡½X½Æ»s¨ì ThisWorkbook ¼Ò²Õ¤º¡A¨Ã¤©Àx¦s¡C

1. Option Explicit
   
2. Dim timerEnabled As Boolean    ' §P©w¶}±Ò¥»¤u§@ªí³æªº®É¬q¬O§_¬°¶}½L«e±Ò°Ê¡C
   
3. Dim Pos As Integer             ' ±N¨C¹j "¦h¤Ö®É¶¡" ³B²z®É¬q¡A²¾¨ì¦¹³B¨Ó³B²z¡C
   
4. 
   
5. Private Sub Workbook_Open()
   
6.     Pos = Sheets("µ¦²¤°O¿ý").Range("B" & Rows.Count).End(xlUp).Row
   
7.     If (Pos < 11) Then Pos = 10
   
8.     Sheets("µ¦²¤°O¿ý").Cells(4, 2) = Pos
   
9. 
   
10.     If (Sheets("µ¦²¤°O¿ý").Range("B6").Value = "") Then Sheets("µ¦²¤°O¿ý").Range("B6").Value = "08:45:00"
    
11.     If (Sheets("µ¦²¤°O¿ý").Range("B7").Value = "") Then Sheets("µ¦²¤°O¿ý").Range("B7").Value = "13:45:00"
    
12.     If (Sheets("µ¦²¤°O¿ý").Range("B8").Value = "") Then Sheets("µ¦²¤°O¿ý").Range("B8").Value = "00:00:30"
    
13.    
    
14.     timerEnabled = False
    
15. 
    
16.     Call timerStart      ' µ{¦¡¤@±Ò©l¡A«K¥h¦Û°Ê°õ¦æ timerStart
    
17. End Sub
    
18. 
    
19. Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
20.     On Error Resume Next
    
21.     Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkbook.Timer", , False
    
22.    
    
23.     Me.Save
    
24. End Sub
    
25. 
    
26. Public Sub Timer()
    
27.     On Error Resume Next
    
28.     If (TimeValue(Now) > Sheets("µ¦²¤°O¿ý").Range("B7").Value) Then Exit Sub
    
29.    
    
30.     If (TimeValue(Now) >= Sheets("µ¦²¤°O¿ý").Range("B6").Value) Then         ' ¶}½L¡B¦¬½L®É¬q³]©w
    
31.         ' ½L¤¤³B²z¡A±N¸ê®Æ¶×¤J¼g¤J¤u§@ªí³æ¤ºÀx¦s¡C
    
32. 
    
33.         With Sheets("µ¦²¤°O¿ý")
    
34.             .Cells(3, 2) = Time             ' ±N®É¶¡ Show ¦Üµ¦²¤ªº B3 Äæ¦ì
    
35. 
    
36.             Pos = Pos + 1                   ' ±NÅܰʦ渹¥[¤@¦æ
    
37.             .Cells(4, 2) = Pos
    
38. 
    
39.             .Cells(Pos, 1) = Time
    
40.             .Cells(Pos, 2).Offset(0).Resize(, 9) = .[B2:J2].Value
    
41.         End With
    
42.     End If
    
43.         
    
44.     Call timerStart
    
45. End Sub
    
46. 
    
47. Sub timerStart()
    
48.     If timerEnabled Then
    
49.         ' ²Ä¤G¦¸(§t)¥H«á§¡¥H³]©w¤§ "¶¡¹j®É¬q" ¨Ó³B²z°õ¦æ§Çªº§@·~¡C
    
50.         Application.OnTime (Now + Sheets("µ¦²¤°O¿ý").Range("B8").Value), "ThisWorkbook.Timer"
    
51.     Else
    
52.         timerEnabled = True
    
53.         
    
54.         ' ±N²Ä¤@¦¸±Ò°Ê®É¶¡§ó§ï¬°³]©w "¶}½L®É¶¡"«e¡A¦pªG¶}±Ò Excel ®É¡A¤w¸g¹L¤F³]©w "¶}½L®É¶¡"¡A«h¤@¶i¤J¨t²Î§Yª½±µ¥h°õ¦æ¬ö¿ý§@·~¡C
    
55.         If (TimeValue(Now) <= Sheets("µ¦²¤°O¿ý").Range("B6").Value) Then
    
56.             Application.OnTime (Sheets("µ¦²¤°O¿ý").Range("B6").Value), "ThisWorkbook.Timer"
    
57.         Else
    
58.             ' ¨t²Î­è³s¤W DDE ¦Ü¸ê®Æ¶×¤JExcel¤u§@ªí³æ¡A¶·¦³¤@­Ó½w½Ä®É¬q¡A
    
59.             ' ³o®É¦pªG°¨¤W¥h§ì¨úDDE¸ê®Æ¡A·|¦³«¬ºA¤£²Åªº¿ù»~°T®§²£¥Í¡A¨Ã¤¤Â_°õ¦æ§Çªº§@·~¡C
    
60.             Application.OnTime (Now + TimeValue("00:00:05")), "ThisWorkbook.Timer"
    
61.         End If
    
62.     End If
    
63. End Sub

½Æ»s¥N½X

2. ¤u§@ªí³æ¤º®e¦p¹Ï¡A½Ð°Ñ¦Ò¥¦»Pµ{¦¡½X¶¡ªºÃö«Y¤Î¹B§@¡C

¤U¸ü (92.58 KB)

2012-6-26 06:45

3. ¥H¤W§¹¦¨«á¡A¥ý±N¥»±M®×Àx¦s¨ÃÂ÷¶}¡C
4. ±µ¤U¨Ó¥ý¥´¶}¨é°Ó³nÅé
    (Ä´¦p¡G§A»s§@ªº¤u§@ªí³æ¬O¸ò­þ¤@®a¨é°Ó³s½uªº¡A¦p EasyWin¡BeLeader¡B©Î¨ä¥L¨é°Ó³s½u³nÅé)¡A
    µM«á±Ò°Ê§A»s§@ªº "¦Û°Ê°O¿ý¨C¤ÀÄÁ©e¶R½æ§¡­È"  Excel¡A¨Ã¦P®É³s¤W¨é°Ó³s½u³nÅé¡A´N¤j¥\§i¦¨¤F¡I

§Æ±æ¥¦¯à§U¯q©ó§A¡A¨Ã¯àÀ°§U§A§ó¤W¤@¼h¼Ó¡C

c_c_lai

¦^´_ 25# steveyeh168
¨S E-Mail Address ¦p¦ó±Hµ¹§A¡H

c_c_lai

ÁÂÁÂC_C_lai......

¦A¦¸·PÁÂ~*_*
steveyeh168 µoªí©ó 2012-9-23 02:35

¦Û°Ê°O¿ý¨C¤ÀÄÁ©e¶R½æ§¡­È.rar (13.96 KB)

¤U¸ü¦¸¼Æ: 76

2012-9-23 05:59