Microsoft Excel ist ein Tabellenkalkulationsprogramm . Eine Besonderheit dieses Programms ist, dass man seine Arbeitsblätter verwenden, um Daten zu speichern, um ähnlich der Art und Weise würden Sie in einer Datenbank und dann darauf verweisen in dynamischen grafischen Displays . Es gibt zwei Arten von Displays können Sie : Pivot-Tabellen und PivotCharts . Pivot-Tabellen können Sie sortieren , filtern und zusammenfassen Ihre Daten werden. Der einzige Weg , um die Datenquelle durch eine PivotTable zu ändern , nachdem es durch den Assistenten erstellt worden ist , um es von VBA-Code im Hintergrund aktualisieren. Anleitung
1

Erstellen eines PivotTable -Objekt in VBA , so dass Sie die Quelle aktualisieren können. Kopieren Sie den nachfolgenden Code und fügen Sie diese in Ihrem Makro oder Funktion.

Dim ptMyPivotTable Wie PivotTable
2

Verbinden Sie Ihren PivotTable -Objekt mit Ihrem tatsächlichen Pivot-Tabelle . Kopieren Sie den Code unten .

Set ptMyPivotTable = ActiveSheet.PivotTables (1 )
3

Update des SourceData Eigentum Ihrer PivotTable -Objekt auf die neuen Werte . Sie können dies , indem Sie den VBA-Code zur Verfügung gestellt zu tun. Ersetzen Sie Ihren gewünschten Datenbereich anstelle von "A1" im Beispiel.

PtMyPivotTable.SourceData = Range (" A1") . CurrentRegion.Address (Wahr , wahr, xlR1C1 , True)

Um einen Bereich auf einem anderen Blatt referenzieren , können Sie den folgenden Code verwenden .

ptMyPivotTable.SourceData = Sheets (" mySheetName " ) . [A1] . CurrentRegion.Address (Wahr , wahr, xlR1C1 , True)
4

aktualisieren Sie die Daten tatsächlich in Ihrer Pivot-Tabelle angezeigt mit der VBA -Befehl unten .

ptMyPivotTable.RefreshTable
5

Lösen Sie die Ressourcen, die Sie nutzen Ihre PivotTable -Objekt , indem er gleich auf Nothing .

Set ptMyPivotTable = Nothing