Board logo

標題: [發問] 計時器停止放在Auto_Close 失敗? [打印本頁]
作者: t8899    時間: 2014-4-19 08:22     標題: 計時器停止放在Auto_Close 失敗?

計時開始不要按結束直接關閉檔案,on time 方法失敗 ??[attach]18078[/attach]
作者: GBKEE    時間: 2014-4-19 09:13

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

回復 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    時間: 2014-4-19 09:34

本帖最後由 t8899 於 2014-4-19 09:36 編輯
回復  t8899 可修改如下
GBKEE 發表於 2014-4-19 09:13

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)