EXCEL ©w®É¨Ì¤é´Á¦Û°Ê¥t¦s·sÀÉ
- ©«¤l
- 3
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 5
- ÂI¦W
- 0
- §@·~¨t²Î
- MS
- ³nÅ骩¥»
- Win 7
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2015-2-7
- ³Ì«áµn¿ý
- 2015-2-7
|
EXCEL ©w®É¨Ì¤é´Á¦Û°Ê¥t¦s·sÀÉ
½Ð±Ð¦U¦ì¡A
¦p¦óÅýEXCEL ©w®É¨Ì¤é´Á¦Û°Ê¥t¦s·sÀÉ
ÁÂÁÂ |
|
|
|
|
|
|
- ©«¤l
- 3
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 5
- ÂI¦W
- 0
- §@·~¨t²Î
- MS
- ³nÅ骩¥»
- Win 7
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2015-2-7
- ³Ì«áµn¿ý
- 2015-2-7
|
wl02353427¤j¤j´¿¸gµoªí¹L¥H¤Uµ{§Ç¡A¦ý¦p¦ó±N¸Óµ{§Ç¥t¦s·sÀɮɡA¥¨¶°¤]¤£·|¦P®ÉÀx¦s
¦b¤u§@ªí1 or ThisWorkbook¤U¡G
Private Sub CommandButton1_Click()
startTimer
End Sub
Private Sub CommandButton2_Click()
stopTimer
End Sub
¦b¼Ò²Õ·í¤¤¡G
Sub startTimer()
Application.OnTime Now + TimeValue("00:00:01"), "Increment_count"
End Sub
Sub Increment_count()
hiji = Now()
Range("A1") = hiji
WaitSec = 30 '©µ¿ð®É¶¡
NameOfThisProcedure = "Àx¦sµ{§Ç"
NextTime = hiji + TimeSerial(0, 0, WaitSec)
Application.OnTime EarliestTime:=NextTime, Procedure:=NameOfThisProcedure, LatestTime:=NextTime
startTimer
End Sub
Sub Àx¦sµ{§Ç()
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Format(Now, "yyyymmdd") & ".xls"
End Sub |
|
|
|
|
|
|
- ©«¤l
- 3
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 5
- ÂI¦W
- 0
- §@·~¨t²Î
- MS
- ³nÅ骩¥»
- Win 7
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2015-2-7
- ³Ì«áµn¿ý
- 2015-2-7
|
½Ð°Ý¦p¦ó³]©w¥t¦s·sÀɪº®É¶¡¡C
§Ú»Ýn¨C´X¤Ñ¥t¦s·sÀÉ
§Ú¸Õ¹L¦bWaitSec ½Õ¾ã¦ýÀx¦s®É¶¡¦n¹³³£¤£¬O©T©w
THX |
|
|
|
|
|
|