­ã´£³¡ªL

¤@¯ë¼Ò²Õ°Ï:
Public xTime

Sub AA()
Range("C4").Calculate
xTime = Now + TimeValue("00:00:01")
Application.OnTime xTime, "AA"
End Sub

Sub STOP_AA()
On Error Resume Next
Application.OnTime xTime, "AA", Schedule:=False
On Error GoTo 0
End Sub
'================================
¬¡­¶Ã¯¨Æ¥ó°Ï:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call STOP_AA
End Sub

Private Sub Workbook_Open()
With Sheet1.Range("C4")
     .Formula = "=NOW()"
     .NumberFormatLocal = "hh:mm:ss"
End With
Call AA
End Sub

®É¶¡§ïÅÜ, ¦ý¤£¼vÅT¦b¨ä¥¦Àx¦s®æ¾Þ§@«á, ¦ÓµLªk¨Ï¥Î[´_­ì/½Æ»s/¶K¤W]ªº¥\¯à,
¤£¹L, ­Y¤½¦¡¤Ó¦h, ¥i¯à·|Åý¾ã­ÓÀÉ®×¥d¦º~~
===================

­ã´£³¡ªL

¦^´_ 8# cslu37

ThisWorkbook  ¬¡­¶Ã¯¨Æ¥ó°Ï
Module??? ¤@¯ë¼Ò²Õ°Ï
Sheet???  ¤u§@ªí¨Æ¥ó°Ï