Jak automaticky aktualizovat kontingenční tabulku v aplikaci Excel?
Normálně, když aktualizujeme zdrojová data kontingenční tabulky, kontingenční tabulka se neaktualizuje, dokud neklikneme Analyzovat > Obnovit ručně. Bude to docela nudné, pokud kontingenční tabulka zůstane v jiném listu a můžete ji zapomenout obnovit. Zde tento článek představí VBA pro automatické obnovení kontingenční tabulky v aplikaci Excel.
Automaticky aktualizovat kontingenční tabulku pomocí VBA
Automaticky aktualizovat kontingenční tabulku pomocí VBA
Chcete-li použít VBA pro automatické obnovení zadané kontingenční tabulky v aplikaci Excel, postupujte podle následujících kroků.
1. Na panelu karet List klikněte pravým tlačítkem na kartu listu, která obsahuje zdrojová data, a vyberte Zobrazit kód v místní nabídce. Viz snímek obrazovky:
2. V úvodním okně Microsoft Visual Basic pro aplikace vložte kód.
VBA: Automatické obnovení zadané kontingenční tabulky
Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets("sheet name").PivotTables("PivotTable name").PivotCache.Refresh
End Sub
Poznámky:
(1) V kódu pracovních listů („název listu"). Kontingenční tabulky ("Název kontingenční tabulky") .PivotCache.Refresh, prosím nahraďte název listu s názvem listu obsahujícího uvedenou kontingenční tabulku a nahraďte Název kontingenční tabulky s názvem zadané kontingenční tabulky.
(2) Vyberte libovolnou buňku v určené kontingenční tabulce, její název se zobrazí na Analyzovat záložka (nebo možnosti záložka). Viz snímek obrazovky:
3. Uložte kód.
Od této chvíle se při změně dat ve zdrojových datech automaticky aktualizuje zadaná kontingenční tabulka.
Snadno kombinujte více listů / sešitů / souborů CSV do jednoho listu / sešitu
Může být zdlouhavé kombinovat desítky listů z různých sešitů do jednoho listu. Ale s programem Kutools pro Excel Kombinovat (pracovní listy a sešity) nástroj, můžete to udělat pomocí několika kliknutí!
Související články:
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!