Uppdatera Pivottabeller i Excel
I föregående artikel om hur man skapar en pivottabell i Excel gick jag igenom hur du med några enkla manövrar lägger till en enkel pivottabell i ditt kalkylark.
När man väl har skapat sin pivottabell så kan man, om man vill, fortsätta att utveckla den litegrann. Om man vill ha full kontroll över sina kalkylark och rapporter så är det viktigt att förstå hur och när pivottabeller uppdateras.
I den här artikeln kommer jag att visa hur du uppdaterar pivottabeller på några olika sätt:
- Uppdatering via meny
- Uppdatering när Excelboken öppnas
- Uppdatering via makrokod VBA
1. Uppdatera pivottabell via meny
Det mest “visuella” sättet att uppdatera pivottabeller på är via ett par olika menyer i kalkylbladet.
- Uppdatering via Excels meny (“Ribbon”)
- Uppdatering via högerklicksmenyn
Om du markerar en pivottabell (t ex klickar på den) så visas följande menyrad längst upp på skärmen. Där kan du välja om du vill uppdatera endast den markerade tabellen eller samtliga tabeller. Följande bild visar detta:
Man kan även högerklicka på aktuell pivottabell och där välja uppdatering:
2. Automatisk uppdatering när Excelboken öppnas
Om du har en lite mer “långlivad” rapport i Excel så kan du ställa in att alla pivottabeller ska uppdateras varje gång Excelboken öppnas. Detta måste aktivas ställas in eftersom den här funktionaliteten normalt är avslagen.
Först måste du ta fram dialogfönstret för “Pivot Table Options“:
Därefter kan du under fliken “Data” välja att slå på automatisk uppdatering vid öppnandet av Excelboken:
3. Uppdatering av pivottabeller via makrokod VBA
Självklart kan du programmera makron som uppdaterar en viss pivottabell eller samtliga pivottabeller i kalkylarket.
Koden för att uppdatera en enskild pivottabell kan t ex se ut så här:
Sub UppdateraPivot() 'ändra "MinPivotTabell" till aktuell pivottabell Dim objPivot As PivotTable Set objPivot = ActiveSheet.PivotTables("MinPivotTabell") objPivot.RefreshTable End Sub |
Om du vill att makrot ska uppdatera samtliga kalkylarkets pivottabeller i ett svep så kan koden se ut som följer:
Sub UppdateraAllaPivot() Dim objPivot As PivotTable For Each objPivot In ActiveSheet.PivotTables objPivot.RefreshTable Next objPivot End Sub |