excel计算(含重新计算)完成後，以音响通知的VBA?因无excel及vba基础知识，请代写需求之VBA全文，谢谢

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

Dim NextTick As Date

Public Sub re_cal()

Sheet1.Calculate

NextTick = Now + TimeValue("00:00:03")

Application.OnTime NextTick, "re_cal"

End Sub模块里添加这一句

所有打开的工作簿 Application.Calculate （或只是 Calculate）

指定工作表指定工作表

指定区域 Worksheets(1).Rows(2).Calculate

试试如下方法：

插入一宏

Sub Macro1()

MsgBox "I love this game!" & Chr(10) & "Just do it" & Chr(10) & "See bottom-left corner please"

Application.StatusBar = "Just a test! Blablablabla! To be or not to be, this is a question"

Application.Wait Now + TimeValue("00:00:02")

Application.StatusBar = False

End Sub

回到Excel，点菜单的工具，宏，运行Macro1，出现消息框，确认后看左下角

FormulaR1C1是采用RC格式的引用，这里使用这种模式的好处是可以直接一次写入Range中所有单元格的公式。

如果换为A1这种模式，写起来就麻烦一点

Sub CalculateExtra()

For I = 3 to lLastRow

Range("E" & I).Formula = "=G" & I & "*H" & I & "*I" & I

Next I

End Sub