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（）＆＃39; ＆＃39; Clear_All_Filters宏＆＃39;清除过滤器＆＃39; 工作表（＆＃34;每周评论会议＆＃34;）。激活

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

End Sub

当我尝试清除所有过滤器时，继续收到错误

1 个答案: