[發問] 如何讓計時器馬上中斷跳出??

t8899

在執行馬上中斷跳出 (exit sub)
Application.OnTime Now + TimeValue("00:02:00"), "BBB"
Application.OnTime Time + #12:02:00 AM#, "bbb"

t8899

回復 2# wl02353427
ONTIME 方法失敗?? 6666.rar (14.19 KB)

下載次數: 8

2014-1-18 21:16

Application.OnTime Time + #12:00:10 AM#, "timestock", schedule:=False

t8899

回復  wl02353427
GBKEE 發表於 2014-1-18 20:35

Dim my As Date
    If Sheet6.Range("V14").Value = 1 Then my = #12:01:00 AM#
    If Sheet6.Range("V14").Value = 2 Then my = #12:02:00 AM#
   

Application.OnTime Time + my, "timestock"


終止為何錯誤??(型態不符合)
Application.OnTime EarliestTime:=TimeValue(my), _
Procedure:="timestock", Schedule:=False

t8899

回復  t8899
OnTime 方法 VBA的說明範例Module2Sheet2
GBKEE 發表於 2014-1-19 15:20

研究已超過2小時，還抓不出錯誤!
請指導，謝謝! 9999.rar (12.22 KB)

下載次數: 8

2014-1-19 15:36

t8899

回復  t8899
GBKEE 發表於 2014-1-19 16:07 [img]http://forum.twbts.com/images/common/back.gif
程式所有Dim的變數內容,在程式執行完畢後,會被釋放掉,其他程式引用不到的
[/img]

我懂了，程式執行完變數就被釋放掉，尤於要再等5秒才會再執行, 這中間 執行 Schedule:=False 找不到變數....
類似這種等待時間再重覆執行的程序，最好用 public 宣告讓變數不要被釋放