Microsoft Excel er et regnearkprogram . Et trekk ved dette programmet er at du kan bruke sine regneark for å lagre data på samme måte til måten du ville gjort i en database , og deretter referere til den på dynamiske grafiske skjermer . Det finnes to typer skjermer du kan bruke: pivottabeller og pivotdiagrammer . Pivottabeller kan brukes til å sortere , filtrere og oppsummere data . Den eneste måten å endre datakilden som brukes av en pivottabell når det har blitt skapt gjennom veiviseren er å oppdatere den fra VBA-kode i bakgrunnen . Instruksjoner
en

Lag en pivottabell objekt i VBA , slik at du kan oppdatere kilden. Kopier koden under og legg den i din makro eller funksjon.

Dim ptMyPivotTable Som pivottabell
2

Koble pivottabell objektet med det faktiske Pivot Table. Kopier koden under .

Sett ptMyPivotTable = ActiveSheet.PivotTables ( 1 )
3

Oppdater SourceData eiendommen om din pivottabell objektet til de nye verdiene . Du kan gjøre dette ved å kopiere VBA-kode gitt. Erstatte din ønskede dataområdet i stedet for "A1" i eksempelet.

PtMyPivotTable.SourceData = Range (" A1 ") . CurrentRegion.Address (Sann , Sann, xlR1C1 , sann)

å referere til en hold et annet ark , kan du bruke følgende kode .

ptMyPivotTable.SourceData = Sheets ( " mySheetName ") . [ A1 ] . CurrentRegion.Address (sann , Sann, xlR1C1 , sann)

4

Oppdater dataene faktisk vises i din Pivot tabell ved hjelp av VBA -kommandoen nedenfor .

ptMyPivotTable.RefreshTable
5

Slipp de ressursene du har brukt i din pivottabell objekt ved å sette den lik Nothing.

Set ptMyPivotTable = Ingenting