Hoppa till huvudinnehåll

 Hur uppdaterar jag avancerat filterresultat automatiskt i Excel?

När vi tillämpar funktionen Avancerat filter kommer vi att upptäcka att det filtrerade resultatet inte ändras automatiskt med kriteriekursen. Detta kräver att vi använder Advanced Filter-funktionen igen för att få det nya resultatet. Men har du något bra och snabbt trick för att automatiskt uppdatera det avancerade filterresultatet som följande skärmdump visas i Excel?

Uppdatera avancerat filterresultat automatiskt med VBA-kod


Uppdatera avancerat filterresultat automatiskt med VBA-kod

Följande VBA-kod kan hjälpa dig att automatiskt uppdatera det avancerade filterresultatet när du ändrar kriterierna efter behov, gör så här:

1. Högerklicka på den arkflik som du vill filtrera data automatiskt och välj sedan Visa kod från snabbmenyn, i den öppnade Microsoft Visual Basic för applikationer fönster, kopiera och klistra in följande kod i den tomma modulen:

VBA-kod: Uppdatera avancerat filterresultat automatiskt:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A5:D21").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range _
("A1:C3"), Unique:=False
End Sub

Anmärkningar: I ovanstående kod: A5: D21 är det dataområde som du vill filtrera, A1: C3 är kriterieområdet att filtrera baserat på.

2. Spara och stäng sedan kodfönstret, nu när du ändrar kriterierna i kriterieområdet uppdateras det filtrerade resultatet automatiskt på en gång.

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 (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This is likely not relevant anymore. Office excel now has a FILTER function that auto updates from what I gather, making advanced filter a sort of weak pivot table. FILTER function is what should be used moving forward? Sounds like excel's solution to the issue you state above not requring VBA to do.
This comment was minimized by the moderator on the site
Hi, I am applying advanced filter for a single column for unique values(with no criteria) . I need it to be updated by itself.

Could you please help me with that?
This comment was minimized by the moderator on the site
Is there a way to do this without using VBA?
This comment was minimized by the moderator on the site
Hello, this code works perfectly, there is just one problem, the copy/paste fonction doesn't work anymore.
How could it be fixed?
Thanks in advance
This comment was minimized by the moderator on the site
@Hannah: Yes, it is possible.
In the following code the criteria is on the sheet "Filter".


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A5:D23").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("Filter").Range("A1:C3"), Unique:=False
End Sub
This comment was minimized by the moderator on the site
Ce code donne une erreur 1004 référence non valide. pouvez vous corriger le code proposé?
This comment was minimized by the moderator on the site
Bonjour, merci pour votre post qui m'aide énormément. Toutefois quel serait le code à ajouter pour coller le résultat dans un tableau d'une autre feuille de fichier et si possible pour au passage ne coller que certaines colonnes ?
Pour être plus précise, en utilisant votre exemple je voudrais copier uniquement les colonnes "Product" et "Name" du résultat du filtre et ce dans une nouvelle feuille. Merci.
This comment was minimized by the moderator on the site
Can I make the criteria come from a second sheet?
This comment was minimized by the moderator on the site
it refreshes every time when any data changes.

is it possible to refresh only when criteria changes.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations