alertTime和Timevalue刷新

我正在使用alertTime和RefreshAll來更新數據，但不是在我希望刷新的`timevalue'處刷新，而是隨機刷新。alertTime和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

來源

2016-10-14 MGs

是alertTime越來越設置爲一個適當的時間價值？我問，因爲它出現了註釋，可能不在實際的代碼。

另外，是另一個程序也運行時，它應該？同時剪切，複製和查找可能在運行時發生。無論如何，它將在線程空閒時運行，或者如果超過30秒，它將取消。 check this out

來源

2016-10-14 13:12:41

那就是代碼。當它符合時間條件LTime1和LTime2我想複製粘貼一些值。但我希望每1分鐘進行一次時間步，否則它會一直粘貼。感謝vm Jimmy的幫助 – MGs

alertTime和Timevalue刷新

回答

相關問題