¦p¦ó±N¥x«ü´Áªº¨C¤@¤ÀÄÁ¸ê®Æ³£¬ö¿ý¦bsheet 1¸Ì..½Ð±Ðª©¤W°ª¤â«e½ú~~
- ©«¤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
|
¦^´_ 50# c_c_lai
c_c_lai§A¦n¡F¬Oªº...§Ú¬O³sµ²ºô¶ªº¡A²z½×¤W¬O¥i¥H¡A
¥un§ìºô¶»PDDE³sµ²®É¤£n¦P®É¶¡¡AÀ³¥i§ïµ½·mÀW¼eªº°ÝÃD¡C
©ú¤Ñ¹ê´ú¦A§i¶D§A..±ß¦w!! EMail¡G[email protected] |
|
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
|
¦^´_ 50# c_c_lai
c_c_lai¤j¡F±ß¦w§A¦n
¸g5¤Ñªº¹ê´ú[DDE+ºô¶]¬OOKªº¡C¦A¦¸ÁÂÁ±z³o»ò¼ö¤ßªºÀ°¦£¡C |
|
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|
- ©«¤l
- 2
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 7
- ÂI¦W
- 0
- §@·~¨t²Î
- windowxp
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-1-7
- ³Ì«áµn¿ý
- 2015-7-23
|
«Ü¹ê¥Î¡A·PÁ±z´£¨Ñ¸Ô²Óªº¤º®e |
|
|
|
|
|
|
- ©«¤l
- 58
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 66
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-5-21
- ³Ì«áµn¿ý
- 2019-2-26
|
¦^´_ 20# cfuxiong
½Ð°Ýc¤j¡AºA¶q.xlsÀɮפºªº ¹Ïªí°Ïµ{¦¡½Xn¦p¦ó¼g¥X¨Ó?ÁÂÁ¡C |
|
devidlin
|
|
|
|
|
- ©«¤l
- 58
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 66
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-5-21
- ³Ì«áµn¿ý
- 2019-2-26
|
¦^´_ 13# cfuxiong
½Ð°Ýc¤j¡AºA¶q.xlsÀɮפºªº ¹Ïªí°Ïµ{¦¡½Xn¦p¦ó¼g¥X¨Ó?ÁÂÁ¡C |
|
devidlin
|
|
|
|
|
- ©«¤l
- 58
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 66
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-5-21
- ³Ì«áµn¿ý
- 2019-2-26
|
¦^´_ 21# c_c_lai
½Ð°Ýc¤j¡AºA¶q.xlsÀɮפºªº ¹Ïªí°Ïµ{¦¡½Xn¦p¦ó¼g¥X¨Ó?ÁÂÁ¡C |
|
devidlin
|
|
|
|
|
- ©«¤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¤j¡AºA¶q.xlsÀɮפºªº ¹Ïªí°Ïµ{¦¡½Xn¦p¦ó¼g¥X¨Ó?ÁÂÁ¡C
devidlin µoªí©ó 2013-1-19 20:30
ºA¶q.xls ¦bþ¸Ì¡H½Ð¤W¶ÇÀɮ׬ݬݡI |
|
|
|
|
|
|
- ©«¤l
- 58
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 66
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-5-21
- ³Ì«áµn¿ý
- 2019-2-26
|
|
devidlin
|
|
|
|
|
- ©«¤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
|
|
|
|
|
|
|
- ©«¤l
- 58
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 66
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-5-21
- ³Ì«áµn¿ý
- 2019-2-26
|
¦^´_ 57# c_c_lai
¤p§Ì¤ñ¸û·M²Â¡Aµ{¦¡½X¦p¤U¡A¦pªG»¡¦b¹Ïªí°Ïn¼W¥[¥x«ü´Á¨C¤ÀÄÁ¤§»ù®æÁܦp¦óקï?ÁÂÁ¡C
Option Explicit
Dim LastMin As Integer
Private Sub Workbook_Open()
Sheets("µ¦²¤°O¿ý").Cells(4, 2) = 10
LastMin = Minute(Time)
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 As Integer, i As Integer, RangeStr As String
On Error Resume Next
Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkbook.Timer" '¨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 > 2045) Then Exit Sub 'Àç·~®É¶¡¤~°õ¦æ
If Minute(Time) <> LastMin Then '¶}©l«á°µ
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)
.Cells(Pos, 11) = .Cells(2, 11)
End With
LastMin = Minute(Time)
End If
End Sub |
|
devidlin
|
|
|
|
|