alertTimeとTimevalue refresh

Question

私はalertTimeとRefreshAllを使ってデータを更新していますが、 `timevalue 'でリフレッシュするのではなく、無作為にリフレッシュします。ここで

は、コードは次のとおりです。

Sub Macro1() 
    'Macro1 Macro 

    alertTime = Now + TimeValue("00:01:00") 'hh:mm:ss 
    Application.OnTime alertTime, "Macro1" 

    Dim LTime1 As Date, LTime2 As Date 
    Dim i As Integer, j As Integer 
    Dim USDJPY As Worksheet, Allrates As Worksheet, EURGBP As Worksheet 
    Dim LastRow As Long 

    Set Allrates = Sheets("Allrates") 
    Set EURUSD = Sheets("EURUSD") 
    Set EURGBP = Sheets("EURGBP") 

    LTime1 = TimeValue("15:30:00") 
    LTime2 = TimeValue("15:32:00") 

    If Range("P20") = LTime1 Then 
     Allrates.Range("B18").Copy EURGBP.Cells(EURGBP.Range("B10000").End(xlUp).Row + 1, 2) 
    End If 

    If Range("P20") = LTime2 Then 
     Allrates.Range("B18").Copy EURGBP.Cells(EURGBP.Range("B10000").End(xlUp).Row + 1, 2) 
    End If 

    ActiveWorkbook.RefreshAll 
End Sub 

Answer 1

はalertTimeが適切な時間値に設定されてきていますか？私はそれがコメントアウトされて現れ、実際のコードにないかもしれないので尋ねます。

また、別の手順も実行する必要がありますか？また、カット、コピー、検索は、実行時に発生している可能性があります。いずれの場合でも、スレッドが空いているときに実行されるか、30秒を超えるとキャンセルされます。 check this out