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

t8899

計時開始不要按結束直接關閉檔案,on time 方法失敗 ?? Book2.rar (15.08 KB)

下載次數: 4

2014-4-19 08:22

GBKEE

回復 1# t8899

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

複製代碼

t8899

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

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