上一章我們介紹了VBA中常見的頂層物件Application的屬性ScreenUpdating的含義，以及使用方法的舉例。今天繼續給大家分享VBA中常見的頂層物件Application的屬性DisplayAlerts的含義以及怎麼使用並且舉例說明。

介紹DisplayAlerts屬性之前我們先簡單地舉個例子一起看看。

執行以後的結果就是：

程式碼1：

Sub test()

Dim g As Range

For Each g In Range("A1:A20")

If g.Value <> ActiveCell.Value Then

g.Delete

End If

Next

End Sub

注意：這裡提到的始終選中綠色的單元格，為什麼呢？那就是活動單元格，何為活動單元格，就是你正在選中的單元格。

好的整體開始剛才主要是解釋一下什麼活動單元格，現在一起看看活動的工作表，配合屬性使用。

注意：這時候要刪除掉活動工作表以外的工作表會提示上面的彈框。

程式碼2

Sub test()

Dim g As Worksheet

For Each g In Worksheets

If g.Name <> ActiveSheet.Name Then

g.Delete

End If

Next

End Sub

下面簡單解釋以下程式碼：

如果不需要彈框就需要使用DisplayAlerts屬性。

程式碼3:

Sub test()

Dim g As Worksheet

Application.DisplayAlerts = False

For Each g In Worksheets

If g.Name <> ActiveSheet.Name Then

g.Delete

End If

Next

Application.DisplayAlerts = True

End Sub

下面簡單解釋一下程式碼：

明天繼續分享，喜歡請關注，謝謝！