excelperfect

本次的練習(xí)非常簡單，但在許多場合都會用到。

本次練習(xí)題

當(dāng)我們刪除工作簿中的工作表時(shí)，Excel會自動(dòng)彈出“MicrosoftExcel將永久刪除此工作表。是否繼續(xù)？”的信息提示框，要求你選擇“刪除”還是“取消”，如下圖1所示。

圖1

在編寫VBA程序代碼時(shí)，如果代碼要?jiǎng)h除指定的工作表，那么也會彈出這樣的消息，從而導(dǎo)致程序運(yùn)行中斷。

如何使用代碼刪除指定的工作表，但不顯示提示信息？

有興趣的朋友，不妨先想想，再看下面的答案。

答案

可以使用Application對象的DisplayAlerts屬性，代碼如下：

Application.DisplayAlerts= False

Worksheets('MySheet').Delete

Application.DisplayAlerts= True

首先將Application對象的DisplayAlerts屬性設(shè)置為False，以屏蔽Excel可能會彈出的消息框。在完成相應(yīng)的操作后，再將該屬性的值恢復(fù)為True。

小結(jié)：在你需要避免Excel自動(dòng)彈出消息時(shí)，可以像上述一樣通過設(shè)置Application對象的DisplayAlerts屬性為False來實(shí)現(xiàn)。