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 '''''''''''''''''''''''''''''''''''输出程序运行所要花费的时间 |
by: 发表于:2017-12-01 14:57:25 顶(0) | 踩(0) 回复
??
回复评论