Hvordan oppretter jeg Pivot Tabell gjøre med VBA?

Hvordan oppretter jeg Pivot Tabell gjøre med VBA?


Opprette pivottabeller i Excel ved hjelp av Visual Basic for Applications (VBA) kan spare deg for tid på grunn av din ikke trenger å opprette tabellene manuelt. VBA er et programmeringsspråk som brukes i Microsoft Office-programmer for å automatisere rutineoppgaver som å lage en pivottabell. Ikke tilbringe tid på å lage pivottabeller manuelt hvis du har mange ark i arbeidsboken; i stedet opprette en under prosedyre for å lage dem dynamisk.

Bruksanvisning

1 Start Microsoft Office Excel og skriv "kunde" i "A1", "Item" i "B1" og "Antall" in "C1". Type "Jon" i "A2", "Jon" i "A3", "Clara" i "A4", "Clara" in "A5" og "Clara" in "A6». Type "soda" in "B2", "øl" i "B3", "soda" in "B4", "vann" i "B5" og "øl" i "A6». Type "2" i "C2", "5" i "C3", "10" i "C4", "12" i "C5" og "15" i "C6".

2 Klikk på "Utvikler" og klikk "Visual Basic" for å starte VB Editor. Skriv inn følgende kode for å opprette en ny VBA sub prosedyre:

Private Sub createPivotTable ()

3 Lag variablene du vil bruke til å opprette pivottabellen ved å legge til følgende kode:

Dim pt As PivotTable

Dim wrkSht Som regneark

Dim pvtSht Som regneark

Dim PTCache Som PivotCache

Dim Prange As Range

Dim finalRow As Long

Dim finalCol As Long

4 Definer regnearkene du vil bruke:

Set wrkSht = Worksheets("Sheet1")

Sett pvtSht = Regneark ( "Ark2")

5 Bestem rad og kolonne teller med data:

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

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

6 Definer for dine data:

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

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

7 Lag pivot tabell i "Ark2:"

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

Tabellnavn: = "SamplePivot")

pt.ManualUpdate = True

8 Definer kildedataene for Pivot tabell:

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

Med pt.PivotFields ( "Antall")

.Orientation = XlDataField

.Function = XlSum

.Position = 1

End With

pt.ManualUpdate = False

9 Avslutt sub ved å skrive "End Sub" i slutten av prosedyren. Trykk "F5" for å kjøre prosedyren og opprette pivottabell ved hjelp av VBA.