Frissítse a Pivot táblát a VBA-ban

Általában pivot táblát készítünk, amikor valamilyen diagramot vagy diagramot kell létrehoznunk, vagy elemeznünk kell rajta. A Pivot táblázat elkészítésével átfogó képet kaphatunk és elképzelést kaphatunk arról, hogy mi valójában az adatokban található. Ez a legjobb módszer az adatokba való bejutás megkeresésére. És minden alkalommal, amikor bármilyen változtatást végezünk az adatokban, frissítenünk kell a pivot táblát is. Annak érdekében, hogy kitöltse a frissített adatok számát is. Bármely pivot tábla frissítése nagyon egyszerű, de mi van, ha tíz másodperces pivot tábla van egy excel fájlban, amelyet frissíteni kell. Tehát ahelyett, hogy az összes pivottáblát egyenként frissítenénk, közvetlenül az összes pivottáblát egyszerre frissíthetjük a VBA Refresh Pivot Table segítségével.

Hogyan használható a Pivot tábla frissítése az Excel VBA alkalmazásban?

Az alábbiakban bemutatjuk azokat a különféle példákat, amelyek segítségével a Pivot Table frissíthető Excelben VBA-kóddal.

Itt letöltheti ezt a VBA frissítő Pivot Table Excel sablont - VBA Refresh Pivot Table Excel sablon

VBA frissítő Pivot táblázat - 1. példa

A pivot tábla frissítéséhez először létre kell hoznunk pivot táblát. Az alábbiakban vannak olyan 1000s sor adatai, amelyek alapján elkészítjük a pivot táblát.

A fenti képernyőképen az utolsó sor látható a 1001-es számnál, és ezek az adatok vevői információkat tartalmaznak a nekik eladott mennyiséghez viszonyítva.

Most menjen a Beszúrás menü fülre, és kattintson a PivotTable opcióra.

Kapunk egy PivotTable létrehozása mezőt. Innentől kezdve válassza ki azt a táblázattartományt, amelyet bele akarunk foglalni egy pivot táblába. Ezután válassza ki a Pivot tábla aktuális lapjának bármely helyét. Új munkalapot is választhatunk.

Ha kész, kattintson az OK gombra.

Létrehozjuk a pivot táblát. Most húzza a szükséges mezőket különböző területekre, hogy megkapja a tényleges pivot táblát. Itt az Ügyfél nevét ROWS-ba és a Mennyiséget OSZLOPOKba húzzuk, az alább látható módon.

Ez befejezi a PivotTable létrehozását. Ugyanakkor frissítenünk kell a pivot táblát, miután bármilyen adatot megváltoztatottunk, ezt egyszerűen frissíthetjük a jobb egérgombbal elérhető legördülő menüből, az alább látható módon.

Ugyanez a folyamat automatizálható a VBA-n keresztül is. Ehhez szükség lenne egy modulra. Így,

1. lépés: Lépjen a Beszúrás menü fülre, és válassza az alább látható legördülő listából a Modul lehetőséget.

2. lépés: Az újonnan megnyílt modulban írja be a VBA Pivot Refresh alkategóriáját, vagy tetszés szerint bármilyen nevet választhatunk.

Kód:

 Sub Pivot_Refresh2 () End Sub

3. lépés: Először definiáljon egy változót PivotCache- ként, az alább látható módon. A PivotCache a Pivot gyorsítótárat használja, nem pedig a Pivot tábla létrehozásához használt adatokat.

Kód:

 Sub Pivot_Refresh2 () Dim Table as PivotCache End Sub

4. lépés: Most a Mindenki hurkot fogjuk használni. Tehát nyisson meg egy-egy hurkot az alább látható módon.

Kód:

 Sub Pivot_Refresh2 () A Táblázat tompítása PivotCache formátumban minden következő tábla végéhez

5. lépés: A For-End hurok belsejében felírjuk azt a feltételt, amikor kiválasztjuk az éppen megnyitott munkalapot, amelynek Pivot táblája van a PivotCache-vel .

Kód:

 Sub Pivot_Refresh2 () Pimot Táblázat PivotCache formátumban a ThisWorkbook minden táblájához.PivotCaches Következő táblázat Vége Al

6. lépés: Most a Refresh parancsot fogjuk használni, és hozzárendeljük a meghatározott változótáblához.

Kód:

 Sub Pivot_Refresh2 () A Táblázat tompítása PivotCache formátumban a ThisWorkbook.PivotCaches tábla minden táblája számára.Következő táblázat frissítése Vége Al

7. lépés: Ez befejezi a kódot, most fordítsa le a fájlt a fájlhibara az F8 funkcionális gomb megnyomásával. Most, hogy kipróbálhassuk, működik-e az írott kód, nem változtattuk meg a Vevő14 mennyiségét 69-re .

8. lépés: Most futtassa a kódot. Látjuk, hogy az ügyfél14-hez viszonyított összes szám 2183-ra frissül, amelyet sárga színű kiemelés mutat.

VBA frissítő pivot tábla - 2. példa

Van egy másik mód a Pivot tábla frissítésére a VBA-n keresztül. Mielőtt továbblépnénk, mérlegelhetjük egy pivot tábla nevét, vagy használhatjuk az alapértelmezett nevet is. Próbáljunk új nevet adni a Pivot táblának. Ehhez válassza ki a pivot táblát, és lépjen az Elemzés menü fülre, az alább látható módon.

A PivotTable Name első részében láthatjuk, hogy az alapértelmezett név PivotTable1 .

Most megváltoztatjuk ezt a nevet. Fontolja meg az új név írását ügyféladatként, az alább látható módon.

1. lépés: Ezután nyisson meg egy új modult és írja be a VBA frissítés alkategóriáját az alább látható módon.

Kód:

 Sub Pivot_Refresh3 () End Sub

2. lépés: Most definiáljon egy változót PivotTable- ként. Itt a PivotTable segítségével a teljes forrásinformációt vesszük figyelembe.

Kód:

 Sub Pivot_Refresh3 () Dim Table mint PivotTable End Sub

3. lépés: Most használja a Set with meghatározott változót, és válassza ki a jelenleg nyitott lapot.

Kód:

 Sub Pivot_Refresh3 () Dim Table mint PivotTable Set Table = ActiveSheet. Befejezés Sub

4. lépés: Válassza ki a Pivot tábla nevét, amelyet frissíteni szeretnénk, valamint a PivotTableként használt változó adattípust.

Kód:

 Sub Pivot_Refresh3 () Dim Table mint PivotTable Set Table = ActiveSheet.PivotTables ("Ügyféladatok") End Sub

5. lépés: Végül használja a RefreshTable funkcióval rendelkező változót annak végrehajtásához.

Kód:

 Sub Pivot_Refresh3 () Dim Table mint PivotTable Set Table = ActiveSheet.PivotTables ("Customer Data") Table.RefreshTable End Sub

6. lépés: Végezzünk még néhány változtatást az adatokban, hogy az alkalmazott kód valódi látványképe legyen.

Megváltoztattuk a Customer2 számát 56-ra . Ha most futtatjuk a kódot, az Ügyfél neve pivot táblájában, akkor meg kell változtatni az Ügyfél2 mennyiségének összegét.

7. lépés: Most nyissa meg a VBA ablakot, és fordítsa le a kódot. Ha nem található hiba, akkor futtassa a lejátszás gombra kattintással, amely a menüsor alatt található, az alább látható módon. Megfigyeljük, hogy a Customer2 számára eladott mennyiség összege most 1724-re növekszik, ha megváltoztatja a forrástáblát.

Ezzel egynél több forrás adatot is felvehetünk, és létrehozhatunk egy másik pivot táblát. És ezen forgótáblák automatizálása is egyszerű, mivel csak hozzá kell adnunk a pivot tábla nevét és a lapot, ahol az asztal található.

Előnyei a VBA Refresh Pivot Table-nak

  • Nagyon kevesebb időt vesz igénybe a pivot tábla VBA kóddal történő frissítése.
  • Nagyon könnyű végrehajtani.

Dolgok, amikre emlékezni kell

  • Felvehetünk több adatforrástáblát és automatizálhatjuk őket VBA kóddal.
  • A változások megtekintéséhez tartsa a VBA ablakot és az Excel lapot párhuzamosan.
  • Sokkal jobb megnevezni az egyes pivot táblákat, ha több adatforrással és pivot táblával foglalkozik.
  • A pivot tábla nevével ellátott kód könnyen érthető, nyomon követhető és megtalálható.

Ajánlott cikkek

Ez egy útmutató a VBA Refresh Pivot Table-hoz. Itt megvitatjuk, hogyan lehet használni az Excel VBA Refresh Pivot Tablet, valamint a gyakorlati példákat és a letölthető Excel sablont. Megnézheti más javasolt cikkeinket -

  1. VBA FileSystemObject (FSO)
  2. Az Excel függvény alsávja
  3. VBA húr hossza
  4. Excel ISNUMBER Formula

Kategória:

VBA