Microsoft Visual Basic (VBA ) ist ein Bare-bones und frühen Programmiersprache entwickelt, um Desktop-Anwendungen zu erstellen , erleichtern das Sortieren von Daten und ermöglichen die Erzeugung von Berichten über Daten. Sie können dies auch mit VBA eine Pivot-Tabelle erstellen , um Daten in Verbindung mit einem Tabellenkalkulationsprogramm wie Microsoft Excel zusammenzufassen. Mit einem kleinen Ausschnitt des VBA-Code , können Sie eine Pivot aus einer vorhandenen Tabelle Daten relativ einfach erstellen. Anleitung
1
einleiten VBA-Skript , indem Sie die folgenden Schritte aus:
Create_Pivot_Table_From_Cache ()
2
Geben Sie die Methoden der Drehpunkt , indem Sie mit der followinf drei Zeilen VBA-Code : Dim
oPC als PivotCache
Dim entscheiden, wie PivotTable
Dim OWS As Worksheet
3 Geben
die Funktionen von OPC , opt und OWS indem Sie die folgenden Zeilen Code :
OWS = ActiveSheet
oPC = ActiveWorkbook.PivotCaches.Create ( xlDatabase , oWS.UsedRange )
< p> opt = oPC.CreatvePivotTable ( oWS. [ D20 ] , " Pivot von Cache ", True ) Geben
4
wie die Felder sollten schwenken oder Daten berechnen , indem Sie die folgenden Zeilen Code . Beachten Sie, dass in diesem Beispiel die Daten Spalte Feldnamen können von Ihnen unterscheiden .
OPT.AddFields ( oPT.PivotFields ( " Preis " ) . Name
oPT.PivotFields ("Produkt" ) . Nachname)
oPT.AddDataField ( oPT.PivotFields ( "Type" ) , Execute " Produkt-Typ " , xlSum )
5
die VBA-Skript in einem kompatiblen Programm wie Excel , und sehen Sie die erzeugten geschwenkt Tisch.
