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: </ p>
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:
Poznámka: 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?
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!
