MS Excel

Zdravím,

můžete mi prosím pomoci s kódem, který bude určovat filtr v kontingenční tabulce. Podoba filtru kontingenční tabulky je v příloze a potřebuji kód, když je např. v buňce A1 od datumu: 12.4.2013 do datumu v buňce B1: 7.5.2013 zakřížkuje všchny hodnoty ve filtru. Nahrál jsem si makro, ale když jsem zkoušel úpravy, tak jsem se výsledku nedobral.

Díky,

With ActiveSheet.PivotTables("Kontingenční tabulka 1").PivotFields("[CONTACT_WHEN]")
.CubeField.EnableMultiplePageItems = True
.AddPageItem "[CONTACT_WHEN].[Vše].[2013].[duben].[12]", True
.AddPageItem "[CONTACT_WHEN].[Vše].[2013].[duben].[15]"
.AddPageItem "[CONTACT_WHEN].[Vše].[2013].[duben].[16]"
.AddPageItem "[CONTACT_WHEN].[Vše].[2013].[duben].[17]"
.AddPageItem "[CONTACT_WHEN].[Vše].[2013].[květen].[2]"
End With
End Sub

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

eLCHa(15.5.2013 6:18)#013321

Možná jsem to špatněpochopil, ale není to tohle?

http://wall.cz/excel-navod/hromadne-skryvani-polozek-v-kontingencni-tabulce citovat

Cast(15.5.2013 8:17)#013322

zdravím, dobry tip,ale ne pro tuto tabulku. Zkoušel jsem něco podobneho,ale tabulka to nebere,protože zdrojem dat je datova krychle a ta format datumu vyplivne do kont.tabulky jinak. Viz. Ma priloha v prispevku. Pardon za format odpovedi,pisu z mobilu.citovat

eLCHa(15.5.2013 8:51)#013323

V tom případě tady vložte nějakou funkční přílohu, na které vám to odladíme, protože takto bychom si museli vytvářet vlastní soubor...citovat

Cast(16.5.2013 21:47)#013335

Vkládám přílohu. Po rozbalení a otevření Excelu to vyhodí chybu kvůli změně umístění oproti mému PC. Po připojení datové krychle se bude načítat vzor dat.

Příloha: rar

13335_vzor.rar (7kB, staženo 24x)

citovat

eLCHa(17.5.2013 7:31)#013338

Vyzkoušejte následující kód

Sub subPivotTableSelectItems()
Dim iFrom As Long, iTo As Long
iFrom = Range("D1").Value
iTo = Range("D2").Value

With ActiveSheet.PivotTables("Kontingenční tabulka 2").PivotFields("[Datum]")
.CubeField.EnableMultiplePageItems = True

Dim I As Long
For I = iFrom To iTo
.AddPageItem "[Datum].[Vše].[" & Format(I, "yyyy\].\[mmmm\].\[d\]"), I = iFrom
Next I
End With 'ActiveSheet.PivotTables("Kontingenční tabulka 2").PivotFields("[Datum]")
End Subcitovat

Cast(17.5.2013 15:16)#013339

Format buňky mám 17.5.2013 a vyhazuje mi to na řádku .AddPage... chybu Run time 424. Napadá Vás kde je chyba?
Doplnění: Chyba vyskakuje jen v Excelu 2003.citovat

eLCHa(17.5.2013 20:10)#013345

Na formátu buňky nezáleží.
Zápis
"[Datum].[Vše].[" & Format(I, "yyyy\].\[mmmm\].\[d\]"), I = iFrom
je ekvivalent k
"[CONTACT_WHEN].[Vše].[2013].[duben].[12]", True

Verzi 2003 tady nemám, takže až v pondělí...citovat

eLCHa(19.5.2013 12:49)#013358

Vložte do ikna Immediate následující příkaz a stiskněte ENTER
?Format(date, "yyyy\].\[mmmm\].\[d\]")
Paxem vložte výsledek.citovat

Cast(19.5.2013 13:28)#013360

Výsledek je: "2013].[květen].[19]"

Po reinstalaci Office funguje v pořádku. Děkuji za pomoc. Vlákno lze uzavřít.citovat

Téma: Datum filtr - Kontingenční tabulka Excelu 2003

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje