Jak zakázat výběr více položek v kontingenční tabulce?
Když vytvoříme kontingenční tabulku a nastavíme možnost filtrovaných položek, ale nechcete, aby ostatní použili funkci Vybrat více položek v kontingenční tabulce, aby narušili původní data v kontingenční tabulce. V tomto článku budu hovořit o tom, jak tuto možnost deaktivovat v kontingenční tabulce.
Zakažte výběr více položek v kontingenční tabulce pomocí kódu VBA
Zakažte výběr více položek v kontingenční tabulce pomocí kódu VBA
Chcete-li chránit výběr kontingenční tabulky před změnou, následující kód VBA vám pomůže zakázat funkci Vybrat více položek. Postupujte prosím následovně:
1. Podržte ALT + F11 klíče a otevře se Okno Microsoft Visual Basic pro aplikace.
2. klikněte Vložit > Modula vložte následující kód do Okno modulu.
Kód VBA: Zakažte výběr více položek v kontingenční tabulce
Sub DisableSelection()
'Update 20141028
Dim xPF As PivotField
Set xPT = Application.ActiveSheet.PivotTables(1)
For Each xPF In xPT.PivotFields
xPF.EnableItemSelection = False
Next xPF
End Sub
3. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a tlačítka se šipkami filtru v kontingenční tabulce byla odstraněna najednou, viz screenshoty:
 |
 |
 |
Poznámky:
1. Chcete-li znovu povolit výběr více položek, použijte následující kód:
Kód VBA: Povolit výběr více položek v kontingenční tabulce:
Sub DisableSelection()
'Update 20141028
Dim xPF As PivotField
Set xPT = Application.ActiveSheet.PivotTables(1)
For Each xPF In xPT.PivotFields
xPF.EnableItemSelection = True
Next xPF
End Sub
2. Tento kód se použije pouze na jednu kontingenční tabulku v aktivním listu.
Související články:
Jak skrýt tlačítka pro rozbalení a sbalení v kontingenční tabulce?
Jak skrýt mezisoučty v kontingenční tabulce?
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!
