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

Question

我用的excel是2013版的。

Answer 1

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

模块里添加这一句

追问

我现在没有VBA代码，这个代码我用到代码框里面不能执行啊。是不是可以私信？

追答

打开vba编辑器，插入模块，输入上面代码就行了