Dim a As Date
Dim b As Date
a = Time
Application.ScreenUpdating = False '''''''''''''''''''''''锁屏
Call data.dataCheck
Call data.storeFormation
Call data.datas
Call data.states
Application.ScreenUpdating = True
b = Time - a
MsgBox b '''''''''''''''''''''''''''''''''''输出程序运行所要花费的时间
vba中计算程序运行时间
免责声明！
本站转载的文章为个人学习借鉴使用，本站对版权不负任何法律责任。如果侵犯了您的隐私权益，请联系本站邮箱yoyou2525@163.com删除。