VBA编程练习08:删除工作表而不显示提示信息

2021-06-01 11:11:45 浏览数 (1)

本次的练习非常简单,但在许多场合都会用到。

本次练习题

当我们删除工作簿中的工作表时,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来实现。

0 人点赞