Hvordan lage en pivottabell bruk av Excel VBA

Pivottabeller er en av Microsoft Excel mest kraftige funksjoner. De lar deg oppsummere, sortere og manipulere store, komplekse datasett på en måte som gjør dem mye lettere å analysere. Hvis du finner deg selv å skape et stort antall pivottabeller eller lage dem ofte, kan du være i stand til å spare tid ved å skrive en Visual Basic for Applications skript som kan lage dem automatisk.

Bruksanvisning

1 Opprett et nytt Excel-regneark. Hvis du bruker Microsoft Excel 2007 eller senere, gå til "View" -fanen på båndet, og klikk "makroer;" Hvis du bruker en tidligere versjon av Excel, klikker du på "Verktøy" -menyen, gå til "Macro" og klikk "makroer". Dette vil få opp dialogboksen Makro.

2 Skriv inn en ny makro navn og klikk "Opprett". Du bør se Visual Basic for Applications redaktør vises med en ny subrutine som bærer navnet du valgte.

3 Legg kode for å hente en referanse til regnearket:

Set regneark = ThisWorkbook.Worksheets (1)

Hvis dataene ikke er på det første regnearket i arbeidsboken, endre tallet over fra 1 til indeksen i regnearket som inneholder dataene.

4 Bestemme omfanget av de data som skal anvendes i pivot tabell:

Set range = worksheet.UsedRange

5 Opprett pivottabell objekt:

worksheet.PivotTableWizard (SourceType: = xlDatabase, SourceData: = range, TableDestination: = worksheet.Range ( "B5"))