- ©«¤l
- 30
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 34
- ÂI¦W
- 0
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ·s¥_¥«
- µù¥U®É¶¡
- 2013-11-30
- ³Ì«áµn¿ý
- 2023-1-12
|
¥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)
|
|