Tartalomjegyzék
A honlap megvalósítása VBA makró a leghatékonyabb, leggyorsabb és legbiztonságosabb módszer bármilyen művelet futtatására az Excelben. Ebben a cikkben megmutatjuk, hogy hogyan lehet frissítse a pivot táblázatot az Excelben a VBA segítségével.
Munkafüzet letöltése
Az ingyenes gyakorló Excel munkafüzetet innen töltheti le.
Pivot táblázat frissítése VBA-val.xlsm
5 példa a Pivot táblázat frissítésére VBA-val az Excelben
Az alábbiakban a pivot táblázatunk példáját mutatjuk be, amelyet az egész cikk során használni fogunk, és 5 különböző példát mutatunk be. pivot táblázatok frissítése Excelben a VBA kód.
1. VBA egy Pivot táblázat frissítése az Excelben
Ha azt szeretné, hogy csak egy pivot tábla frissítése az Excel munkalapon,
- Sajtó Alt + F11 a billentyűzeten, vagy lépjen a Fejlesztő -> Visual Basic kinyitni Visual Basic szerkesztő .
- A felugró kódablakban a menüsorban kattintson a Beszúrás -> Modul .
- Másolja ki az alábbi kódot, és illessze be a kódablakba.
Sub RefreshOnePivotTable() ActiveSheet.PivotTables("PivotTable1").RefreshTable End Sub
A kódod most már futtatásra kész.
Tessék, PivotTable1 a Pivot táblánk neve. Azt a nevet írja, amellyel a Pivot táblája rendelkezik.
- Sajtó F5 a billentyűzeten, vagy válassza a menüsorból a Futtatás -> Sub/UserForm futtatása . Egyszerűen csak kattints a kis Play ikon az almenüsorban a makró futtatásához.
Ez frissítse a pivot táblázatot a meglévő Excel munkalapon.
Bővebben: A Pivot táblázat nem frissül (5 probléma & Megoldások)
2. Makró az aktív munkalap összes Pivot-táblájának frissítéséhez
Az aktív munkalap összes pivot táblájának frissítése , kövesse az alábbi lépéseket.
- Ugyanúgy, mint korábban, nyissa meg Visual Basic szerkesztő a Fejlesztő lap és Beillesztés a Modul a kódablakban.
- A kódablakban másolja ki és illessze be a következő kódot.
Sub RefreshActiveSheetPivotTables() Dim PivotTbl As PivotTable For Each PivotTbl In ActiveSheet.PivotTables PivotTbl.RefreshTable Next PivotTbl End Sub
A kódja most már futtatásra kész.
- Fuss a makró és az aktív munkalap összes pivot táblázata frissül.
Bővebben: Hogyan frissítheti az összes Pivot-táblázatot az Excelben?
3. VBA-kód a több munkafüzet összes Pivot-táblájának frissítéséhez
Ha azt szeretné, hogy több munkafüzet összes pivot táblájának frissítése egyszerre VBA kód, akkor a lépések a következők:
- Nyissa meg a címet. Visual Basic szerkesztő a Fejlesztő lap és Beillesztés a Modul a kódablakban.
- A kódablakban másolja ki és illessze be a következő kódot.
Sub RefreshAllPivotTables() Dim PivotTbl As PivotTable For Each PivotTbl In ActiveWorkbook.PivotTables PivotTbl.RefreshTable Next PivotTbl End Sub
A kódja most már futtatásra kész.
- Fuss a kódot, és az összes megnyitott Excel-munkafüzet összes pivot-táblája frissülni fog.
Emlékezz a az összes munkafüzetet megtartani nyitott a kód futtatása közben.
Hasonló olvasmányok
- Hogyan szerkesszünk egy Pivot táblázatot az Excelben (5 módszer)
- Pivot tábla tartomány frissítése (5 megfelelő módszer)
- Hogyan frissíthet automatikusan egy Pivot táblát, ha a forrásadatok változnak?
4. A Pivot-táblázat gyorsítótárának frissítése VBA-val az Excelben
Ha a munkafüzetben több olyan pivot-táblája van, amely ugyanazokat az adatokat használja, akkor csak a pivot tábla gyorsítótárának frissítése ahelyett, hogy mindig frissítené a tényleges pivot táblát. A gyorsítótár frissítése automatikusan törli a gyorsítótár memóriáját az összes olyan pivot tábla esetében, amely ugyanazt az adatkapcsolatot használja a gyorsítótárban.
Ennek lépései a következők,
- Nyissa meg a címet. Visual Basic szerkesztő a Fejlesztő lap és Beillesztés a Modul a kódablakban.
- A kódablakban másolja ki és illessze be a következő kódot.
Sub RefreshPivotTableCache() Dim PivotCache As PivotCache For Each PivotCache In ActiveWorkbook.PivotCache PivotCache.Refresh Next PivotCache End Sub
A kódja most már futtatásra kész.
- Fuss a kód és az összes pivot tábla gyorsítótár memóriája törlődik.
Bővebben: Hogyan lehet automatikusan frissíteni a Pivot táblázatot VBA nélkül az Excelben (3 intelligens módszer)
5. Pivot-táblázat automatikus frissítése az adatok módosítása közben VBA makróval
Mi van akkor, ha van egy pivot táblázata, amely nagy mennyiségű adatot tartalmaz, és csak néhány adatot szeretne frissíteni, miközben az egész táblázatot nem érinti. Az Excelben a a pivot tábla automatikus frissítése miközben az adatokat frissíti a VBA .
- Nyissa meg a címet. Visual Basic szerkesztő a Fejlesztő.
- A szerkesztő bal oldalán lenne egy Project Explorer ablaktábla, amely a munkalap összes nevét tartalmazza.
- A oldalon. Project Explorer , kattintson duplán a pivot-táblát tartalmazó lap nevére.
- Megjelenik a kódablak, ahol létrehozunk egy eseménymakrót. Válassza ki a Munkalap a Objektum a kódmodul bal oldalán található legördülő mezőben. Ez hozzáad egy Worksheet_SelectionChange eseményt a modulhoz, de valójában nincs rá szükségünk, így ezt a kódrészletet később törölni fogjuk.
- Ezután kattintson a Eljárás legördülő lista és válassza ki a Változás Ez egy új eseményt ad hozzá a kódmodul tetején, melynek neve Worksheet_Change A kódunkat ide fogjuk írni, így delete a program által generált kód Worksheet_SelectionChange
- Most másolja ki a következő kódot, és illessze be a Worksheet_Change
Private Sub Worksheet_Change(ByVal Target As Range) Worksheets("PivotTbl").PivotTables("PivotTable1").PivotCache.Refresh End Sub
A kódja most már futtatásra kész.
Tessék, PivotTbl a munkalap neve az Excel munkafüzetünkben, és PivotTable1 a Pivot táblánk neve. Azt a nevet írja, amellyel a munkalapja és a Pivot táblája rendelkezik.
- Mostantól minden alkalommal, amikor megváltoztatja a munkalap eredeti adattáblájának adatait, a pivot-tábla adatai automatikusan frissülnek.
Bővebben: Hogyan lehet automatikusan frissíteni az Excel Pivot táblázatot az Excelben?
Következtetés
Ez a cikk megmutatta, hogyan kell frissítse a pivot táblázatot Excelben a VBA . remélem, hogy ez a cikk nagyon hasznos volt számodra. Nyugodtan kérdezz, ha bármilyen kérdésed van a témával kapcsolatban.