? Oprettelse pivottabeller i Excel ved hjælp af Visual Basic for Applications ( VBA ) kan du spare tid på grund af din ikke at skulle oprette tabellerne manuelt. VBA er et edb-programmering sprog, der anvendes i Microsoft Office-programmer til at automatisere rutineopgaver såsom at oprette en pivottabel . Må ikke bruge din tid på at skabe pivottabeller manuelt, hvis du har mange ark i din projektmappe , i stedet skabe en sub procedure for at oprette dem dynamisk. Ting du skal
Microsoft Office Excel
Vis Flere Instruktioner
1

Launch Microsoft Office Excel og skriv "Customer " i " A1 ", "Produkt" i " B1 , "og" Antal "i" C1 ". Type " Jon " i " A2 ", " Jon " i " A3 ", " Clara " i " A4 ", " Clara " i " A5 " og " Clara " i " A6 ". Type " soda " i " B2 ", " øl " i " B3 ", " sodavand " i " B4 ", " vand " i " B5 " og " beer " i " A6 ". Type " 2 " i " C2 ", "5 " i " C3 ", " 10 " i " C4 ", " 12 " i " C5 " og " 15 " i " C6 ".
2 < p> Klik på " Udvikler " fanen og klik på " Visual Basic " for at starte VB Editor. Indtast følgende kode til at oprette en ny VBA sub procedure : Hej

Private Sub createPivotTable ()
3

Opret de variabler, du vil bruge til at oprette pivottabellen ved at tilføje følgende kode : Hej

Dim pt Som pivottabel

Dim wrkSht Som Regneark

Dim pvtSht Som Regneark

Dim PTCache Som PivotCache

Dim PRANGE Som Range

Dim finalRow As Long

Dim finalCol As Long
4

Definer de regneark , du vil bruge : Hej

Set wrkSht = regneark ( " Ark1 " )

Set pvtSht = regneark ( " Ark2 " )
5

Bestem række og kolonne tæller med data:

finalRow = wrkSht.Cells ( Application.Rows.Count , 1). End ( xlUp ) . Række

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

Definer intervallet for dine data : Hej

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

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

Opret pivottabellen i " Ark2 : "

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

TableName : = " SamplePivot " )

pt.ManualUpdate = Sand
8

Definer kildedata til Pivot-tabel : Hej

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

pt.PivotFields ( " Antal " )

Orientation = xlDataField

Function = xlSum

. Position = 1

End With

pt.ManualUpdate = False
9

Afslut din sub ved at skrive " End Sub " i slutningen af ​​din procedure. Tryk på " F5 " for at køre proceduren og skabe pivottabellen ved hjælp af VBA .