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?