Implementácia Makro VBA je najefektívnejšia, najrýchlejšia a najbezpečnejšia metóda na spustenie akejkoľvek operácie v programe Excel. V tomto článku vám ukážeme, ako obnovenie otočnej tabuľky v programe Excel pomocou VBA.

Stiahnite si pracovný zošit

Bezplatný cvičný zošit Excel si môžete stiahnuť odtiaľto.

Obnovenie otočnej tabuľky pomocou VBA.xlsm

5 príkladov na obnovenie pivotnej tabuľky pomocou VBA v programe Excel

Nasleduje príklad našej otočnej tabuľky, ktorú budeme používať v celom článku a ukážeme si 5 rôznych príkladov obnovovanie otočných tabuliek v programe Excel pomocou VBA kód.

1. VBA na obnovenie jednej pivotnej tabuľky v programe Excel

Ak chcete obnoviť len jednu otočnú tabuľku v pracovnom hárku Excelu,

• Tlač Alt + F11 na klávesnici alebo prejdite na kartu Vývojár -> Visual Basic otvoriť Editor jazyka Visual Basic .

• Vo vyskakovacom okne kódu kliknite na paneli ponúk na položku Vložiť -> Modul .

• Skopírujte nasledujúci kód a vložte ho do okna kódu.

 Sub RefreshOnePivotTable() ActiveSheet.PivotTables("PivotTable1").RefreshTable End Sub 

Váš kód je teraz pripravený na spustenie.

Tu, PivotTable1 je názov našej otočnej tabuľky. Napíšete názov, ktorý má vaša otočná tabuľka.

• Tlač F5 na klávesnici alebo na paneli ponúk vyberte Run -> Run Sub/UserForm Môžete tiež jednoducho kliknúť na malá ikona Play na paneli podponúk, aby ste makro spustili.

Tým sa obnoviť otočnú tabuľku v existujúcom hárku programu Excel.

Prečítajte si viac: Neobnovenie otočnej tabuľky (5 problémov & riešenia)

2. Makro na obnovenie všetkých tabuliek Pivot v aktívnom hárku

Obnovenie všetkých otočných tabuliek v aktívnom hárku , postupujte podľa nasledujúcich krokov.

• Rovnaký spôsob ako predtým, otvoriť Editor jazyka Visual Basic z Vývojár karta a Vložte a Modul v okne kódu.
• V okne kódu skopírujte nasledujúci kód a vložte ho.

 Sub RefreshActiveSheetPivotTables() Dim PivotTbl As PivotTable For Each PivotTbl In ActiveSheet.PivotTables PivotTbl.RefreshTable Next PivotTbl End Sub 

Váš kód je teraz pripravený na spustenie.

• Spustiť makro a všetky otočné tabuľky v aktívnom hárku sa obnovia.

Prečítajte si viac: Ako obnoviť všetky pivotné tabuľky v programe Excel

3. Kód VBA na obnovenie všetkých tabuliek Pivot vo viacerých zošitoch

Ak chcete obnoviť všetky otočné tabuľky vo viacerých zošitoch hneď s VBA kód potom kroky sú:

• Otvoriť Editor jazyka Visual Basic z Vývojár karta a Vložte a Modul v okne kódu.
• V okne kódu skopírujte nasledujúci kód a vložte ho.

 Sub RefreshAllPivotTables() Dim PivotTbl As PivotTable For Each PivotTbl In ActiveWorkbook.PivotTables PivotTbl.RefreshTable Next PivotTbl End Sub 

Váš kód je teraz pripravený na spustenie.

• Spustiť kód a všetky otočné tabuľky vo všetkých otvorených zošitoch programu Excel sa obnovia.

Pamätajte si uchovávať všetky zošity otvoriť pri spustení tohto kódu.

Podobné čítania

• Ako upraviť pivotnú tabuľku v programe Excel (5 metód)
• Aktualizácia rozsahu otočnej tabuľky (5 vhodných metód)
• Ako automaticky aktualizovať pivotnú tabuľku pri zmene zdrojových údajov

4. Obnovenie vyrovnávacej pamäte pivotnej tabuľky pomocou VBA v programe Excel

Ak máte v zošite viacero otočných tabuliek, ktoré používajú rovnaké údaje, môžete obnoviť iba vyrovnávaciu pamäť pivotnej tabuľky namiesto neustáleho obnovovania aktuálnej pivotnej tabuľky. Obnovenie vyrovnávacej pamäte automaticky vymaže vyrovnávaciu pamäť všetkých pivotných tabuliek, ktoré používajú rovnaké dátové spojenie vo vyrovnávacej pamäti.

Kroky na to sú,

• Otvoriť Editor jazyka Visual Basic z Vývojár karta a Vložte a Modul v okne kódu.
• V okne kódu skopírujte nasledujúci kód a vložte ho.

 Sub RefreshPivotTableCache() Dim PivotCache As PivotCache For Each PivotCache In ActiveWorkbook.PivotCaches PivotCache.Refresh Next PivotCache End Sub 

Váš kód je teraz pripravený na spustenie.

• Spustiť kód a všetky pamäte vyrovnávacej pamäte pivotnej tabuľky budú vymazané.

Prečítajte si viac: Ako automaticky obnoviť pivotnú tabuľku bez VBA v programe Excel (3 inteligentné metódy)

5. Automatické obnovenie pivotnej tabuľky pri zmene údajov pomocou makra VBA

Čo ak máte otočnú tabuľku, ktorá obsahuje veľké množstvo údajov a jediné, čo chcete, je aktualizovať niekoľko údajov, pričom celá tabuľka zostane nedotknutá. V programe Excel môžete automatické obnovenie otočnej tabuľky pri aktualizácii údajov pomocou VBA .

• Otvoriť Editor jazyka Visual Basic z Vývojár.
• Na ľavej strane editora sa nachádza Projekt Explorer podokno, ktoré obsahuje všetky názvy pracovného hárka.
• Na stránke Projekt Explorer , dvakrát kliknite na názov hárku, ktorý obsahuje otočnú tabuľku.

• Zobrazí sa okno s kódom, v ktorom vytvoríme makro udalosti. Pracovný list z Objekt rozbaľovacie pole na ľavej strane modulu kódu. Tým sa pridá Worksheet_SelectionChange do modulu, v skutočnosti ju nepotrebujeme, takže tento kus kódu neskôr odstránime.
• Potom kliknite na Postup rozbaľovací zoznam a vyberte Zmena . Tým sa pridá nová udalosť v hornej časti modulu kódu s názvom Pracovný hárok_Change . Tu napíšeme náš kód takto vymazať kód vygenerovaný Worksheet_SelectionChange

• Teraz skopírujte nasledujúci kód a vložte ho do Pracovný hárok_Change

 Private Sub Worksheet_Change(ByVal Target As Range) Worksheets("PivotTbl").PivotTables("PivotTable1").PivotCache.Refresh End Sub 

Váš kód je teraz pripravený na spustenie.

Tu, PivotTbl je názov pracovného hárka v našom zošite Excelu a PivotTable1 je názov našej Pivot Table. Napíšete názov, ktorý má váš pracovný hárok a Pivot Table.

• Teraz sa pri každej zmene údajov v pôvodnej tabuľke údajov v pracovnom hárku automaticky aktualizujú údaje v otočnej tabuľke.

Prečítajte si viac: Ako automaticky obnoviť pivotnú tabuľku v programe Excel

Záver

Tento článok vám ukázal, ako obnoviť otočnú tabuľku v programe Excel pomocou VBA . dúfam, že tento článok bol pre vás veľmi prínosný. Ak máte akékoľvek otázky týkajúce sa tejto témy, neváhajte sa opýtať.