图

3

 

这将有

616

个单元格要在每次计算时都会发生变化。下面的代码将测试屏幕更新开或关时执行

10000

次

616

个单元格的计算所花的时间。

Sub testScreenUpdating2()

   Dim i As Long

   Dim tStart, tEnd, tScreenOn, tScreenOff

   

   With Application

        .Calculation = xlCalculationManual

        .ScreenUpdating = False

        tStart = Time

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