Lancering Microsoft Office Excel en typ " Klant" in " A1 ", " Item" in " B1 , " en " Aantal "in" C1 ". Type " Jon " in " A2 ", " Jon " in " A3 ", " Clara " in " A4 ", " Clara " in " A5 " en " Clara " in " A6 ". Type " soda " in " B2 ", " bier " in " B3 ", " soda " in " B4 ", "water " in " B5 " en "beer " in " A6 ". Type " 2 " in " C2 ", " 5 " in " C3 ", " 10 " in " C4 ", " 12 " in " C5 " en " 15 " in " C6 . ' Kopen van 2

Klik op het tabblad " Developer " en klik op " Visual Basic " om de VB -editor te starten . Typ de volgende code om een nieuwe VBA- sub procedure te creëren :

Private Sub createPivotTable
( )
3

Maak de variabelen die je zal gebruiken om de draaitabel te maken door het toevoegen van de volgende code :

Dim pt
als draaitabellen

Dim wrkSht
als Aantekenvel

Dim pvtSht
als Aantekenvel

Dim PTCache
Zoals PivotCache

Dim Prange als Waaier

Dim finalRow
zoals lang

Dim finalCol
As Long
4

Definieer de werkbladen die je gebruikt:

Stel wrkSht = werkbladen ( " Blad1 " )

Set pvtSht = Worksheets
( " Blad2 " )
5

Bepaal de rij en kolom tellen met data :

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

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

Definieer het bereik voor uw gegevens :

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

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

Maak de draaitabel in " Blad2 : "

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

TableName
: = " SamplePivot " )

pt.ManualUpdate = True
8

de brongegevens voor de draaitabel Define :

pt.AddFields RowFields : . . = Array ( " Item" ) op p Met pt.PivotFields ( " Aantal " ) op Twitter

Orientation = xlDataField

Function = xlSum

. Positie
= 1

Einde
met

pt.ManualUpdate = False
9

Eindig je sub door het intikken van " End Sub " in de einde van uw procedure . Druk op " F5 " om de procedure te lopen en maak de draaitabel met VBA .