Excel 函数为工作簿的重新计算时间计时

我正在寻找一个内置的功能，或可能是一个VBA段，将给我重新计算的电子表格时间来完成计算

谢谢

Option explicit
Function CalculationTime() as date
Dim Start as date
Start = now
Application.calculate
Do until application.calculationstate = xldone
Doevents
Loop
CalculationTime = now - Start
End function

---

未经测试且在手机上编写，抱歉格式错误。返回日期-时间持续时间，但您可以将formatCalculationTime，mm:ss设置为以字符串形式返回，或将函数更改为以双精度返回，然后乘以24*60*60以获得秒数。如果您想获得更高的准确性，可以使用ticker/Timer功能。

欢迎使用堆栈溢出。这个网站不是很广泛，我怎么。。。问题；这是针对特定编程问题的。