Wie füge ich mehrere Felder zur Pivot-Tabelle hinzu?
Wenn wir eine Pivot-Tabelle erstellen, müssen wir die Felder einzeln manuell in die Zeilenbeschriftungen oder Werte ziehen. Wenn wir eine lange Liste von Feldern haben, können wir schnell einige Zeilenbeschriftungen hinzufügen, aber die verbleibenden Felder sollten dem Wertebereich hinzugefügt werden. Gibt es schnelle Methoden, um alle anderen Felder mit einem Klick in der Pivot-Tabelle zum Wertebereich hinzuzufügen?
Fügen Sie dem Wertebereich der Pivot-Tabelle mehrere Felder mit VBA-Code hinzu
Fügen Sie dem Wertebereich der Pivot-Tabelle mehrere Felder mit VBA-Code hinzu
Leider gibt es kein Kontrollkästchen, mit dem wir alle Felder in der Pivot-Tabellenfeldliste mit einem Klick schnell aktivieren können. Mit dem folgenden VBA-Code können Sie jedoch die verbleibenden Felder sofort zum Wertebereich hinzufügen. Bitte gehen Sie wie folgt vor:
1. Nach dem Erstellen der Pivot-Tabelle sollten Sie zunächst die Zeilenbeschriftungsfelder nach Bedarf hinzufügen und die Wertefelder in der Liste belassen Wählen Sie Felder aus, die dem Bericht hinzugefügt werden sollen Liste, siehe Screenshot: </ p>
2. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen-Fenster.
3. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modulfenster.
VBA-Code: Fügen Sie dem Wertebereich von Pivot-Tabellen im aktiven Arbeitsblatt mehrere Felder hinzu
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. Dann drücken F5 Mit dem Schlüssel zum Ausführen dieses Codes wurden alle verbleibenden Felder gleichzeitig zum Wertebereich hinzugefügt. Siehe Screenshot:
Note: Dieser VBA-Code wird auf alle Pivot-Tabellen des aktiven Arbeitsblatts angewendet.
In Verbindung stehende Artikel:
Wie liste ich alle Pivot-Tabellen in einer Arbeitsmappe auf?
Wie überprüfe ich, ob eine Pivot-Tabelle in einer Arbeitsmappe vorhanden ist?
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!