VBA执行过程中避免屏幕闪烁的设置方法

本文为《别怕，Excel VBA其实很简单（第3版）》随书问题参考答案

要解决本列的问题，可以在过程中设置Application对象的ScreenUpdating 属性为alse，将过程改写为：

Sub 将工作表另存为工作簿() Application.ScreenUpdating = False Dim Sht As Worksheet For Each Sht In Worksheets Sht.Copy ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Sht.Name & ".xlsx" ActiveWorkbook.Close Next Sht Application.ScreenUpdating = TrueEnd Sub