Wie erstelle ich Pivot -Tabelle mit VBA

Mitglieder-Login

InformationenVisual Basics Programmierung

Microsoft Access bietet kleinen Unt… Wie eine Access-Abfrage in VB ausführen . Der Zugang ist mit dem Microsoft Office Suite von Anwendun
Wie man eine Variable auf eine Date… Speichern einer Variablen in einer Datenbank mit Microsoft Visual Basic kann mit dem SQL Insert -Anw
Projekte Ideen Mit Visual Basic Die Programmiersprache Visual Basic bietet für Anfänger und erfahrene Programmierer die Möglichkeit,
VB Code Integer zu String Conversio… Microsofts Programmiersprache Visual Basic ist ein full-featured -Angebot mit einem leistungsstarken

Programming

HOME

* Computer Wissen >> Programming >> Visual Basics Programmierung >> .

Wie erstelle ich Pivot -Tabelle mit VBA

? Erstellen von Pivot-Tabellen in Excel mit Visual Basic für Applikationen (VBA) können Sie Zeit sparen aufgrund Ihrer nicht mit , um die Tabellen manuell erstellen. VBA ist eine Programmiersprache in Microsoft Office-Anwendungen verwendet, um Routineaufgaben wie das Erstellen einer Pivot-Tabelle zu automatisieren. Vergeuden Sie nicht Ihre Zeit mit der Erstellung von Pivot-Tabellen manuell, wenn Sie viele Blätter in Ihrer Arbeitsmappe haben , sondern eine Sub-Prozedur , um sie dynamisch zu erstellen . Things You
Microsoft Office Excel
brauchen anzeigen Weitere Anweisungen
1

Starten Sie Microsoft Office Excel und geben Sie " Kunde" in "A1 ", " Item" in "B1 , "und" Menge "in" C1 ". Type " Jon" in "A2 ", " Jon" in "A3 ", " Clara " in " A4 ", " Clara " in " A5 " und " Clara " in " A6 ". Type " Soda " in " B2 ", " Bier " in " B3 ", " Soda " in " B4 ", " Wasser " in " B5 " und " Bier " in " A6 ". Geben Sie " 2 " in " C2 ", "5" in "C3 ", " 10 " in " C4 ", " 12 " in " C5 " und " 15 " in " C6 ".
2 < p> Klicken Sie auf die Registerkarte "Entwicklertools" und klicken Sie auf " Visual Basic ", um den VB -Editor zu starten. Geben Sie den folgenden Code, um eine neue VBA Sub-Prozedur zu erstellen :

Private Sub createPivotTable ( )
3

Erstellen Sie die Variablen, die Sie verwenden, um die Pivot-Tabelle erstellen wird , indem die folgenden Code:

Dim pt Wie PivotTable

Dim wrkSht As Worksheet Dim

pvtSht As Worksheet Dim

PTCache Wie PivotCache

Dim Prange As Range Dim

finalRow As Long Dim

finalCol As Long
4

Definieren Sie die Arbeitsblätter , die Sie verwenden :

Set wrkSht = Worksheets ( " Tabelle1 " )

Set pvtSht = Worksheets ( " Tabelle2 " )
5

Bestimmen Sie die Zeile und Spalte Zählung mit Daten:

finalRow = wrkSht.Cells ( Application.Rows.Count , 1). End ( xlUp ) . Row

finalCol = wrkSht.Cells (1, Application.Columns.Count ) . End ( xlToLeft ) . Column
6

Definieren Sie den Bereich für Ihre Daten :

Set Prange = wrkSht.Cells (1, 1 ) Resize ( finalRow , finalCol )

Set PTCache = ActiveWorkbook.PivotCaches.Add ( SourceType . : = xlDatabase , SourceData : = Prange )
7

erstellen der Pivot-Tabelle in " Tabelle2 : "

Set pt = PTCache.createPivotTable ( TableDestination : = pvtSht.Cells (1, 1) , _

TableName : = " SamplePivot " )

pt.ManualUpdate = True
8

Definieren Sie die Quelldaten für die Pivot-Tabelle :

pt.AddFields RowFields : . . = Array ( "Item" )

pt.PivotFields ( " Anzahl " )

Ausrichtung = xlDataField

Funktion = xlSum

. Position = 1 End With

pt.ManualUpdate = False
9

Beenden Sie Ihre Sub durch Eingabe von " End Sub " in die Ende der Prozedur . Drücken Sie "F5" um die Prozedur auszuführen , und erstellen Sie die Pivot-Tabelle mit VBA .