Jak obnovit kontingenční tabulku na chráněném listu?
Normálně se kontingenční tabulka neobnovuje na chráněném listu, tento článek, představím kód VBA k obnovení kontingenční tabulky z chráněného listu.
Obnovte kontingenční tabulku na chráněném listu pomocí kódu VBA
Obnovte kontingenční tabulku na chráněném listu pomocí kódu VBA
Ve výchozím nastavení neexistuje žádný přímý způsob, jak aktualizovat kontingenční tabulku na chráněném listu, ale s následujícím kódem VBA můžete rychle aktualizovat všechny kontingenční tabulky aktuálního listu, když se data změní v původní tabulce.
1. Podržte stisknuté tlačítko ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2, klikněte Vložit > Modula vložte následující kód do Modul Okno.
Kód VBA: Obnovit kontingenční tabulku na chráněném listu:
Sub RefreshAll()
'Updateby Extendoffice 20161109
Dim xpt As PivotTable
With ActiveSheet
.Protect UserInterfaceOnly:=True
For Each xpt In .PivotTables
xpt.RefreshTable
Next xpt
End With
End Sub
3. A pak stiskněte F5 klíč ke spuštění tohoto kódu, pokud se změní vaše původní data, všechny kontingenční tabulky v aktivním listu se obnoví najednou.
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!