Nacházíte se: WALL.czExcel návod › Hromadné skrývání položek v kontingenční tabulce
Kategorie: Excel návod

Hromadné skrývání položek v kontingenční tabulce

ExcelPokud potřebujete v kontingenční tabulce skrýt velké množství položek (PivotItem), bude se vám hodit tento tip. Pro demonstraci použiji denní plán pro celý rok a v kontingenční tabulce chci zobrazit jen plány od určitého data. V praxi by to znamenalo skrýt například 150 položek (dní).

Tento tip je pro pokročilé uživatele, kteří mají zkušenosti s VBA a zpracováním kontingenčních tabulek. V případě, že se chcete/potřebujete seznámit s tvorbou kontingenčních tabulek, můžete vyzkoušet některý související článek.

Zpět k příkladu. V poli Datum jsou všechny dny z kalendářního roku a pokud by jste potřebovali skrýt data od ledna až po květen, asi by se nikomu moc nechtělo odškrtávat cca 150 položek.

Hromadné skrývání položek v kontingenční tabulce

Popis řešení.

V ukázkovém souboru na listu s kontingenční tabulkou jsem definoval název Datum s odkazem na buňku N2. Do této buňky vložíme datum, od kterého chceme položky zobrazit. V makru bude datum z buňky Datum předáno proměnné mDate. V cyklu, který prochází všechny položky (PivotItems - Datum je v proměnné iDate) nastaví vlastnost Visible = True (zobrazí) u všech, které splní podmínku mDate >= iDate. Pokud podmínka nebude splněna, bude nastavena vlastnost položky Datum na Visible = False (skryje).

Sub ShowDate() Dim pvtTable As PivotTable Dim pvtitem As PivotItem Dim Datum As Date, iDate As Date Datum = Range("Datum") Set pvtTable = ActiveSheet.PivotTables("Kontingenční tabulka 1") For Each pvtitem In pvtTable.PivotFields("Datum").PivotItems iDate = CDate(pvtitem.Value) If Datum >= iDate Then pvtitem.Visible = False Next End Sub

Obslužné makro vám zajistí nastavení položek řádově v sekundách. V makru si můžete změnit podmínku, PivotFields a tím ho přizpůsobit vašim potřebám. Vzorovou tabulku i s makrem si můžete prohlédnout v souboru Nejste přihlášen(a).

print Formát pro tisk

Sdílet článek:


QR kód s odkazem na článek "Hromadné skrývání položek v kontingenční tabulce"

Pokud máte ve svém mobilu nainstalovanou čtečku QR kódů, načtením tohoto kódu přenesete článek do prohlížeče svého mobilního telefenu.
QR kód s odkazem na článek



Komentáře jsou automaticky uzavřeny 730 dnů po vydání článku.

Komentáře rss

stop Uzamčeno - nelze přidávat nové příspěvky.

icon, Výběr
avatar
Ahoj,a jak docílit toho,abych vybral např. pouze 3 konkrétní datumy, nebo ve stránkovém poli(Plodina) pouze Hrušky a Jablka? Díky.citovat
icon icon odpověděl(a)
admin
Dobrý den.
Stačí v makru upravit podmínku IF.citovat
icon, Chyba
avatar
Zdravím,
po kliknutí na tlačítko to hlásí chybu: Není možné nastavit vlastnost Visible třídy PivotItem. Poradíte?citovat
icon icon odpověděl(a)
admin
Zadal jste neplatné datum. Datum musí být v rozsahu, který je uveden v kontingenční tabulce.citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Novinky

Formulář Faktura III

Oblíbený formulář Faktura byl vylepšen a rozšířen. Formulář faktura III
Více se dočtete zde.

Aktivní diskuse

Tvorba vzoru pro následující stránky

eLCHa • 24.11. 20:35

Kopírování dat z tabulek pomocí makra

Hav-Ran • 24.11. 18:17

Tvorba vzoru pro následující stránky

lubo • 24.11. 17:33

Kopírování dat z tabulek pomocí makra

Marekkoc • 24.11. 17:17

Tvorba vzoru pro následující stránky

Testament • 24.11. 16:51

náhodná čísla

Tano • 24.11. 16:43

Automatick doplňování

veny • 24.11. 16:16