vba显示正在加载_VBA代码关闭刷屏，提高代码运行效率

题记：春节期间，情况特殊，希望大家尽可能待在家里，静下心，多学习有用的知识，多提高自己的水平和能力，这才是正道。适当节制自我的各种欲望,谁都逃不过时间的历练，谁都是命运的行者，谁都是在人生的道路上一步一趋，把生活与工作打理好，不负年华。

今日内容是和大家分享VBA编程中常用的 “积木”过程代码，这些内容大多是取至我编写的“VBA代码解决方案”教程中内容。今日分享的是NO.202-NO.202，内容是：

NO. 202：在VBA代码中关闭屏幕刷新与不关闭屏幕刷新的时间比较

VBA过程代码202：在VBA代码中关闭屏幕刷新与不关闭屏幕刷新的时间比较

Sub mynz ()

Dim i As Integer

Dim t As Date

Dim t1 As String

Dim t2 As String

Sheets("85").Cells(2, 1) = ""

Sheets("85").Cells(3, 1) = ""

Sheets("85").Cells(4, 1) = ""

Application.ScreenUpdating = False

t = Timer

For i = 1 To 30000

Sheets("85").Cells(2, 1) = i

Next

t1 = Timer - t

Application.ScreenUpdating = True

t = Timer

For i = 1 To 30000

Sheets("85").Cells(3, 1) = i

Next

t2 = Timer - t

Sheets("85").Cells(4, 1) = Format(t2, "0.00000") - Format(t1, "0.00000")

MsgBox "关闭屏幕刷新运行时间:" & Format(t1, "0.00000") & "秒" _

& Chr(13) & "开启屏幕刷新运行时间:" & Format(t2, "0.00000") & "秒" _

& Chr(13) & "节约时间:" & Sheets("85").Cells(4, 1) & "秒"

End Sub

代码解析：Mynz过程使用两次For...Next语句给A2和A3单元格填充数据，最后使用消息框显示两次运行的时间。在第一次循环时关闭屏幕刷新，第二次运行时将打开屏幕的更新。运行Mynz过程，消息框显示两次代码的运行时间，可以看出关闭屏幕刷新后运行时间远远小于开启屏幕刷新时运行的时间。

VBA是实现自己小型办公自动化的有效手段，我根据自己20多年的VBA实际利用经验，现推出了四部VBA学习教程，这些是我多年编程经验的记录，也是我“积木编程”思想的体现。每一讲都是一块“积木”，可以独立的完成某些或者某类的过程。利用这些可以大大提高自己的编程效率。

第一套：“VBA代码解决方案”是PDF教程，是VBA中各个知识点的讲解，覆盖了绝大多数的知识点，是初学及中级以下人员必备；

第二套：“VBA数据库解决方案”是PDF教程，数据库是数据处理的利器，对于中级人员应该掌握这个内容了。

第三套：“VBA数组与字典解决方案”是PDF教程，讲解VBA的精华----字典，是我们打开思路，提高代码水平的必备。

第四套：“VBA代码解决方案”视频教程。目前正在录制，“每天20分钟，精进VBA”，越早参与，回馈越多。现在录制到第三册的124讲,以上各教程的代码都是经过实测，可以拿来即用。

春节期间，情况特殊，大家尽可能待在家里，多学习有用的知识，多提高自己。