tScreenOn = (tEnd - tStart) * 24 * 60 *60

   End With

   

   MsgBox "

屏幕更新关闭时

,

共用时

: " & tScreenOff &"

秒

." & _

           vbCrLf & "

屏幕更新打开时

,

共用时

: " & tScreenOn &"

秒

."

End Sub

 

运行上述代码时的效果如图

4

所示。

• 中科院国家高端智库论坛举办 解读中国经济发展密码
• 美媒：大脑数据能解读情绪 或有助治疗抑郁症
• 专家解读中国对非“五不”“四不能”原则：体现中国责任担当
• 专家解读云南普洱地震：预计属一般破坏性地震
• 英国又“装精”了！曾经大英帝国，不嫌丢人吗？丨睿解读
• 2018半年度报告解读 | 银行业拐点初现
• 关于2018年度一般企业财务报表格式有关问题的解读
• 奇点学堂|陈宇律师：七维度解读顺风车事件背后存在的法律责任
• 为对付中国，美国研发了新武器！丨睿解读
• 汇总目录|别找了，你需要的excel教程全在这里！按时更新……