Hogyan lehet letiltani több elem kijelölését az elfordulási táblázatban?
Amikor létrehozunk egy kimutatótáblát és beállítjuk a szűrt elemek opcióját, akkor nem szeretné, hogy mások alkalmazzák a kimutatás több elem kiválasztása funkciót a pivot-táblázat eredeti adatainak felborításához. Ebben a cikkben arról fogok beszélni, hogy miként lehet letiltani ezt az opciót az elfordulási táblázatban.
Több elem kijelölésének letiltása a VBA kóddal ellátott forgatótáblában
Több elem kijelölésének letiltása a VBA kóddal ellátott forgatótáblában
A pivot tábla kiválasztásának megváltoztatásának védelme érdekében a következő VBA-kód segíthet a Több elem kiválasztása funkció letiltásában. Kérjük, tegye a következőket:
1. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.
VBA kód: Több elem kijelölésének letiltása az elfordulási táblázatban
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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és a forgatótábla szűrő nyílgombjai egyszerre eltávolításra kerültek, lásd a képernyőképeket:
 |
 |
 |
Megjegyzések:
1. Ha újra engedélyezni szeretné a Több elem kiválasztása lehetőséget, kérjük, alkalmazza a következő kódot:
VBA-kód: Több elem kijelölésének engedélyezése az elfordulási táblázatban:
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. Ezt a kódot csak az egyik munkalapra alkalmazzák az aktív munkalapon.
Kapcsolódó cikkek:
Hogyan lehet elrejteni az összecsukás gombjait a forgatótáblában?
Hogyan lehet elrejteni a részösszegeket az elfordulási táblázatban?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
