[發問] 計時器停止放在Auto_Close 失敗?

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2014-4-19 08:22 | 只看該作者

計時開始不要按結束直接關閉檔案,on time 方法失敗 ??

Book2.rar (15.08 KB)

3^#

發表於 2014-4-19 09:34 | 只看該作者

本帖最後由 t8899 於 2014-4-19 09:36 編輯

回復 t8899 可修改如下
GBKEE 發表於 2014-4-19 09:13

測試結果，auto_close 並沒關閉Application.OnTime
關閉後，檔案又會自動開啟???

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2014-4-19 09:13 | 只看該作者

本帖最後由 GBKEE 於 2014-4-19 10:39 編輯

回復 1# t8899

Sub showtime()
abf = TimeValue("00:00:01")
tbme = Time + abf
Application.OnTime tbme, "showtime", LatestTime:=tbme + #12:00:01 AM#
'LatestTime 選擇性的 Variant。程序開始執行的最晚時間。例如，LatestTime 參數設為 EarliestTime + 30，當時間到了 EarliestTime 時，如果由於其他程式處於執行狀態而使 Microsoft Excel 不處於 [就緒]、[複製]、[剪下] 或 [尋找] 模式，則 Microsoft Excel 將等待 30 秒讓第一個程序先結束執行。如果 30 秒內 Microsoft Excel 無法回到 [就緒] 模式，則不執行此程序。如果省略該引數，Microsoft Excel 將一直等待到可以執行該程序為止。
Sheets("Sheet3").Range("a1").Value = Hour(Now) & ":" & Minute(Now) & ":" & Second(Now)
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 願要大、志要堅、氣要柔、心要細。