¦p¦ó±N¥x«ü´Áªº¨C¤@¤ÀÄÁ¸ê®Æ³£¬ö¿ý¦bsheet 1¸Ì..½Ð±Ðª©¤W°ª¤â«e½ú~~
- ©«¤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
c_c_lai¤j§A¦n¡F
¯à§_§â ªþ¥ó¡iµ¦²¤°O¿ý¡jÄæ[¼¯¥x][Áú°ê][¤é¥»]¤]¼W¦C¨C30¬í°O¿ý¡H
³s¦P ...
cfuxiong µoªí©ó 2012-12-8 12:53
¬Ý¤F§Aµ¦²¤°O¿ýªº¤º®e¡A¶×¤J®É¶¡¬O©T©wÄæ¬ö¿ý®É¶¡
(¥Ø«e¬O¨C¤@¤ÀÄÁ°O¿ý¤@µ§)¡A§A»¡ªº "¤]¼W¦C" ¨C30¬í°O¿ý¡H
¤£¤Ó©ú¥Õ§A·Qªº¬O¬Æ»ò¡H
¤S¡B [¼¯¥x][Áú°ê][¤é¥»] ¸ê®Æ·½¦bþ¸Ì¡H |
|
|
|
|
|
|
- ©«¤l
- 93
- ¥DÃD
- 18
- ºëµØ
- 0
- ¿n¤À
- 111
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW¡E°ª¶¯
- µù¥U®É¶¡
- 2010-10-22
- ³Ì«áµn¿ý
- 2023-3-3
|
¦^´_ 21# c_c_lai
c_c_lai¤j ¦¦w¡F
z»¡¤£²M·¡¡A¹ï¤£°_..«·s»¡©ú¡F
[¼¯¥x][Áú°ê][¤é¥»]¦b¡iDDE³ø»ù¡jÄæ¡A¨C[1¤À]°O¿ý§Y¥i
(¸ê®Æ½d³òÄݩʬO1¤À§ó·s)¡C[¥x«ü´Á]´N¤£¥Î¤F..´î¤Ö®ö¶O¹q¸£¸ê·½¡A
Àµ½Ð¯àÀ°¦£..ÁÂÁÂ!!...§ÚEMail¡G[email protected] Åwªï¨Ó¨ç |
|
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|
- ©«¤l
- 93
- ¥DÃD
- 18
- ºëµØ
- 0
- ¿n¤À
- 111
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW¡E°ª¶¯
- µù¥U®É¶¡
- 2010-10-22
- ³Ì«áµn¿ý
- 2023-3-3
|
¦^´_ 21# c_c_lai
§Ñ¤F¸É¤W(ªþ¥ó)... |
|
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|
- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 23# cfuxiong
¸Õ¸Õ¬Ý- Option Explicit
- Private Sub Workbook_Open()
- With Sheets("µ¦²¤°O¿ý")
- .Cells(4, 2) = 9 ' ¬ö¿ý±q10¦C¶}©l
- .Range(.Cells(10, 1), .Cells(10, 1).End(xlDown).Offset(, 8)) = ""
- '²M°£ ¦³¸ê®Æ
- End With
- Timer_DEE
- End Sub
- Private Sub Workbook_BeforeClose(Cancel As Boolean)
- On Error Resume Next
- Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkbook.Timer_DEE", , False
- End Sub
- Public Sub Timer_DEE()
- 'Timer ¨ç¼Æ ¶Ç¦^¤@ Single¡A¨ä¤º®e¬°±q«e¤@Ӥȩ]ºâ°_¨ì²{¦b©Ò¸g¹Lªº¬í¼Æ¡C
- 'ÅܼÆ,µ{§Ç:¦WºÙnÁקK¨Ï¥ÎVBA ªº¤º©wÃöÁä¦r
- Dim Pos As Integer, i As Integer, RangeStr As String
- On Error Resume Next
- Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkbook.Timer_DEE" '¨C¬íÅã¥Ü
- Sheets("µ¦²¤°O¿ý").Cells(3, 2) = Time '±N®É¶¡show¦Üµ¦²¤ªºb3Äæ¦ì
- 'Dim HHMM As Integer
- 'HHMM = Hour(Time) * 100 + Minute(Time)
- 'If (HHMM < 845 Or HHMM > 1345) Then Exit Sub 'Àç·~®É¶¡¤~°õ¦æ
- If Time < #9:00:00 AM# Or Time > #1:30:00 PM# Then Exit Sub 'Àç·~®É¶¡¤~°õ¦æ
- If Second(Time) Mod 30 = 0 Then '¶¡¹j30¬í
- 'If Second(Time) Mod 5 = 0 Then '¶¡¹j5¬í 10¬í 15¬í ....
- With Sheets("µ¦²¤°O¿ý")
- .Cells(4, 2) = .Cells(4, 2) + 1 '±NÅܰʦ渹¥[¤@¦æ
- Pos = .Cells(4, 2)
- .Cells(Pos, 1) = Time
- .Cells(Pos, 2).Resize(, 8) = .[b2:i2].Value
- 'Sheets("µ¦²¤°O¿ý").[b2:i2] ¤À§O¬O¥H¤UªºDEE
- '[¦hªÅ¤O¹D][¤Ï¦V¶Õ¤O][¥D¤O±±½L][¥x«ü´Á ¦¨¥æ»ù][¥x«ü´Á ¦¨¥æ»ù][¼¯¥x«ü][Áú°êºî¦X][¤é¸g«ü¼Æ]
- End With
- End If
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤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
|
¦^´_ 23# cfuxiong
¤W¼h GBKEE ª©¤j´£¥Üªº©ú²Ó½d¨Ò¡A
¬O§_¤w¸Ñ¨M¤F§Aªº°ÝÃD¡H |
|
|
|
|
|
|
- ©«¤l
- 93
- ¥DÃD
- 18
- ºëµØ
- 0
- ¿n¤À
- 111
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW¡E°ª¶¯
- µù¥U®É¶¡
- 2010-10-22
- ³Ì«áµn¿ý
- 2023-3-3
|
¦^´_ 25# c_c_lai
c_c_lai¤j§A¦n¡F
§Ú·Ó[GBKEE¤j]ªº«ü¾É¡A½Æ»s¶K¤W¤£ª¾¬O§_¥i¦æ¡H´N«Ý©ú¤Ñ´ú¸Õ¤F!!
ªþ¥ó¬O¦³¥[[GBKEE¤j]ªº¥¨¶°¡A½Ð[c_c_lai¤j][GBKEE¤j]«ü¾É..ÁÂÁÂ!! |
|
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|
- ©«¤l
- 93
- ¥DÃD
- 18
- ºëµØ
- 0
- ¿n¤À
- 111
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW¡E°ª¶¯
- µù¥U®É¶¡
- 2010-10-22
- ³Ì«áµn¿ý
- 2023-3-3
|
¦^´_ 27# GBKEE
GBKEE¤j§A¦n¡F
¯àµ¹Ó¥¿½Tªº[ZipÀÉ]Åý§Ú¾Ç²ß¶Ü¡HÁÂÁÂ~~ |
|
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|
- ©«¤l
- 93
- ¥DÃD
- 18
- ºëµØ
- 0
- ¿n¤À
- 111
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW¡E°ª¶¯
- µù¥U®É¶¡
- 2010-10-22
- ³Ì«áµn¿ý
- 2023-3-3
|
¦^´_ 29# GBKEE §â
[¥x«ü´Á]§R°£...¦p¦¹§ï¹ï¶Ü¡H
'Sheets("µ¦²¤°O¿ý").[b10:i10] ¤À§O¬O¥H¤UªºDEE
'[¦hªÅ¤O¹D][¤Ï¦V¶Õ¤O][¥D¤O±±½L][¼¯¥x«ü][Áú°êºî¦X][¤é¸g«ü¼Æ]
End With
End If
End Sub |
|
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|