Kako počistiti filtre z vseh delovnih listov v aktivnem delovnem zvezku v Excelu?
Recimo, da ste ustvarili več filtrov na različnih delovnih listih v Excelovem delovnem zvezku, zdaj pa želite počistiti vse te filtre hkrati. Običajno se morate premakniti na delovni list, da preverite filter in ga nato ročno počistite. Ali obstaja kakšen priročen način za čiščenje filtrov z vseh delovnih listov v aktivnem delovnem zvezku? Preizkusite metodo v tem članku.
Počistite filtre z vseh delovnih listov v aktivnem delovnem zvezku s kodo VBA
Počistite filtre z vseh delovnih listov v aktivnem delovnem zvezku s kodo VBA
Zaženite spodnji skript VBA, da počistite filtre z vseh delovnih listov v aktivnem delovnem zvezku.
1. V delovnem zvezku, iz katerega morate počistiti filtre, pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli. Nato kopirajte in prilepite spodnji skript VBA v okno modula. Oglejte si spodnji posnetek zaslona:
Koda VBA: počistite filtre z vseh delovnih listov v aktivnem delovnem zvezku
Sub Clear_fiter()()
'Updated by Extendoffice 20210625
Dim xAF As AutoFilter
Dim xFs As Filters
Dim xLos As ListObjects
Dim xLo As ListObject
Dim xRg As Range
Dim xWs As Worksheet
Dim xIntC, xF1, xF2, xCount As Integer
Application.ScreenUpdating = False
On Error Resume Next
For Each xWs In Application.Worksheets
xWs.ShowAllData
Set xLos = xWs.ListObjects
xCount = xLos.Count
For xF1 = 1 To xCount
Set xLo = xLos.Item(xF1)
Set xRg = xLo.Range
xIntC = xRg.Columns.Count
For xF2 = 1 To xIntC
xLo.Range.AutoFilter Field:=xF2
Next
Next
Next
Application.ScreenUpdating = True
End Sub
3. Pritisnite F5 tipko za zagon kode. Nato se vsi filtri na vseh delovnih listih v trenutnem delovnem zvezku takoj izbrišejo.
Sorodni članki:
- Kako počistiti predpomnilnik filtrov (stare elemente) iz vrtilne tabele v Excelu?
- Kako počistiti filtre pri odpiranju, shranjevanju ali zapiranju delovnega zvezka v Excelu?
- Kako filtrirati podatke na podlagi potrditvenega polja v Excelu?
- Kako izpolniti vrste števil v stolpcu s filtriranim seznamom v Excelu?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
