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

我正在寻找一个内置的函数，或者可能是一个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 

未经testing并在手机上书写，抱歉格式不对。 返回date（持续时间），但可以格式化（CalculationTime，“mm：ss”）以stringforms返回，或者将函数更改为doubleforms，然后乘以24 * 60 * 60以获得秒数。 如果你想要更精确的话，你可以使用ticker / Timerfunction。