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:

Komentáře rss

Přidat komentář >

, Výběr odpovědět
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 odpověděl(a)
admin
Dobrý den.
Stačí v makru upravit podmínku IF.citovat
, Chyba odpovědět
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 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

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje