¦p¦ó±N¥x«ü´Áªº¨C¤@¤ÀÄÁ¸ê®Æ³£¬ö¿ý¦bsheet 1¸Ì..½Ð±Ðª©¤W°ª¤â«e½ú~~
- ©«¤l
- 17
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 19
- ÂI¦W
- 0
- §@·~¨t²Î
- VISTA
- ³nÅ骩¥»
- OFFICE2003
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2013-4-12
- ³Ì«áµn¿ý
- 2013-4-30
|
¦^´_ 4# c_c_lai
½Ð±Ð c_c_lai¤j¤j
Y§Ún¨C¤¤ÀÄÁ¬ö¿ý´Á³fªº©e¶R¤f¼Æ ©e½æ¤f¼Æ ©e¶Rµ§¼Æ ©e½æµ§¼Æ ©e¶R§¡¤f ©e½æ§¡¤fµ¥§Y®É¸ê®Æ¡A§Ún¦p¦óקï¸Ì±ªºÅܼÆ? |
|
|
|
|
|
|
- ©«¤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
|
¦^´_ 55# devidlin
To devidlin:¶qºAªºpºâ¤è¦¡¡A¦b[DDE³ø»ù]ªí®æ..´N¥i¬Ý¥X¡C
[¹Ïªí°Ï]¥i«ö[¥kÁä]±q[¨Ó·½¸ê®Æ]´N¥i¬Ý¥XºÝÙ¡C
§Ú¬O·s¤â..¬O±qª©¤W°ª¤â¤å³¹Àɮרִê¦Ó¦¨~~
³o¬O§Úª¾ªº½d³òµªÂЧA¡A¤]½Ðª©¤W°ª¤â¯àÀ°§A¸Ñµª...ÁÂÁÂ!! |
|
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥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
|
¦^´_ 60# devidlin
§A¥i¥H±N§A¥Ø«e¹B¥Îªº Excel ÀɮפW¶Ç¡A©â®É¶¡§ÚÀ°§A¬Ý¬Ý¸Ó¦p¦ó×¥¿¡A
¨CÓ¤H³£¦U¦Û¦³¥L̹B§@ªº¼Ò¦¡»P³ß¦n¡B¥H¤Î¿W¨ì¨£¸Ñ¡Bµ¦²¤À³¥Î¡A
¤Á¤£n§¹¥þ®M¥Î¥L¤Hªº¤º®e¥þ¼Æ§Ûŧ¡A¦p¦¹¨Ï¥Î°_¨Ó¤]§¹¥þ¨S¦³
Ó¤Hªº·®æ¤F¡B¥çµLÓ¤H¤§¦¨´N·P¡C |
|
|
|
|
|
|
- ©«¤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
|
|
|
|
|
- ©«¤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
|
|
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
|
¦^´_ 21# c_c_lai
½Ð°Ý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
|
¦^´_ 20# cfuxiong
½Ð°Ýc¤j¡AºA¶q.xlsÀɮפºªº ¹Ïªí°Ïµ{¦¡½Xn¦p¦ó¼g¥X¨Ó?ÁÂÁ¡C |
|
devidlin
|
|
|
|
|