Question

我正在使用alertTime和RefreshAll来更新数据，而不是在“timevalue＆＃39;我想，它会随机刷新。

以下是代码：

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

alertTime和Timevalue刷新

1 个答案: