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