Automatická aktualizace zdroje dat kontingenční tabulky Je super, značně mi to ulehčilo práci. Trochu jsem vylepšila, namísto maximálního počtu řádků dám funkci COUNTBLANK pro sloupec, o kterém vím, že neobsahuje data: =NEPŘÍMÝ.ODKAZ("Data!$A1:$H"&(countblank(Data!$AA:$AA)-COUNTBLANK(Data!$A:$A))) Anna
Děkuji autorovi za článek a dovolím si jej doplnit pro Excel 2007 1. Pojmenovat oblast vstupních dat na listu s prvotními daty, ze kterých se má tvořit KT (zde se jmenuje DATA) v menu na záložcd VZORCE, tlačítko DEFINOVAT NÁZEV zadat název zdrojové oblasti (zde použito ZDROJ), pro celý SEŠIT Do pole ODKAZ vložit vzorec =NEPŘÍMÝ.ODKAZ("Data!$A1:$H"&65537-COUNTBLANK(Data!$A:$A)) (nebo jinou oblast, ve které máme data) (v menu na kartě DATA je i tlačítko SPRÁVCE NÁZVU pro případnou změnu jména) 2a. vytvoření nové KT - spustit Průvodce kontingeční tabulkou a grafem, první volba "Seznam ... Excel" - oblast dat zadat data!zdroj (dle jména, které jsme vytvořili - jméno ZDROJ na listu DATA) 2b. hotovou KT upravit tak, aby brala data z pojmenované oblasti - kurzor umístit do oblasti KT a vybrat z menu MOŽNOSTI, ZMĚNIT ZDROJ DAT - zadat nový zdroj dat = pojmenovanou oblast data!zdroj 3. auto-aktualizace KT pomocí VBA - v editoru maker (alt+F11) rozbalit VBAproject, Microsoft Excel Object, 2x klik na list s vaší KT - do okna vložit kód VBA Private Sub Worksheet_Activate() ActiveSheet.PivotTables("Kontingenční tabulka 2").PivotCache.Refresh End Sub - číslo, které uvedete za text "Kontingenční tabulka " najdete ve své KT: klikněte do oblasti KT, menu MOŽNOSTI, v menu nahoře vidíte název své tabulky s hledaným číslem Podrobněji (s obrázky) ve fóru zde http://wall.cz/index.php?m=topic&id=829 nebo přímo v souboru zde http://wall.cz/upload/postatt/kt.zip
