excel - Excel VBA OnTime 宏运行多次

Question

我有一个简单的代码，它将复制我的股票投资组合的当前价值并将其粘贴到表格中。我最近尝试添加一个计时器，以便它每小时自动执行一次。但是，它可以将值粘贴到表中四到五次。我四处搜索，我认为这可能是因为运行宏只需要一瞬间，所以它会循环直到一整秒过去。

这是代码：

Sub AutoPL()
    Worksheets("Overview").Range("C15:D15").Copy
    Worksheets("Data").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).PasteSpecial                     xlPasteValues
    Application.CutCopyMode = False
    Call PLTimer
End Sub


Sub PLTimer()
    Application.OnTime Now + TimeValue("01:00:00"), "AutoPL"
End Sub

Answer 1

Application.Wait Now + TimeValue("00:00:01")@mclapham 我在再次调用之前通过使用解决了您在评论中描述的冻结Application.OnTime。