本次的练习非常简单,但在许多场合都会用到。
本次练习题
当我们删除工作簿中的工作表时,Excel会自动弹出“MicrosoftExcel将永久删除此工作表。是否继续?”的信息提示框,要求你选择“删除”还是“取消”,如下图1所示。
图1
在编写VBA程序代码时,如果代码要删除指定的工作表,那么也会弹出这样的消息,从而导致程序运行中断。
如何使用代码删除指定的工作表,但不显示提示信息?
有兴趣的朋友,不妨先想想,再看下面的答案。
答案
可以使用Application对象的DisplayAlerts属性,代码如下:
Application.DisplayAlerts= False
Worksheets("MySheet").Delete
Application.DisplayAlerts= True
首先将Application对象的DisplayAlerts属性设置为False,以屏蔽Excel可能会弹出的消息框。在完成相应的操作后,再将该属性的值恢复为True。
小结:在你需要避免Excel自动弹出消息时,可以像上述一样通过设置Application对象的DisplayAlerts属性为False来实现。