GBKEE

回復 1# t8899
試試看

1. Option Explicit
   
2. Dim The_Time As Date, Msg As Boolean
   
3. Sub EX()
   
4.     MsgBox "timestock  " & IIf(Msg, "執行中", "已停止")
   
5. End Sub
   
6. Sub Ex_開始()
   
7.     Msg = True
   
8.     The_Time = Time + #12:01:00 AM#
   
9.     Application.OnTime The_Time, "timestock"
   
10. End Sub
    
11. Sub Ex_停止()
    
12.     Msg = False
    
13.     Application.OnTime The_Time, "timestock", False
    
14. End Sub

複製代碼

GBKEE

回復 3# t8899
VBA沒有函數可傳回程式中有幾個Application.OnTime在執行中.
   

我的問題是
  Application.OnTime The_Time, "timestock", Schedule:=False
有時這行停止無效,也沒有出現訊息,....然後再重跑，變成兩個timestock同時在跑

Application.OnTime The_Time, "timestock"
有時這行停止無效 Application.OnTime The_Time, "timestock", Schedule:=False
會是因為你The_Time變數給的時間不一樣所致.
請試將 timestock變數在一般模組頂端,設為公用的變數,