½Ð°Ý°ª¤ân±N¥H¤UDDE ¨C¤ÀÄÁ°O¿ý§ï¬°30¬í¦Û°Ê°O¿ý¤@¦¸n«ç§ï
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 1# xu123
´N¥H§A¤â¤W®×¨Ò¨Ó°Q½×ªº¸Ü¡A§A¥un±N "00:00:01" (¨C¤@¬í)
קאּ "00:00:30" (¨C¤T¤Q¬í) «K§¹¦¨¤F¡I |
|
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 3# xu123
¤£¶·µ¥¶}½L¡A§A¥un¶}±Ò¸ÓExcel ªí³æ¡A©ó 8:45 «áÆ[¹î¨C¹j30¬í¬O§_·|¼g¤J¤@µ§¬ö¿ý¡A
µª®×«K§Yª¾¾å¡C |
|
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 6# xu123
½Ðªþ¤WÀɮץѧڳo¤è¨ÓÆ[¹î¡A¦]¬°¨º¥»¨Ó´N¥i¦æªº¡A
§_«h§Aªº "00:00:01" ¥çµLªk°õ¦æ¡C |
|
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 6# xu123
ªþ¤W¹Ï¤ù¥H¤Îµ{¦¡½X¨Ñ§A¹ê°È°Ñ¦Ò¡G
¤@¡B DDE ¨C¤ÀÄÁ°O¿ý§ï¬°30¬í¦Û°Ê°O¿ý¤@¦¸n«ç§ï [קï]
- Option Explicit
- Dim counter As Single ' ¬°¥[²`¦L¶H¡A¥Î¥¦¨ÓÅã¥Üµ{¦¡¦³§_¦b¹B¦æ³B²z
- Private Sub Workbook_Open()
- counter = 0
- Call timerStart ' ·í¶}±Ò¥» Excel ÀɮסAµ{¦¡«h¦Û°Ê°õ¦æ timerStart µ{¦¡¬q¡C
- End Sub
- Sub timerStart()
- ' ¥»½d¨Ò³]©w®É¶¡¬O±q¨C¤é¤KÂI¥|¤Q¤¤À¶}©l°_ºâ¡A¨C¹j 30 ¬í«K·|¦Û°Ê¥h°õ¦æ ThisWorkbook µ{¦¡°Ï°ì¤ºªº ExeSelf¡C
- ' ¦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
- If (TimeValue(Now) > TimeValue("08:45:00")) Then Application.OnTime (Now + TimeValue("00:00:30")), "ThisWorkbook.ExeSelf"
- End Sub
- Sub ExeSelf()
- counter = counter + 1 ' counter ·|³v¦¸¥[¤@
- [F8].Value = counter ' 08:45 «á¨C¹j 30 ¬í¡A½ÐÆ[¹î F1 Äæ¦ì¼Æ¦r¬O§_·|²§°Ê¡H
- Call timerStart ' µ{¦¡¤§©Ò¥H·|¤ÏÂаõ¦æ¡A´N¦b©ó¥»¦æ¦Û°Ê¦A¥h¦^ÀY©I¥s°õ¦æ timerStart µ{¦¡¬q¤@¦¸¤§¬G¡C
- End Sub
½Æ»s¥N½X ¤G¡B ¦hªÅ¤O¹D (O/H/L/C) ¹ê»Ú¤§µ{¦¡¹B§@µ{¦¡½X¡A½Ð²Ó¤ßºÝÙ¡C- Option Explicit
- Dim timerEnabled As Boolean '
- Dim counter As Single ' ¥Ü½d¥Îp¼Æ¾¹
- Dim Ov As Single, Hv As Single, Lv As Single, Cv As Single As Single ' ¶}½L»ù¡B³Ì°ª»ù¡B³Ì°ª»ù¡B¦¬½L»ù(¦¨¥æ»ù) µ¥³]©w¤§ÅܼơC
- Dim turnKey As Integer ' §PÂ_¨C¤@½ü°j¤W¦CÅܼƪì©lȤ§³]©w¡C
- Dim nums As Integer ' ±N¨C¹j "¦h¤Ö®É¶¡" ³B²z®É¬q¡A²¾¨ì¦¹³B¨Ó³B²z¡C
- Private Sub Workbook_Open()
- counter = 0
- nums = 30 ' ³]©w¨C¹j 30 ¬í³B²z®É¬q¡A¥ç¥i§ó§ï¦¨ 10 (¨C¹j 10 ¬í)¡B20 (¨C¹j 20 ¬í)µ¥µ¥¡C
- ' ¦¹³B¤£«Øij¨Ï¥Î 1 ¬í®É¬q¨Ó³B²z¡A¦]¬°ÁÙn¥h¨D¥X¶}½L¡B³Ì°ª¡B³Ì§C¡B¦¨¥æ»ù¡C
- timerEnabled = False
- Call timerStart ' µ{¦¡¤@±Ò©l¡A«K¥h¦Û°Ê°õ¦æ timerStart
- End Sub
- Sub timerStart()
- turnKey = 0 ' ¨C¤@½ü°j½L¤¤ªì©lȤ§³]©w¡C
- If timerEnabled Then
- Application.OnTime (Now), "ThisWorkbook.ExeSelf"
- Else
- ' ¨t²Îè³s¤W DDE ¦Ü¸ê®Æ¶×¤JExcel¤u§@ªí³æ¡A¶·¦³¤@Ó½w½Ä®É¬q¡A³o®É¦pªG°¨¤W¥h§ì¨úDDE¸ê®Æ¡A·|¦³«¬ºA¤£²Åªº¿ù»~°T®§²£¥Í¡A¨Ã¤¤Â_°õ¦æ§Çªº§@·~¡C
- Application.OnTime (Now + TimeValue("00:00:05")), "ThisWorkbook.ExeSelf"
- End If
- End Sub
- Sub ExeSelf()
- timerEnabled = True
- If IsError(Sheets("¤u§@ªí1").Range("E5").Value) Then ' °²³] E5 Äæ¦ì¬°¦hªÅ¤O¹D
- Cv = 0
- Else
- Cv = Sheets("¤u§@ªí1").Range("E5").Value ' ¦hªÅ¤O¹D¦¨¥æ»ù
- End If
-
- If (turnKey = 0 Or Ov = 0) Then ' ·í turnKey Ȭ°0¡Aªí¥Ü¨ä¬°ªì©lȳ]©w¡C¬°¦Ò¶q¨t²Îè³s¤W DDE¡A
- ' ¦³®É¦b²Ä¤@®Ú¼ÆȲ£¥Í®É Ov = Cv È¥i¯à¬° 0 (IsError()ªºª¬ºA)¡C
- Ov = Cv ' ¦hªÅ¤O¹D¶}½L»ùªì©lȳ]©w
- Hv = Cv ' ¦hªÅ¤O¹D³Ì°ª»ùªì©lȳ]©w
- Lv = Cv ' ¦hªÅ¤O¹D³Ì§C»ùªì©lȳ]©w
- End If
-
- turnKey = turnKey + 1
-
- If (Cv > Hv) Then Hv = Cv ' §PÂ_¦hªÅ¤O¹D³Ì°ª»ù
- If (Cv < Lv) Then Lv = Cv ' §PÂ_¦hªÅ¤O¹D³Ì§C»ù
- counter = counter + 1
- [F1].Value = counter ' 08:45 «á¨C¹j 30 ¬í¡A½ÐÆ[¹î F1 Äæ¦ì¼Æ¦r¬O§_·|²§°Ê¡H
-
- If (turnKey < nums) Then
- Application.OnTime (Now + TimeValue("00:00:01")), "ThisWorkbook.ExeSelf"
- Else
- If (Cv > 0) Then Call Timer
- Call timerStart
- End If
- End Sub
- Sub Timer()
- Dim str As String
-
- If (TimeValue(Now) >= TimeValue("08:45:00") And TimeValue(Now) <= TimeValue("13:46:01")) Then ' ¶}½L¡B¦¬½L®É¬q³]©w
- ' ½L¤¤³B²z¡A±N¸ê®Æ¶×¤J¼g¤J¤u§@ªí³æ¤ºÀx¦s¡C
- End If
- 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¥un¦³¤ß³£¥i¥H¦¨¥\ªº¡C |
|
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 9# xu123
- Option Explicit
- Dim LastMin As String ' §ó§ï¬°¶¡¹j®É¬q³]©w
- Private Sub Workbook_Open()
- Sheets("µ¦²¤°O¿ý").Cells(4, 2) = 10 ' «O¯d§A¤§«eªº³]©w¡A¨C¦¸¤@¶}±ÒExcel³£«·s¶}©l
- LastMin = "00:00:30" ' ¨C¹j 30 ¬íªº®É¬q³]©w¡C¦p»Ý¥H¤@¤ÀÄÁ°µ³Bù¡A«h½Ð×¥¿¬° "00:01:00"
-
- Call Timer
- End Sub
- Private Sub Workbook_BeforeClose(Cancel As Boolean)
- On Error Resume Next
- Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkbook.Timer", , False
- End Sub
- Public Sub Timer()
- Dim Pos, i, HHMM As Integer, RangeStr As String
-
- On Error Resume Next
- Sheets("µ¦²¤°O¿ý").Cells(3, 2) = Time '±N®É¶¡show¦Üµ¦²¤ªºb3Äæ¦ì
-
- HHMM = Hour(Time) * 100 + Minute(Time)
- If (HHMM < 845 Or HHMM > 1345) Then Exit Sub 'Àç·~®É¶¡¤~°õ¦æ
-
- With Sheets("µ¦²¤°O¿ý")
- .Cells(4, 2) = .Cells(4, 2) + 1 '±NÅܰʦ渹¥[¤@¦æ
- Pos = .Cells(4, 2)
- .Cells(Pos, 1) = Time
- .Cells(Pos, 2) = .Cells(2, 2)
- .Cells(Pos, 3) = .Cells(2, 3)
- .Cells(Pos, 4) = .Cells(2, 4)
- .Cells(Pos, 5) = .Cells(2, 5)
- .Cells(Pos, 6) = .Cells(2, 6)
- .Cells(Pos, 7) = .Cells(2, 7)
- .Cells(Pos, 8) = .Cells(2, 8)
- .Cells(Pos, 9) = .Cells(2, 9)
- .Cells(Pos, 10) = .Cells(2, 10)
- End With
-
- Application.OnTime Now + TimeValue(LastMin), "ThisWorkbook.Timer" ' ¨C LastMin °õ¦æ¤@¦¸
- End Sub
½Æ»s¥N½X ¯¬¬P´Á°²¤é´r§Ö¡I
¦Û°Ê°O¿ý¨C¤ÀÄÁ©e¶R½æ§¡È-½d¨Ò.rar (12.31 KB)
|
|
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¥»©«³Ì«á¥Ñ c_c_lai ©ó 2012-6-25 08:42 ½s¿è
¦^´_ 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)
P.S. ½Ð±N Time() ¸Ìªº .Cells(21, 2).Offset(0).Resize(, 9) = .[B12:J12].Value
§ó§ï¦¨ .Cells(Pos, 2).Offset(0).Resize(, 9) = .[B2:J2].Value |
|
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¥»©«³Ì«á¥Ñ c_c_lai ©ó 2012-6-25 17:34 ½s¿è
¦^´_ 19# mead
§ä¨ì¤F¡A¤w E-Mail ¹L¥h¤F¡I |
|
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 21# usana642
1. ½Ð±N¤U¦Cµ{¦¡½X½Æ»s¨ì ThisWorkbook ¼Ò²Õ¤º¡A¨Ã¤©Àx¦s¡C- Option Explicit
- Dim timerEnabled As Boolean ' §P©w¶}±Ò¥»¤u§@ªí³æªº®É¬q¬O§_¬°¶}½L«e±Ò°Ê¡C
- Dim Pos As Integer ' ±N¨C¹j "¦h¤Ö®É¶¡" ³B²z®É¬q¡A²¾¨ì¦¹³B¨Ó³B²z¡C
- Private Sub Workbook_Open()
- Pos = Sheets("µ¦²¤°O¿ý").Range("B" & Rows.Count).End(xlUp).Row
- If (Pos < 11) Then Pos = 10
- Sheets("µ¦²¤°O¿ý").Cells(4, 2) = Pos
- If (Sheets("µ¦²¤°O¿ý").Range("B6").Value = "") Then Sheets("µ¦²¤°O¿ý").Range("B6").Value = "08:45:00"
- If (Sheets("µ¦²¤°O¿ý").Range("B7").Value = "") Then Sheets("µ¦²¤°O¿ý").Range("B7").Value = "13:45:00"
- If (Sheets("µ¦²¤°O¿ý").Range("B8").Value = "") Then Sheets("µ¦²¤°O¿ý").Range("B8").Value = "00:00:30"
-
- timerEnabled = False
- Call timerStart ' µ{¦¡¤@±Ò©l¡A«K¥h¦Û°Ê°õ¦æ timerStart
- End Sub
- Private Sub Workbook_BeforeClose(Cancel As Boolean)
- On Error Resume Next
- Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkbook.Timer", , False
-
- Me.Save
- End Sub
- Public Sub Timer()
- On Error Resume Next
- If (TimeValue(Now) > Sheets("µ¦²¤°O¿ý").Range("B7").Value) Then Exit Sub
-
- If (TimeValue(Now) >= Sheets("µ¦²¤°O¿ý").Range("B6").Value) Then ' ¶}½L¡B¦¬½L®É¬q³]©w
- ' ½L¤¤³B²z¡A±N¸ê®Æ¶×¤J¼g¤J¤u§@ªí³æ¤ºÀx¦s¡C
- With Sheets("µ¦²¤°O¿ý")
- .Cells(3, 2) = Time ' ±N®É¶¡ Show ¦Üµ¦²¤ªº B3 Äæ¦ì
- Pos = Pos + 1 ' ±NÅܰʦ渹¥[¤@¦æ
- .Cells(4, 2) = Pos
-
- .Cells(Pos, 1) = Time
- .Cells(Pos, 2).Offset(0).Resize(, 9) = .[B2:J2].Value
- End With
- End If
-
- Call timerStart
- End Sub
- Sub timerStart()
- If timerEnabled Then
- ' ²Ä¤G¦¸(§t)¥H«á§¡¥H³]©w¤§ "¶¡¹j®É¬q" ¨Ó³B²z°õ¦æ§Çªº§@·~¡C
- Application.OnTime (Now + Sheets("µ¦²¤°O¿ý").Range("B8").Value), "ThisWorkbook.Timer"
- Else
- timerEnabled = True
-
- ' ±N²Ä¤@¦¸±Ò°Ê®É¶¡§ó§ï¬°³]©w "¶}½L®É¶¡"«e¡A¦pªG¶}±Ò Excel ®É¡A¤w¸g¹L¤F³]©w "¶}½L®É¶¡"¡A«h¤@¶i¤J¨t²Î§Yª½±µ¥h°õ¦æ¬ö¿ý§@·~¡C
- If (TimeValue(Now) <= Sheets("µ¦²¤°O¿ý").Range("B6").Value) Then
- Application.OnTime (Sheets("µ¦²¤°O¿ý").Range("B6").Value), "ThisWorkbook.Timer"
- Else
- ' ¨t²Îè³s¤W DDE ¦Ü¸ê®Æ¶×¤JExcel¤u§@ªí³æ¡A¶·¦³¤@Ó½w½Ä®É¬q¡A
- ' ³o®É¦pªG°¨¤W¥h§ì¨úDDE¸ê®Æ¡A·|¦³«¬ºA¤£²Åªº¿ù»~°T®§²£¥Í¡A¨Ã¤¤Â_°õ¦æ§Çªº§@·~¡C
- Application.OnTime (Now + TimeValue("00:00:05")), "ThisWorkbook.Timer"
- End If
- End If
- End Sub
½Æ»s¥N½X 2. ¤u§@ªí³æ¤º®e¦p¹Ï¡A½Ð°Ñ¦Ò¥¦»Pµ{¦¡½X¶¡ªºÃö«Y¤Î¹B§@¡C
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 |
|
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 25# steveyeh168
¨S E-Mail Address ¦p¦ó±Hµ¹§A¡H |
|
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
|
|
|
|
|
|