MS Excel

Zdravím, mám dotaz ohledně kontingenční tabulky, konkrétně ohledně filtru pole.

Jde o to, že v rámci vývoje tabulky, resp. zdrojových dat, došlo ke spoustě přejmenování názvů, které právě potřebuji filtrovat. Problém je, že se tam zobrazují jak nové názvy, tak i ty staré, neaktuální, které mají nulové hodnoty (a vůbec nikde se nevyskytují, ten filtr si je tedy asi pamatuje?). Například na prvním přiloženém obrázku - původně byly Náklady celkem (0601-0606), poté se to přejmenovalo na Náklady celkem (0601-0607) a teď aktuální jsou Náklady celkem (0601-0608).

Nebo jak je vidět u kódu 609 - původně to byly režie centrála, pak jen režie a teď aktuálně jsou to Auta.

Při větším množství těchto názvů může být matoucí který je ten aktuální, proto to řeším...

Prosím o radu jak se toho zbavit, samotná aktualizace KT nefunguje, to už jsem zkoušela.

AL(10.11.2017 18:46)#038321

Skús odcheckovat (zrušiť fajku) v položke Display item labels when no fields are in the values area, viď obr.

edit: Je možné, že hore navrhnuté sa ti nepodarí a ani si nie som istý, že to bude fungovať na 100%.

Fungovať by mohlo nasledujúce:
1. Z KT odstráň príslušný popisok riadku, v ktorom to blbne (pole, kde sa nachádzajú tie položky z obrázku)
2. Refreshni tabuľku
3. Popisky riadkov vráť späť do KT

Příloha: png

38321_pic.png (24kB, staženo 83x)

citovat

elninoslov(13.11.2017 12:00)#038342

Skúste to čo som postoval tu, teda:
Nastaviť v Možnostiach KT na karte Údaje voľbu "Počet zachovaných položiek v jednom poli" na "Žiadne" a Refresh + Uložiť. Potom skúste nastaviť na Automaticky, a zase Refresh.citovat

ivet_p(14.11.2017 9:09)#038352

Zdravím, děkuji moc za reakce.

Funguje oboje, jak 1) odstranění příslušného pole + refresh + vrácení pole + označení položek, co chci vidět, tak i 2) v možnostech KT na kartě data zvolit počet zachovaných položek na pole - žádné (znovu nedávám automaticky).

Lepší je asi druhá varianta, kdy nemusím přemýšlet co jsem měla označené.citovat

AL(14.11.2017 10:20)#038353

Návod od elninoslov je rozhodne lepší, súhlasím. Akurát som si nedokázal na korektný postup spomenúť.citovat

admin(14.11.2017 13:29)#038356

Ahoj.
To se mi děje docela často. Zkusil jsem si udělat nástroj na opravu.

Private Sub CommandButton5_Click()
'Vymazat neexistující hodnoty vybraného pole (všech polí)
Dim pvtTable As PivotTable
Dim pvtField As PivotField
Dim pvtItem As PivotItem

On Error Resume Next
Application.ScreenUpdating = False
Set pvtTable = ActiveSheet.PivotTables(Me.lbPivotTable.Value)

For Each pvtField In pvtTable.PivotFields
For Each pvtItem In pvtField.PivotItems
pvtItem.Delete
Next
Next

pvtTable.RefreshTable
Application.ScreenUpdating = True

End Sub

Příloha: png