Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Vytvorte kontingenčnej objekt v jazyku VBA , takže môžete aktualizovať zdroj . Skopírujte nižšie uvedený kód a vložte ho do makra alebo funkcie .
Dim ptMyPivotTable ako kontingenčné
2
Pripojte kontingenčnej objekt s aktuálne kontingenčnej tabuľky . Skopírujte nižšie uvedený kód . ClipArt
Set ptMyPivotTable = ActiveSheet.PivotTables ( 1 )
3
Aktualizovať vlastnosť sourced vašej kontingenčnej tabuľky objektu na nové hodnoty . Môžete to urobiť skopírovaním kódu VBA k dispozícii . Nahraďte Váš požadovaný rozsah dát v mieste " A1 " v príklade .
PtMyPivotTable.SourceData = Range ( " A1 " ) . CurrentRegion.Address ( Pravda , pravda , xlR1C1 , pravda )
Ak chcete odkazovať rozsah na inom liste , môžete použiť nasledujúci kód .
ptMyPivotTable.SourceData = Sheets ( " mySheetName " ) . [ A1 ] . CurrentRegion.Address ( PRAVDA , xlR1C1 , true )
Stránka 4
Aktualizovať údaje skutočne zobrazené v kontingenčnej tabuľke pomocou príkazu VBA nižšie .
ptMyPivotTable.RefreshTable
5
Uvoľnite prostriedky použité v váš objekt kontingenčnej tabuľky nastavením je rovné Nothing .
Set ptMyPivotTable = Nothing
Copyright © počítačové znalosti Všetky práva vyhradené