【代码模板001】Excel系统设置

        前言

        写VBA代码的小伙伴们可能多数都不是职业码农，大家也没有那么多酷炫的编辑器。但是很多代码却是经常用到，也许一天用好几次，每次敲键盘到心烦。

        【代码模板】系列收录一下经常用到的代码块，希望能够对于VBA爱好者有帮助，COPY PASTE就可以了。

        开讲了... ... 

        VBA中经常需要修改一些Excel设置，程序结束时需要恢复系统缺省设置。

Sub AppSetting()
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        .DisplayAlerts = False
    End With
	' Your Code
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .DisplayAlerts = True
    End With
End Sub

        这是设置都有什么用呢？

属性	含义	应用场景（设置为False）
SceenUpdating	启用屏幕更新	可以加快代码执行速度，避免闪屏
EnableEvents	对指定对象启用事件	将禁用某些对象的事件**，如Worksheet_Change
DisplayAlerts	显示特定的警告和消息	不再显示提示和警告消息，Excel使用默认应答

        ** 设置EnableEvents为False，将禁用工作表、工作簿等对象的相关事件，但是控件的事件不受影响。这个设置经常用于工作表的Change事件代码中，事件代码需要修改工作表的单元格时，应先修改EnableEvents属性为False，否则代码修改单元将导致工作表的Change事件被再次触发，最终有可能会导致系统资源耗尽，而使得Excel停止响应。