Microsoft Excel är ett kalkylprogram . Ett inslag i detta program är att du kan använda sina kalkylblad för att lagra data på liknande sätt som du skulle i en databas och sedan referera till den i dynamiska grafiska displayer . Det finns två typer av skärmar som du kan använda : pivottabeller och pivotdiagram . Pivottabeller kan användas för att sortera , filtrera och sammanfatta data . Det enda sättet att ändra datakälla som används av en pivottabell när den har skapats genom guiden är att uppdatera den från VBA-kod i bakgrunden . Instruktioner
1
Skapa en pivottabell i VBA så att du kan uppdatera källan . Kopiera koden nedan och lägg den i ditt makro eller funktion .
Dim ptMyPivotTable Som pivottabell
2
Anslut din pivottabell objekt med din faktiska Pivot tabell . Kopiera koden nedan .
Set ptMyPivotTable = ActiveSheet.PivotTables ( 1 ) Addera 3
Uppdatera SourceData egenskapen pivottabellen objekt till de nya värdena . Du kan göra detta genom att kopiera VBA-koden tillhandahålls . Ersätta ditt önskade dataområdet i stället för " A1 " i exemplet .
PtMyPivotTable.SourceData = Range ( " A1 " ) . CurrentRegion.Address ( Sant , sant xlR1C1 , Sant ) katalog
att referera till en rad på ett annat blad , kan du använda följande kod .
ptMyPivotTable.SourceData = Sheets ( " mySheetName " ) . [ A1 ] . CurrentRegion.Address ( Sant , sant xlR1C1 , sant)
4
Uppdatera data som faktiskt visas i din pivottabell genom att använda VBA -kommandot nedan .
ptMyPivotTable.RefreshTable
5
Släpp de resurser du använt i pivottabellen genom att ställa det lika med ingenting .
Set ptMyPivotTable = Nothing
