ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

EXCEL ©w®É¨Ì¤é´Á¦Û°Ê¥t¦s·sÀÉ

EXCEL ©w®É¨Ì¤é´Á¦Û°Ê¥t¦s·sÀÉ

½Ð±Ð¦U¦ì¡A

¦p¦óÅýEXCEL ©w®É¨Ì¤é´Á¦Û°Ê¥t¦s·sÀÉ

ÁÂÁÂ

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

TOP

½Ð°Ý¦p¦ó³]©w¥t¦s·sÀɪº®É¶¡¡C
§Ú»Ý­n¨C´X¤Ñ¥t¦s·sÀÉ
§Ú¸Õ¹L¦bWaitSec ½Õ¾ã¦ýÀx¦s®É¶¡¦n¹³³£¤£¬O©T©w
THX

TOP

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD