このVBA/Excelコードをデバッグする方法は？

Question

私はソースVBAを持っており、問題は他の場合にはどのようにOntimeを停止するかということです。

Sub ok2() 
    Application.OnTime Now + TimeValue("00:00:01"), "test", Schedule:=True 
End Sub 
Sub ok3() 
    Application.OnTime Now + TimeValue("00:00:01"), "test", Schedule:=False 
End Sub 

Sub test() 
    If i < 50 Then 
     UserForm2.Label1.Width = i * 2 
     i = i + 1 
     ok2 
    Else 
     ok3 
    End If 
End Sub 

Answer 1

OnTimeをキャンセルするには、スケジュールが設定されている正確な時刻も指定する必要があります。

あなたご参考のために、以下の

Option Explicit 

Private SetTimer As Date 

Sub ok2() 
    Application.OnTime SetTimer, "test", Schedule:=True 
End Sub 
Sub ok3() 
    Application.OnTime SetTimer, "test", Schedule:=False 
End Sub 

Sub testTimer() 
    If MsgBox("test", vbYesNo) = vbYes Then 
     SetTimer = Now + TimeValue("00:00:10") 
     ok2 
    Else 
     ok3 
    End If 
End Sub 


sub test 
    msgbox Now 
end sub 

---

を考えるあなたはそれがEarliestTimeのparamで実行するようにスケジュールされた正確な時間を提供する必要が

を使用してストップオン時間はできません。

など。 Nowは午前17時00分○○秒であり、あなたがok2を実行すると、

これはNow + TimeValue("00:00:01")は、その時点で17時00分01秒となりますので、testは17時00分01秒で実行することを意味します。

だから、それを停止するには、次のコード

Application.OnTime TimeValue("17:00:01"), "test", Schedule:=False 

を実行しなければならないというNowは、スケジュールのすなわち正確な時間が提供されなければならない、声明の中では存在しないことを確認します。