别让闪屏瞎了眼，一个语句搞定

Application后面可以有很多属性，方法。我只介绍最常用的几个

今天介绍Application.ScreenUpdating,比较常见的一个语句。

举例说明，假设你有三张表。

绘制一个按钮，编写如下代码，运行，查看一下效果。。

Private Sub CommandButton1_Click() Worksheets(1).Select MsgBox "目前屏幕中显示工作表Sheet1" Worksheets(2).Select MsgBox "目前屏幕中显示工作表Sheet2" Worksheets(3).Select MsgBox "目前屏幕中显示工作表Sheet3" Worksheets(1).SelectEnd Sub

用眼睛死盯着单元格A1,你会发现，屏幕会一闪一下，如果大量表格循环，这样来回切换，屏幕闪烁会浪费时间，也会眼花。

在代码前面后面各加一句，如下效果。

Private Sub CommandButton1_Click() Application.ScreenUpdating = False Worksheets(1).Select MsgBox "目前屏幕中显示工作表Sheet1" Worksheets(2).Select MsgBox "目前屏幕中显示工作表Sheet2" Worksheets(3).Select MsgBox "目前屏幕中显示工作表Sheet3" Worksheets(1).Select Application.ScreenUpdating = TrueEnd Sub

Application.ScreenUpdating = False 就是关闭屏幕刷新，以后操作就不会闪屏，事情全部做完了，再用Application.ScreenUpdating = True更改回来，因为application语句是更改程序局的，默认是刷新屏幕的，不要改变Excel原有的设置。

子曰：用之则行，不用则藏。

意思是说，如果你用我的这些建议，就马上行动，知行合一，如果你不用，就赶紧收藏，以绝后患。