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刪除。