Hoppa till huvudinnehåll

Hur rensar jag filter när man öppnar, sparar eller stänger arbetsbok i Excel?

Anta att du har flera kalkylblad som innehåller filtrerade data i din arbetsbok. För att rensa alla filter måste du kontrollera den filtrerade listan i olika kalkylblad och sedan rensa dem manuellt ett efter ett. Det är irriterande! I den här artikeln kommer vi att visa dig flera metoder för att rensa filter när du öppnar, sparar eller stänger en arbetsbok i Excel.

Rensa filter när du öppnar arbetsbok i Excel
Rensa filter när du sparar arbetsbok i Excel
Rensa filter när du stänger / avslutar arbetsboken i Excel


Rensa filter när du öppnar arbetsbok i Excel

Detta avsnitt talar om att rensa filter i alla kalkylblad när du öppnar en arbetsbok. Gör så här.

1. I en arbetsbok måste du automatiskt rensa alla filter när du öppnar, tryck på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer dubbelklicka Denna arbetsbok till vänster Projekt och sedan kopiera och klistra in nedanstående VBA-kod i Denna arbetsbok (kod) fönster. Se skärmdump:

VBA-kod: Rensa alla filter när arbetsboken öppnas

Private Sub Workbook_Open()
'Updated by Extendoffice 20221012
    Dim ws As Worksheet
    For Each ws In Worksheets
        If ws.AutoFilterMode Then
            ws.ShowAllData
        End If
    Next ws
End Sub

3. tryck på andra + Q för att avsluta Microsoft Visual Basic för applikationer fönster.

4. klick Fil > Spara som. I pop-up Spara som i dialogrutan, ange en mapp för att spara denna arbetsbok, namnge den som du behöver i Filnamn rutan, välj sedan Excel Macro-Enabled Workbook alternativ från Spara som rullgardinsmenyn och slutligen klicka på Save knapp.

Från och med nu, när du öppnar den här makroaktiverade arbetsboken, kommer alla filter i den här arbetsboken att rensas automatiskt.


Rensa filter när du sparar arbetsbok i Excel

Du kan rensa alla filter från aktuell arbetsbok varje gång du sparar den.

1. I arbetsboken måste du rensa alla filter automatiskt, tryck på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer dubbelklicka Denna arbetsbok till vänster Projekt och sedan kopiera och klistra in nedanstående VBA-kod i Denna arbetsbok (kod) fönster. Se skärmdump:

VBA-kod: Rensa filter när du sparar arbetsbok

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Updated by Extendoffice 20221012
    Dim ws As Worksheet
    For Each ws In Worksheets
        If ws.AutoFilterMode Then
            ws.ShowAllData
        End If
    Next ws
End Sub

3. Tryck andra + Q för att avsluta Microsoft Visual Basic för applikationer fönster.

Från och med nu rensas alla filter automatiskt när du sparar arbetsboken.


Rensa filter när du stänger / avslutar arbetsboken i Excel

Det sista avsnittet visar hur du rensar alla filter över kalkylblad när du stänger eller avslutar arbetsboken.

1. Öppna arbetsboken som du behöver för att automatiskt rensa alla filter från och tryck sedan på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer dubbelklicka Denna arbetsbok till vänster Projekt och sedan kopiera och klistra in nedanstående VBA-kod i Denna arbetsbok (kod) fönster. Se skärmdump:

VBA-kod: Rensa alla filter över kalkylblad när du stänger / avslutar arbetsboken

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim ws As Worksheet
    For Each ws In Worksheets
        If ws.AutoFilterMode Then
            ws.AutoFilterMode = False
        End If
    Next ws
End Sub

Anmärkningar: Om du bara vill rensa filter i det aktuella kalkylbladet, använd nedanstående VBA-kod.

VBA-kod: Rensa filtret i det aktiva arket när du stänger arbetsboken

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Updated by Extendoffice 20221012
    Dim ws As Worksheet
    Set ws = ActiveSheet
        If ws.AutoFilterMode Then
            ws.ShowAllData
        End If
End Sub

3. Tryck andra + Q för att avsluta Microsoft Visual Basic för applikationer fönster.

Från och med nu rensas alla filter automatiskt efter att du har klickat på knappen Stäng i arbetsboken.


Relaterade artiklar:

Bästa kontorsproduktivitetsverktyg

Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50 + Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

kte-flik 201905


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hoe kan ik wel de "filterknoppen" behouden?
This comment was minimized by the moderator on the site
Hi Tuur,
The VBA codes in the post have been updated. Sorry for the inconvenience.
This comment was minimized by the moderator on the site
I tried the Clear all filters across worksheets when closing/exiting workbook but it didn't work at all, is there anything we need to?
This comment was minimized by the moderator on the site
Hi,
No other operations are required except the steps we shown. Which Excel version are you using?
This comment was minimized by the moderator on the site
This solution doesn't "clear" the AutoFilters, it removes them completely.
To reset the filters and retain them for the next session, substitute ws.AutoFilter.ShowAllData for ws.AutoFilterMode = False
This comment was minimized by the moderator on the site
Thank you for this comment! This is exactly what I needed for my spreadsheet. Much appreciated!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations