< návrat zpět
MS Excel
Téma: Makro pro výběr filtrů
Zaslal/a Jimmy 8.11.2011 16:49
Ahoj,
mám tu jednu věc s kterou se trápím už týden a tak žádám všechny o pomoc.
mám list na kterém je 30 kontingenčních tabulek všechny tabulky mají stejnou strukturu jen v datové části jsou jiné hodnoty.
Co potřebuji je, abych u filtru "týden", které je uvedeno jako číslo týden, nemusel překlikávat a přidávat nový týden. Potřeboval bych toto zautomatizovat tak, že bych v buňce (jedno kde) zadal číslo týdne a po spuštění makra se mi u všech kont. tabulek změnilo číslo týdne.
Zkoušel jsem toto záznamem makra si makro zobrazit a změnit ho, ale nedaří se mi proniknout do struktury. Předem díky všem za pomoc.
Lano(8.11.2011 21:24)#006405 Nevím, jestli rozumím.
Bez makra se to provede prostým přesunutím Týdne do stránkového pole KT. Ale přesto jsem na to nahrál makro. Viz přiložený soubor.
Je to ono?
Příloha: 6405_filtr_kt.zip (13kB, staženo 19x) citovat
RomanNTA(8.11.2011 21:35)#006406 Pokud jich bude 30, pak by se Ti hodilo třeba ...
Sub aktualizace_30ti_tabulek()
Dim obj
For Each obj In ActiveSheet.PivotTables
With obj.PivotFields("Týden")
.ClearAllFilters
.CurrentPage = CLng(Range("A1").Value)
End With
' obj.PivotCache.Refresh
Debug.Print obj.Name
Next obj
End Sub
citovat
Lano(8.11.2011 21:46)#006407 Jo, tohle jsem chtěl následně poradit. Ale takhle profesionálně to neumím. Makra nejsou má silná stránka. Líbí se mi to. A uložím si to pro případ své potřeby
To se bude hodit.
citovat
AL(8.11.2011 22:31)#006408 Lano: Zarazilo ma práve to, že si zmienil, že to ide bez makra - reakcia na: "Pak není třeba makro, ale stačí pravým klikem na KT zvolit Obnovit(Aktualizovat)
". Asi som to špatne pochopil, nakoľko výber týždňa v stránkovom poli riešiš makrom. Zabudni na to
citovat
Lano(9.11.2011 7:20)#006410 Pro Al: Nabyl jsem dojmu, že prvotní problém od Jimmy byl rozšíření oblasti dat KT, aby zahrnovala nové Týdny. To jde bez makra. Zbytek samozřejmě ne.
Ale líbí se mi, že vlákno založil Jimmy, ale na konci z toho jaksi vypadl...
citovat