对象“OnTime”的“_Application”方法失败

Question

我有一个随机的单词生成器，它每7秒从列表中随机抽取一个单词。

停止这个单词生成器的按钮返回1004错误，对象'OnTime‘的方法'_Application’失败。

下面是两个按钮的代码。停止宏来自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

Answer 1

如果要取消运行，则需要存储下一次运行的确切时间。

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