Jak přidat více polí do kontingenční tabulky?

Když vytváříme kontingenční tabulku, musíme pole postupně přetahovat do štítků řádků nebo hodnot ručně. Pokud máme dlouhý seznam polí, můžeme rychle přidat několik štítků řádků, ale zbývající pole by měla být přidána do oblasti Hodnota. Existují nějaké rychlé metody, jak přidat všechna ostatní pole do oblasti Hodnota jedním kliknutím v kontingenční tabulce?

Přidejte více polí do oblasti hodnot kontingenční tabulky s kódem VBA

Přidejte více polí do oblasti hodnot kontingenční tabulky s kódem VBA

Bohužel neexistuje žádné zaškrtávací políčko, abychom mohli rychle zkontrolovat všechna pole v seznamu polí kontingenční tabulky jedním kliknutím, ale s následujícím kódem VBA vám pomůže přidat zbývající pole do oblasti Hodnoty najednou. Postupujte prosím následovně:

1. Po vytvoření kontingenční tabulky byste nejprve měli podle potřeby přidat pole popisku řádku a ponechat pole hodnot v Vyberte pole, která chcete přidat do sestavy seznam, viz screenshot:

2. Podržte ALT + F11 klávesy pro otevření Okno Microsoft Visual Basic pro aplikace.

3, klikněte Vložit > Modula vložte následující kód do Okno modulu.

Kód VBA: Přidejte více polí do oblasti hodnot kontingenčních tabulek v aktivním listu

Sub AddAllFieldsValues()
'Update 20141112
    Dim pt As PivotTable
    Dim I As Long
    For Each pt In ActiveSheet.PivotTables
        For I = 1 To pt.PivotFields.Count
            With pt.PivotFields(I)
              If .Orientation = 0 Then .Orientation = xlDataField
            End With
        Next
    Next
End Sub

4. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu, všechna zbývající pole byla přidána do oblasti Hodnoty současně, viz screenshot:

Pozor: Tento kód VBA se použije na všechny kontingenční tabulky aktivního listu.

Související články:

Jak vypsat všechny kontingenční tabulky ze sešitu?

Jak zkontrolovat, zda v sešitu existuje kontingenční tabulka?