當我嘗試清除所有過濾器時不斷出現錯誤

Question

我的 Excel 工作表中有以下宏，有時它會起作用，有時它會拋出並出錯。

我無法解決，因為我認為我已經涵蓋了自動過濾器的所有可能選項，如果有人添加了手動過濾器（它是一個共享電子表格）

請幫忙。

Sub Clear_All_Filters()
'
' Clear_All_Filters Macro
' Clear Filters
'
    Worksheets("Weekly Review Meeting").Activate
    If (ActiveSheet.AutoFilterMode And ActiveSheet.FilterMode) Or ActiveSheet.FilterMode Or ActiveSheet.AutoFilterMode Then
        ActiveSheet.ShowAllData
    End If
    Range("A1").Select
End Sub

Answer 1

我使用以下方法使其工作：

Sub Clear_All_Filters() ' ' Clear_All_Filters 宏 ' 清除過濾器 ' 工作表（“每周回顧會議”）。激活

Range("B2").Select

    On Error Resume Next
If (ActiveSheet.AutoFilterMode And ActiveSheet.FilterMode) Then
    ActiveSheet.ShowAllData

End If

On Error Resume Next
If ActiveSheet.AutoFilterMode Then
    ActiveSheet.ShowAllData

End If

On Error Resume Next
If ActiveSheet.FilterMode Then
    ActiveSheet.ShowAllData

End If


Range("A1").Select

結束子