我有一個隨機單詞生成器，它會每 7 秒從串列中隨機抽取一個單詞。
我停止這個詞生成器的按鈕回傳 1004 錯誤并且物件“_Application”的方法“OnTime”失敗。
下面是兩個按鈕的代碼。停止宏來自Microsoft的OnTime頁面
Sub RandoWord()
Dim rw As Long
rw = [RandBetween(2,1526)]
Cells(3, 4) = Cells(rw, 1)
Application.OnTime Now TimeValue("00:00:07"), "RandoWord"
End Sub
Sub StopRandoWord()
Application.OnTime Now TimeValue("00:00:07"), _
Procedure:="RandoWord", Schedule:=False
End Sub
uj5u.com熱心網友回復：
如果您想取消它，您需要存盤下一次運行的確切時間。
Dim NextRun
Sub RandoWord()
Dim rw As Long
rw = [RandBetween(2,1526)]
Cells(3, 4) = Cells(rw, 1) 'really needs a specific worksheet...
NextRun = Now TimeValue("00:00:07")
Application.OnTime NextRun, "RandoWord"
End Sub
Sub StopRandoWord()
If NextRun>0 Then
Application.OnTime NextRun, Procedure:="RandoWord", Schedule:=False
NextRun = 0
End If
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/qianduan/382713.html