如何包含一个从开始到结束的定时器？ 每个电话是一个单独的子

我需要包括计时器function来计算从WbtoWb2到WbtoWb10运行macros所需的总时间…需要包含哪些代码？

Sub ComparisonTemplate() Call WbtoWb2 Call WbtoWb3 Call WbtoWb4 Call WbtoWb5 Call WbtoWb6 Call WbtoWb7 Call WbtoWb8 Call WbtoWb9 Call WbtoWb10 End Sub 

Answer 1

logging开始时间，计算结束时间和logging开始时间之间的经过时间…

 Sub ComparisonTemplate() Dim startTime : startTime = Now() Call WbtoWb2 Call WbtoWb3 Call WbtoWb4 Call WbtoWb5 Call WbtoWb6 Call WbtoWb7 Call WbtoWb8 Call WbtoWb9 Call WbtoWb10 MsgBox "Finished in " & DateDiff("s", startTime, Now()) & " seconds." End Sub