Hoppa till huvudinnehåll

Hur uppdaterar man automatiskt en pivottabell i Excel?

När vi uppdaterar källdata för en pivottabell uppdateras normalt inte pivottabellen förrän vi klickar Analysera > refresh manuellt. Detta kommer att bli ganska tråkigt om pivottabellen finns kvar i ett annat kalkylblad och du kanske glömmer att uppdatera det. Här kommer den här artikeln att introducera en VBA för att automatiskt uppdatera en pivottabell i Excel.

Uppdatera automatiskt en pivottabell av VBA


Uppdatera automatiskt en pivottabell av VBA

Följ stegen nedan för att tillämpa VBA för att automatiskt uppdatera den angivna pivottabellen i Excel.

1. Högerklicka på arkfliken som innehåller källdata i flikfältet Ark och välj Visa kod i snabbmenyn. Se skärmdump:

2. I fönstret Microsoft Visual Basic för applikationer klistrar du in koden.

VBA: Auto uppdatera den angivna pivottabellen

Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets("sheet name").PivotTables("PivotTable name").PivotCache.Refresh
End Sub

Anmärkningar:
(1) I koden för kalkylblad ("bladnamn"). Pivottabeller ("Pivottabellnamn"). PivotCache.Refresh, vänligen byt ut bladnamn med namnet på arket som innehåller den angivna pivottabellen och ersätt Pivottabellnamn med namnet på den angivna pivottabellen.
(2) Välj vilken cell som helst i den angivna pivottabellen, du får dess namn på Analysera flik (eller Tillbehör flik). Se skärmdump:

3. Spara koden.

Från och med nu när du ändrar data i källdata uppdateras den angivna pivottabellen automatiskt.

Kombinera enkelt flera kalkylblad / arbetsböcker / CSV-filer i ett kalkylblad / arbetsbok

Det kan vara tråkigt att kombinera dussintals ark från olika arbetsböcker till ett ark. Men med Kutools för Excel Kombinera (kalkylblad och arbetsböcker) verktyget kan du få det gjort med bara några klick!


annons kombinera ark böcker 1

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 (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
If the Pivot Table is on the same sheet that changes data, you need avoid a loop, so you need implement a conditional statement

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("M:M")) Is Nothing Then
Exit Sub
Else
'MsgBox "You just changed" & Target.Address
Worksheets("SheetName").PivotTables("PivotTableName").PivotCache.Refresh
End If

End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations