代码讲解:以上代码将工作表的双数列隐藏。第一次运行是没有关闭屏幕刷新,第二次运行是关闭屏幕刷新,最后提示给用户两次运行的时间比较。
我们看最后弹出的结果:
我们看到两者的运行时间相差了11秒之多,可见打开和关闭屏幕刷新对于代码运行时间影响还是明显的。
3 打开屏幕刷新的视觉效果
在上面的讲解中,我们了解到,屏幕刷新的打开和关闭对代码的运行速度有一定的影响,我们再来比较一下两者在运行过程中的不同,我们看下面的代码:
Sub mynzC() '打开屏幕刷新的视觉效果
Dim i As Integer
For i = 1 To 10000
Range("A1").Value = i
Next
End Sub
代码截图:
代码讲解:这段代码就是将1到10000的值填充到单元格A1中,代码在运行时我们会看到实时的刷新过程。在A1单元格中数字是不断变化的。
代码的运行效果:
4 关闭屏幕的刷新的视觉效果
下面我们关闭屏幕的刷新,代码:
Sub mynzD() '关闭屏幕刷新的视觉效果
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 10000
Range("A1").Value = i
Next
Application.ScreenUpdating = True
End Sub
代码截图:
代码讲解:(略)
代码的运行效果:
此时我们只能看到代码的最后运行结果。
5 关闭和打开屏幕刷新的应用建议
从以上讲解中,我们可以看到,关闭屏幕刷新可以提高程序的运行时间,但降低视觉效果;如果打开屏幕刷新可以提高程序的视觉效果,提高用户的心理预期,但程序的运行时间会有一定的影响。VBA是利用Office实现个人小型办公自动化的有效手段(工具),我们要兼顾两者。
在实际写代码的时候,我往往是侧重于视觉效果的,这样可以:
1) 让程序的运行可视,操作者可以随时知道程序运行到了哪里。
2) 让应用这个程序的人有个主动的感觉,好像是自己在操控着程序的运行。这也是从心理上来取悦程序的使用者。
大家可以在实际的应用中逐渐体会。
今日内容回向:
1) 打开和关闭屏幕刷新的语句是什么?
2) 打开和关闭屏幕刷新的作用是什么?
3) 打开和关闭屏幕刷新如何利用?
本讲内容参考程序文件:工作簿14.xlsm
分享成果,随喜正能量
VBA的学习教程(初级、中级、高级):
VBA是利用Office实现个人小型办公自动化的有效手段(工具)。这是我对VBA的应用界定。在取代OFFICE新的办公软件没有到来之前,谁能在数据处理方面做到极致,谁就是王者。其中登峰至极的技能非VBA莫属!我记得20年前自己初学VBA时,那时的资料甚少,只能看源码自己琢磨,真的很难。20年过去了,为了不让学习VBA的朋友重复我之前的经历,我根据自己多年VBA实际利用经验,推出了八部VBA专门教程,学习顺序七、一(或者四)、三、二、六、五;或者七、八。其中七,一(或者四)是初级;三,二,八是中级;六,五是高级.