ExcelスケジュールVBAを特定の時刻に実行する

Question

には、一部のセルを5秒ごとに新しい行に保存したVBAコードがあります。毎日午前7時から午後8時までこの仕事をしたいと思います。その後、午後10時以降にセルを削除して、翌日に新しく始めることができます（範囲B2：C10000の削除）。あなたの助けに感謝。以下は私の現在のマクロです：

Option Explicit 
Public dTime As Date 

Sub ValueStore() 
    Dim RowNo As Long 
    RowNo = Sheets("Data").Cells(Rows.Count, 3).End(xlUp).Row + 1 

    Sheets("Data").Cells(RowNo, 2) = Sheets("GetData").Cells(2, 2).Value2 
    Sheets("Data").Cells(RowNo, 3) = Sheets("GetData").Cells(2, 5).Value2  
    Call StartTimer 
End Sub 
Sub StartTimer() 

    dTime = Now + TimeValue("00:00:05") 
    Application.OnTime dTime, "ValueStore", Schedule:=True 
End Sub 

Sub StopTimer() 
    On Error Resume Next 
    Application.OnTime dTime, "ValueStore", Schedule:=False 
End Sub 

Answer 1

は、さまざまなタスクを実行するために、ループのサブを追加しました：

If hasRun = False Then 
    Sheets("GetData").Range("H1").Value = "Running" 
    dTime = Now + TimeValue("00:00:10") 
    Application.OnTime dTime, "ValueStore", Schedule:=True 

    Application.OnTime TimeValue(Sheets("GetData").Range("O1").Text), "StartTimer" 
    Application.OnTime TimeValue(Sheets("GetData").Range("O2").Text), "StopTimer" 
    Application.OnTime TimeValue(Sheets("GetData").Range("O3").Text), "DeleteData" 
    hasRun = True 
End If 

End Subの