< návrat zpět

MS Excel


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

Zaslal/a 14.5.2013 19:36

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

Příloha: jpg13314_image.jpg (28kB, staženo 32x)
13314_image.jpg
stop Uzamčeno - nelze přidávat nové příspěvky.

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

http://wall.cz/excel-navod/hromadne-skryvani-polozek-v-kontingencni-tabulcecitovat
#013322
avatar
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
icon #013323
eLCHa
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
#013335
avatar
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: rar13335_vzor.rar (7kB, staženo 21x)
citovat
icon #013338
eLCHa
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 Sub
citovat
#013339
avatar
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
icon #013345
eLCHa
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
icon #013358
eLCHa
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
#013360
avatar
Výsledek je: "2013].[květen].[19]"

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

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse