VBA - 尝试每秒刷新一次数据，并在每次刷新时将该值存储在一个新单元格中

Question

我正在尝试各种方法来刷新 B4:B419 中的随机整数，同时将 F1 的输出存储在 F 列末尾的新单元格中。运行 RunAll 只会刷新 B4:B419 中的数据并且不会连续粘贴 F1 的新值。

Sub Calculate_Range()

    Sheets("Shoe Simulation").Range("B4:B419").Calculate
    
    Dim last_row As Long
    
    last_row = Sheets("EV").Cells(Rows.Count, "F").End(xlUp).Row
    
    Sheets("EV").Range("F1").Copy
    
    Sheets("EV").Cells(last_row + 1, "F").PasteSpecial Paste:=xlPasteValues
    

End Sub



Sub Timeing()

    Application.OnTime DateAdd("s", 1, Now), "Calculate_Range"
    
End Sub

Sub RunAll()

    Call Calculate_Range
    
    Call Timeing
    
End Sub

Answer 1

我没有足够的代表发表评论，但您是否想让代码连续不间断地运行？

之所以不能连续运行，是因为 RunAll 子程序只调用每个函数一次。 它调用calculate_Range，它运行一次，然后调用Timeing()，它也让Calculate_Range 运行一次。 如果您将 Call Timeing() 添加到 Calculate_Range 子的末尾，那么它将在 2 之间连续循环。请注意，这实际上会造成无限循环。