Jak obnovit kontingenční tabulku při změně dat v aplikaci Excel?
Jak víte, pokud změníte data v původní tabulce, relativní kontingenční tabulka mezitím neaktualizuje data v ní. Pokud potřebujete obnovit kontingenční tabulku při změnách dat v tabulce v aplikaci Excel, mohu vám říct několik rychlých způsobů.
Obnovte kontingenční tabulku v listu stisknutím tlačítka Obnovit
Obnovte kontingenční tabulku v listu nebo sešitu pomocí VBA
Obnovte kontingenční tabulku v listu stisknutím tlačítka Obnovit
V aplikaci Excel existuje funkce Obnovit a Obnovit vše k obnovení kontingenční tabulky v jednom listu.
Klikněte na kontingenční tabulku, kterou chcete aktualizovat, a poté klikněte na Volba (v aplikaci Excel 2013 klikněte na ANALYZOVAT)> Obnovit > Obnovit. Viz snímek obrazovky:
Pokud chcete obnovit všechny kontingenční tabulky v jednom listu, můžete vybrat obnovit všechny.
Obnovte kontingenční tabulku v listu nebo sešitu pomocí VBA
S VBA můžete nejen obnovit všechny kontingenční tabulky v jednom listu, ale také obnovit všechny kontingenční tabulky v celém sešitu.
1. lis F11 + Alt klávesy společně na klávesnici otevřete Microsoft Visual Basic pro aplikace okno.
2. Pak klikněte na tlačítko Vložit > Modul pro vložení nového okna modulu. A potom zkopírujte následující kód VBA do okna.
VBA: Obnovte kontingenční tabulky v listu.
Sub AllWorksheetPivots()
'Updateby20140724
Dim xTable As PivotTable
For Each xTable In Application.ActiveSheet.PivotTables
xTable.RefreshTable
Next
End Sub
3. cvaknutí Běh tlačítko v okně nebo klávesa F5 ke spuštění VBA, pak se obnoví kontingenční tabulky v listu.
Tip: Chcete-li obnovit všechny kontingenční tabulky v celém sešitu, můžete použít následující VBA.
VBA: Obnovte všechny kontingenční tabulky v sešitu.
Sub RefreshAllPivotTables()
'Updateby20140724
Dim xWs As Worksheet
Dim xTable As PivotTable
For Each xWs In Application.ActiveWorkbook.Worksheets
For Each xTable In xWs.PivotTables
xTable.RefreshTable
Next
Next
End Sub
Relativní články:
- Obnovit kontingenční tabulku u souboru otevřeného v aplikaci Excel
- Aktualizujte rozsah dat kontingenční tabulky v aplikaci Excel
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!