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.