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

[µo°Ý] Excel 2007 ¦Û°Ê¥t¦s·sÀÉ

[µo°Ý] Excel 2007 ¦Û°Ê¥t¦s·sÀÉ

¦U¦ì¥ý¶i¦n

½Ð°Ý¦p¦ó¥ÎExcel 2007 ®Ú¾Ú®É¶¡¨Ó¦Û°Ê¥t¦s·sÀÉ

¤p§Ì·Q¥Î¦b³øªí¤W­±

¤ñ¦p»¡¨ì¤U¤È¤­ÂI´N¦Û°Ê¥t¦s¤@­Ó·sªºÀÉ®×

½Ð°Ý¼¶¼g¡AÁÂÁ¡C

¥»©«³Ì«á¥Ñ luhpro ©ó 2013-12-5 23:55 ½s¿è

¦^´_ 1# macacajau
Á|¤@­Ó³Ì¶§¬Kªº¨Ò¤l:
¥H¤Uµ{¦¡©ñ¦b Module1 ¤º
  1. Sub AutoSave()
  2.   ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Format(Now, "yyyymmdd") & ".xls"
  3. End Sub
½Æ»s¥N½X
¥H¤Uµ{¦¡©ñ¦b ThisWorkbook ªº Open ¤º
  1. Private Sub Workbook_Open()
  2.   Application.OnTime TimeValue("17:00:00"), "Module1.AutoSave"
  3. End Sub
½Æ»s¥N½X
AutoSave.zip (6.15 KB)

¦³­ÓÃöÁä¬O§A³o­Ó Excel ÀÉ®×¥²¶·¤@ª½«O«ù¶}±ÒµÛ,
¸U¤@¨S¯d·N¤£¤p¤ßÃö±¼¤F³o­ÓÀÉ®×´N¤£·|¦sÀɤF.

TOP

¦^´_ 2# luhpro

·PÁ¤j­ôªº¦^ÂСA§Ú¦b¹Á¸Õ¬Ý¬Ý~
¦ý¬O¤p§Ì¤£¯à¤U¸üªþ¥ó~
¥i¥H±H¨ì§Ú«H½cµ¹§Ú¶Ü?
[email protected]

ÁÂÁ§A~
§A¦n

TOP

¥H¤U¬O´ú¸Õ¥X¨Óªº¤è¦¡¡A³o¤èªk¤£ª¾¹Dí¤£Ã­©w¡A¤]§Æ±æ¦³«e½ú¥i¥H«ü¾É¡A·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
¦Û°ÊÀx¦s¸Ë¸m.rar (21.8 KB)
ªì·sªÌ~«ü±ÐÅo~

TOP

¦^´_ 3# macacajau

±z¦n¡A2F«e½úªºµ{¦¡½X¶È½Æ»s¤W¥h°õ¦æ´N¦³®ÄªG¡C
ªì·sªÌ~«ü±ÐÅo~

TOP

¦^´_ 5# wl02353427


  ¤j¤j§A¦n~

½Ð°Ýµ{¦¡©ñ¦b ThisWorkbook ªº Open ¤º

³o¬O¬Æ»ò·N«ä©O?

§Ú´ú¸Õ¤§«á¤£·|¦Û°Ê¦sÀÉ~

ÁÂÁÂ~
§A¦n

TOP

¥»©«³Ì«á¥Ñ wl02353427 ©ó 2013-12-6 11:53 ½s¿è

¦^´_ 6# macacajau
À³¸Ó¥i¥Hª½±µ½Æ»s¥H¤U¨Ï¥Î¡A¨º­Ó®É¶¡¥u¬O½T»{¥L¦³¨S¦³¦b°Ê¦Ó¤w...
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

   
ªì·sªÌ~«ü±ÐÅo~

TOP

¦^´_ 7# wl02353427


¤j¤j§A¦n~

½Ð°Ý¨º¨â­Ó³£¬O­n¼gµ{¦¡¶Ü?

³o¼Ë´N·|¦Û°Ê¥t¦s¤@­Ó·sÀɶÜ?

¥H¤Uµ{¦¡©ñ¦b ThisWorkbook ªº Open ¤º
Private Sub Workbook_Open()
  Application.OnTime TimeValue("17:00:00"), "Module1.AutoSave"
End Sub

·PÁ¤j¤jªº¦^ÂÐ~ ÁÂÁÂ!
§A¦n

TOP

        ÀR«ä¦Û¦b : ¤Ñ¤W³Ì¬ü¬O¬P¬P¡A¤H¥Í³Ì¬ü¬O·Å±¡¡C
ªð¦^¦Cªí ¤W¤@¥DÃD