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 '''''''''''''''''''''''''''''''''''输出程序运行所要花费的时间
用户登录
还没有账号?立即注册
用户注册
投稿取消
文章分类: |
|
还能输入300字
上传中....