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.
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.