MS Excel - 如何每 5 秒自动刷新一次单元格？

Question

我的 Excel 工作表中有一个单元格，我需要每 5 秒刷新一次该单元格。

MS Excel 本身可以设置刷新，但它只是每 1 分钟一次，而且时间不够长。

我需要 VBA 或宏集中的一些代码每 5 秒运行一次，如果我每 5 秒单击一次刷新，我会执行如下所示的操作：

不知何故，我没有找到任何例子，我完全不知道如何做到这一点，因为我不知道如何在 VBA 中工作。

Answer 1

您可以使用 Application.OnTime 来安排自动刷新。 请创建以下 VBA 子程序并执行。 它将每 5 秒自动计算一次单元格 A1。

Sub UpdateCell()
    ActiveWorkbook.RefreshAll
    Application.OnTime Now + TimeValue("00:00:5"), "UpdateCell"
End Sub

Answer 2

另一个答案描述了如何刷新整个页面，但提出问题的人说他只想更新一个特定的单元格。

这是每 5 秒更新（计算）单元格 A1 的方法。

 Sub Calculate_Range()    
   Range("A1").Calculate    
   Application.OnTime DateAdd("s", 5, Now), "Calculate_Range"    
 End Sub

Answer 3

明白了，现在可以了：

Sub UpdateCell()
    ActiveWorkbook.RefreshAll
    Application.OnTime Now + TimeValue("00:00:5"), "List1.UpdateCell"
End Sub