Hoe selecteer ik meerdere items in de draaitabel uit?
Wanneer we een draaitabel maken en de optie voor gefilterde items instellen, maar u wilt niet dat anderen de functie Meerdere items selecteren in de draaitabel toepassen om de oorspronkelijke gegevens in uw draaitabel te verstoren. In dit artikel zal ik het hebben over het uitschakelen van deze optie in de draaitabel.
Schakel het selecteren van meerdere items in de draaitabel uit met VBA-code
Schakel het selecteren van meerdere items in de draaitabel uit met VBA-code
Om te voorkomen dat de selectie van de draaitabel verandert, kan de volgende VBA-code u helpen om de functie Meerdere items selecteren uit te schakelen. Ga als volgt te werk:
1. Houd de ALT + F11 toetsen, en het opent de Microsoft Visual Basic for Applications-venster.
2. Klik Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: schakel meerdere items in de draaitabel uit
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. Druk vervolgens op F5 sleutel om deze code uit te voeren, en de filterpijlknoppen in de draaitabel zijn meteen verwijderd, zie screenshots:
 |
 |
 |
Opmerkingen:
1. Als u Meerdere items selecteren weer wilt inschakelen, past u de volgende code toe:
VBA-code: inschakelen om meerdere items in de draaitabel te selecteren:
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. Deze code wordt alleen toegepast op 茅茅n draaitabel in het actieve werkblad.
Gerelateerde artikelen:
Hoe kan ik de knoppen voor uitvouwen en samenvouwen in de draaitabel verbergen?
Hoe subtotalen in de draaitabel verbergen?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
