用于计算工作簿重新计算时间的函数

Question

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

谢谢！

Answer 1

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

未经测试并写在手机上，抱歉格式不正确。返回日期（持续时间），但您可以格式化（CalculationTime，＆＃34; mm：ss＆＃34;）以字符串形式返回，或更改函数以返回为double，然后乘以24 * 60 * 60以获得秒数。如果您想要更高的准确度，可以使用自动收报机/定时器功能。