? Opprette pivot tabeller i Excel ved hjelp av Visual Basic for Applications ( VBA ) kan du spare tid på grunn av din ikke trenger å lage tabellene manuelt . VBA er et programmeringsspråk som brukes i Microsoft Office-programmer for å automatisere rutineoppgaver som å lage en pivot tabell . Ikke bruke tid på å lage pivot tabeller manuelt hvis du har mange ark i arbeidsboken , i stedet lage en sub prosedyre for å opprette dem dynamisk. Du trenger
Microsoft Office Excel
Vis flere instruksjoner
en

Launch Microsoft Office Excel og skriv " Kunden" in " A1 ", " Item" i " B1 , "og" Antall "in" C1 ". Type " Jon" in " A2 ", " Jon" i " A3 ", " Clara " i "A4 ", " Clara " i " A5 , " og " Clara " i " A6 ". Type " brus " i " B2 ", "øl " i " B3 ", " brus " i " B4 ", "vann" i " B5 " og "øl " i " A6 ". Type " 2" i " K2 ", " 5" i " C3 ", " 10 " in " C4 ", " 12" in " C5 , " og " 15 " in " C6 ".
2 < p> Klikk på " Developer " og klikk " Visual Basic " for å starte VB Editor. Skriv inn følgende kode for å opprette en ny VBA delprosedyre : en

Private Sub createPivotTable ( )
3

Lag variablene du vil bruke til å lage pivot tabellen ved å legge til følgende kode :

Dim pt Som pivottabell

Dim wrkSht Som regneark

Dim pvtSht Som regneark

Dim PTCache Som PivotCache

Dim Prange Som Range

Dim finalRow Som Long

Dim finalCol Som Long
4

Definer regnearkene du vil bruke : en

Sett wrkSht = regneark ( " Ark1 ")

Set pvtSht = Regneark ( " Ark2 ")
5

Bestem rad og kolonne telle med data:

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

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

Definer verdiområdet for dine data : en

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 ) , _

tablename : = " SamplePivot " )

pt.ManualUpdate = sant
8

Definer kildedataene for Pivot tabell:

pt.AddFields RowFields : . . = Array ( " Item" )
p Med pt.PivotFields ( " Antall ")

Orientering = xlDataField

Function = xlSum

. Position = 1

End With

pt.ManualUpdate = False
9

Fullfør din ubåt ved å skrive "End sub ​​" i slutten av prosedyren. Trykk "F5 " for å kjøre prosedyren og opprette pivot tabell ved hjelp av VBA .