关注后回复“资料”，即可免费获取Excel相关学习和实战资料。如果你也对数据分析感兴趣，并且想在这方面有所发展，无论是方法还是技术，例如Excel、VBA、SQL、Python，特别是Excel相关，欢迎与我交流。如果有这方面的问题或者困惑，也欢迎与我探讨。
上文有提到Excel VBA 程序运行完成时给予使用者运行结果和运行时间的反馈等可以让使用者获得更好的使用体验。那么如何计算出编写的代码运行所需要的时间？
计算时间可以使用Timer函数，Timer函数会返回从0点，也就是晚上12点，截止到当前的秒数。
如下程序，自动生成20个新的sheet，并且重命名，然后显示程序运行使用的时间。用Start和Finish分别记录开始时间和结束时间，两者相减就是程序运行的时间，单位是秒。
Public Sub 计算运行时间()
Dim Start, Finish, TotalTime
'记录开始时间
Start = Timer
For i = 1 To 20
Sheets.Add After:=ActiveSheet
ActiveSheet.Name = "new" & i
Next
'记录结束时间
Finish = Timer
'计算使用时间
TotalTime = Finish - Start
'显示使用时间
MsgBox "新建sheet使用时间：" & TotalTime & " 秒"
End Sub
下面点击已经绑定这段代码的按钮进行测试。
推荐阅读：