Excel 2013 VBA Clear All Filters-makro

Det ser ut til at eldre makroer ikke fungerer. Jeg har riktig sikkerhetsinnstilling for å kjøre VBA-makroer, men når jeg har prøvd noen få metoder for å fjerne ALLE filtre på et regneark, får jeg en kompileringsfeil.

Her er hva jeg har prøvd:


Sub AutoFilter_Remove()
Denne makroen fjerner all filtrering for å vise alle dataene, men fjerner ikke filterpilene.
ActiveSheet.ShowAllData
End Sub

Jeg har knapper på arkene for å fjerne alle filtre for brukervennlighet for brukerne siden arkene har mange kolonner som har filtre på dem.

Mistalis
Redigerte spørsmål 12. juli 2017 в 3:40
Programmering
vba excel excel-vba excel-vba-mac
13. februar 2014 в 5:17
2 visninger

Prøv dette:

If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData
Kommentarer (3)
Løsning

Hvis arket allerede har et filter på det da:

Sub Macro1()
    Cells.AutoFilter
End Sub

vil fjerne det.

Kommentarer (1)

Prøv noe sånt som dette:

Sub ClearDataFilters()
'Clears filters on the activesheet. Will not clear filters if the sheet is protected.
On Error GoTo Protection
If ActiveWorkbook.ActiveSheet.FilterMode Or _
   ActiveWorkbook.ActiveSheet.AutoFilterMode Then _
   ActiveWorkbook.ActiveSheet.ShowAllData

Exit Sub
Protection:
If Err.Number = 1004 And Err.Description = _ 
    "ShowAllData method of Worksheet class failed" Then
    MsgBox "Unable to Clear Filters. This could be due to protection on the sheet.", _
    vbInformation
End If

End Sub

.FilterModereturnerer true hvis regnearket er i filtermodus. ([Se dette][1] for mer informasjon). [Se dette][2] for mer informasjon om.AutoFilter. Og til slutt vil [this][3] gi mer informasjon om.ShowAllData`-metoden.

ARich
Redigert svar 13. februar 2014 в 5:39
Kommentarer (0)