阿Q吧 > 需求excel VBA代码：实现打开excel后能够每秒自动重新计算，哪位大神可以给代码？在线等，着急。

需求excel VBA代码：实现打开excel后能够每秒自动重新计算，哪位大神可以给代码？在线等，着急。

我用的excel是2013版的。

2024-12-04 20:36:45

推荐回答（1个）

回答1：

Dim NextTick As Date
Public Sub re_cal()
    Sheet1.Calculate
    NextTick = Now + TimeValue("00:00:03")
    Application.OnTime NextTick, "re_cal"
End Sub

模块里添加这一句

需求excel VBA代码：实现打开excel后能够每秒自动重新计算， 哪位大神可以给代码？在线等，着急。

需求excel VBA代码：实现打开excel后能够每秒自动重新计算，哪位大神可以给代码？在线等，着急。