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.