Wie deaktiviere ich die Auswahl mehrerer Elemente in der Pivot-Tabelle?
Wenn wir eine Pivot-Tabelle erstellen und die Option für gefilterte Elemente festlegen, möchten Sie jedoch nicht, dass andere die Funktion "Mehrere Elemente auswählen" in der Pivot-Tabelle anwenden, um die Originaldaten in Ihrer Pivot-Tabelle zu stören. In diesem Artikel werde ich darüber sprechen, wie diese Option in der Pivot-Tabelle deaktiviert wird.
Deaktivieren Sie die Auswahl mehrerer Elemente in der Pivot-Tabelle mit VBA-Code
Deaktivieren Sie die Auswahl mehrerer Elemente in der Pivot-Tabelle mit VBA-Code
Um die Auswahl der Pivot-Tabelle vor Änderungen zu schützen, können Sie mit dem folgenden VBA-Code die Funktion "Mehrere Elemente auswählen" deaktivieren. Bitte gehen Sie wie folgt vor:
1. Halten Sie die Taste gedrückt ALT + F11 Tasten, und es öffnet die Microsoft Visual Basic für Applikationen-Fenster.
2. Klicken Sie auf Kostenlos erhalten und dann auf Installieren. Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modulfenster.
VBA-Code: Deaktivieren Sie die Auswahl mehrerer Elemente in der Pivot-Tabelle
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. Dann drücken F5 Die Tasten zum Ausführen dieses Codes und die Filterpfeiltasten in der Pivot-Tabelle wurden sofort entfernt. Siehe Screenshots:
 |
 |
 |
Anmerkungen:
1. Wenn Sie die Option Mehrere Elemente auswählen erneut aktivieren möchten, wenden Sie den folgenden Code an:
VBA-Code: Aktivieren Sie die Auswahl mehrerer Elemente in der Pivot-Tabelle:
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. Dieser Code wird nur auf eine Pivot-Tabelle im aktiven Arbeitsblatt angewendet.
In Verbindung stehende Artikel:
Wie verstecke ich die Schaltflächen zum Erweitern und Reduzieren in der Pivot-Tabelle?
Wie verstecke ich Zwischensummen in der Pivot-Tabelle?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
