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:
- Hur rensar jag filtercache (gamla objekt) från pivottabellen i Excel?
- Hur rensar jag filter från alla kalkylblad i aktiv arbetsbok i Excel?
- Hur filtrerar jag data baserat på kryssrutan i Excel?
- Hur fyller jag siffror i en filtrerad listkolumn i Excel?
Bästa kontorsproduktivitetsverktyg
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...
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!