Microsoft Excel er et regnearksprogram . Et element i dette program er, at du kan bruge sine regneark til at gemme data på samme måde som den måde, du ville i en database og derefter reference det i dynamiske grafiske skærme . Der findes to typer af skærme , du kan bruge: pivottabeller og pivotdiagrammer . Pivottabeller kan bruges til at sortere , filtrere og opsummere dine data. Den eneste måde at ændre den datakilde anvendes af en pivottabel , når den er skabt gennem guiden er at opdatere det fra VBA-kode i baggrunden. Instruktioner
1

Opret en pivottabel objekt i VBA , så du kan opdatere kilden. Kopier koden herunder og sætte det i din makro eller funktion.

Dim ptMyPivotTable Som pivottabel
2

Tilslut din pivottabel objekt med din faktiske Pivot Table . Kopier koden herunder .

Set ptMyPivotTable = ActiveSheet.PivotTables (1)
3

Opdater SourceData ejendom pivottabellen objekt til de nye værdier. Du kan gøre dette ved at kopiere VBA forudsat kode. Stedfortræder ønskede dataområdet i stedet for "A1" i eksemplet.

PtMyPivotTable.SourceData = Range (" A1" ) . CurrentRegion.Address ( sandt, sandt , xlR1C1 , sand)

referere til et interval på et andet ark , kan du bruge følgende kode .

ptMyPivotTable.SourceData = Sheets ( " mySheetName "). [ A1 ] . CurrentRegion.Address ( sandt, sandt , xlR1C1 , sand) < br >
4

opdatere data faktisk vises i din pivottabel ved hjælp af VBA kommandoen nedenfor .

ptMyPivotTable.RefreshTable
5

Udgivelse de ressourcer , du brugte i pivottabellen objekt ved at sætte den lig Nothing.

Set ptMyPivotTable = Nothing