使用 MsgBox 时的运行时错误“1004”方法“OnTime”

我我

如果用户想要结束计时器，我有一个代码可以正常工作，直到我添加了 MsgBox 确认。每次用户启动任务时，用户窗体只显示一个从零开始的计时器。

我尝试替换"myTimer", , , False -> "myTimer", , True但计时器只是在后台继续增加。

-----用户表单-----

Private Sub UserForm_Initialize()
    Call myTimer
    StartTime = Timer
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, _CloseMode As Integer)
    If MsgBox("Are you sure to End Time?", vbYesNo) = vbYes Then
        myTimer_Cancel
    Else
        Cancel = True
    End If
End Sub

- - -模块 - - -

Option Explicit
Public StartTime As Single
Public Sub myTimer()
    Dim elapsedtime As Single
    elapsedtime = Timer - StartTime
    UserForm2.Label2.caption = Format(CDate(elapsedtime / 86400), "hh:nn:ss")
    Application.OnTime Now + timeValue("00:00:01"), "myTimer"
End Sub

Public Sub myTimer_Cancel()
    Application.OnTime Now + timeValue("00:00:01"), "myTimer", , False
End Sub

蒂姆·威廉姆斯

当您取消计时器时，您必须使用与设置时相同的时间，因此：

-----用户表单-----

Private Sub UserForm_Initialize()
    Call myTimer
    StartTime = Timer 
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, _CloseMode As Integer)
    If MsgBox("Are you sure to End Time?", vbYesNo) = vbYes Then
        myTimer_Cancel
    Else
        Cancel = True
    End If
End Sub

- - -模块 - - -

Option Explicit

Public StartTime As Single
Public NextRun ' << store next run time

Public Sub myTimer()
    Dim elapsedtime As Single
    elapsedtime = Timer - StartTime
    UserForm2.Label2.caption = Format(CDate(elapsedtime / 86400), "hh:nn:ss")
    NextRun = Now + timeValue("00:00:01")
    Application.OnTime NextRun, "myTimer"
End Sub

Public Sub myTimer_Cancel()
    Application.OnTime NextRun, "myTimer", , False
End Sub

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。