- 帖子
- 181
- 主題
- 5
- 精華
- 0
- 積分
- 197
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- 2000
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2014-3-9
- 最後登錄
- 2024-4-29
|
2#
發表於 2015-4-4 21:21
| 只看該作者
Sub timestock()
' Application.EnableEvents = False
Application.ScreenUpdating = False
If TimeValue(The_Time) > TimeValue(Time) Then '預防 上一次 OnTime尚未執行,再度執行一次OnTime
Exit Sub
End If
' Time '**** 執行的OnTime
' The_Time '**** 執行下一次OnTime
'------------------------------------------------------------------------------------------
Dim TIMEB, AG
TIMEB = 10
AG = (TimeValue(Now) * 60 * 60 * 24) - (Range("B2") * 60 * 60 * 24) '換為秒
If AG > TIMEB Then
On Error Resume Next
Application.OnTime The_Time, "timestock", Schedule:=False
If Err Then
Application.OnTime The_Time, "timestock", Schedule:=True
End If
The_Time = 0
Range("B2") = TimeValue(Now)
MsgBox "重跑"
timestock
Exit Sub
End If ' 333333
'--------------------------------------------------------------------------------
my = #12:00:01 AM#
The_Time = Time + my
Application.OnTime The_Time, "timestock"
[a2] = [a2] + 1
Range("a1").Value = Format(The_Time, "hh:mm:ss")
End Sub |
|