如何使用VBA處理自動篩選

Question

在此處輸入圖片說明

我在ActiveSheet.ShowAllData行的以下行代碼遇到了麻煩，因為有時我的工作表會啟用自動篩選器，有時會關閉自動篩選器。 有沒有辦法解決這個問題？

Answer 1

考慮：

Sub Framm()
    With ActiveSheet
        If (.AutoFilterMode And .FilterMode) Or .FilterMode Then
            .ShowAllData
        End If
    End With
End Sub

請注意，這實際上不會刪除自動過濾器，只會刪除所有取消選擇。 它還將：

• 如果所有數據都已顯示，則不否
• 如果不存在過濾，則為barf。

Answer 2

如果直接將代碼粘貼到問題中而不是顯示圖片，則容易得多-無法將圖片復制並粘貼到VBE中。

您需要在清除過濾器之前檢查是否已過濾任何內容：

If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData