MS Excel - 如何每 5 秒自动刷新一个单元格?
MS Excel - How to refresh a cell automatically every 5 seconds?
我的 Excel sheet 中有一个单元格,我需要这个单元格每 5 秒刷新一次。
MS Excel 本身可以设置刷新,但每 1 分钟刷新一次,时间不够长..
我需要 VBA 中的一些代码或将宏设置为每 5 秒 运行 并且执行如果我每 5 秒单击一次刷新会执行的操作,如下所示:
不知怎么的,我没有找到任何例子,我完全不知道该怎么做,因为我不知道如何在 VBA..
中工作
您可以使用Application.OnTime来安排自动刷新。请创建以下 VBA 子例程并执行。它会每 5 秒自动计算单元格 A1。
Sub UpdateCell()
ActiveWorkbook.RefreshAll
Application.OnTime Now + TimeValue("00:00:5"), "UpdateCell"
End Sub
明白了,现在可以了:
Sub UpdateCell()
ActiveWorkbook.RefreshAll
Application.OnTime Now + TimeValue("00:00:5"), "List1.UpdateCell"
End Sub
另一个答案描述了如何刷新整个页面,但提出问题的人说他只想更新一个特定的单元格。
这是每 5 秒更新(计算)单元格 A1 的方法。
Sub Calculate_Range()
Range("G3").Calculate
Application.OnTime DateAdd("s", 5, Now), "Calculate_Range"
End Sub
我的 Excel sheet 中有一个单元格,我需要这个单元格每 5 秒刷新一次。
MS Excel 本身可以设置刷新,但每 1 分钟刷新一次,时间不够长..
我需要 VBA 中的一些代码或将宏设置为每 5 秒 运行 并且执行如果我每 5 秒单击一次刷新会执行的操作,如下所示:
不知怎么的,我没有找到任何例子,我完全不知道该怎么做,因为我不知道如何在 VBA..
中工作您可以使用Application.OnTime来安排自动刷新。请创建以下 VBA 子例程并执行。它会每 5 秒自动计算单元格 A1。
Sub UpdateCell()
ActiveWorkbook.RefreshAll
Application.OnTime Now + TimeValue("00:00:5"), "UpdateCell"
End Sub
明白了,现在可以了:
Sub UpdateCell()
ActiveWorkbook.RefreshAll
Application.OnTime Now + TimeValue("00:00:5"), "List1.UpdateCell"
End Sub
另一个答案描述了如何刷新整个页面,但提出问题的人说他只想更新一个特定的单元格。
这是每 5 秒更新(计算)单元格 A1 的方法。
Sub Calculate_Range()
Range("G3").Calculate
Application.OnTime DateAdd("s", 5, Now), "Calculate_Range"
End Sub