Vytlačte všetky hodnoty na stránke - Excel Tipy

Obsah

Raj sa pýta:

V poli stránky mám nastavenú kontingenčnú tabuľku programu Excel so 150 rôznymi hodnotami. Ako môžem spustiť makro na vytlačenie každej jednotlivej stránky? Skúšal som zaznamenať makro, ale pevne to kóduje názov každej stránky a niektoré z týchto stránok tam nemusia byť každý týždeň.

Vďaka Visual Basic je to hračka. Toto makro používa nasledovné:

  • PageFields kolekcia vám povie meno prvého stranového poľa v kontingenčnej tabuľke.
  • PivotItems kolekcia je uvedený zoznam všetkých položiek (strany) v oblasti stránky.
  • Vlastnosť CurrentPage umožňuje zmeniť, ktorá stránka sa zobrazí v kontingenčnej tabuľke.
Sub PrintAll() ' Find name of page field PageField1 = ActiveSheet.PivotTables("PivotTable1").PageFields(1) ' Save the name of the page field displayed when macro begins OrigPage = ActiveSheet.PivotTables("PivotTable1").PivotFields(PageField1).CurrentPage ' Determine how many pages there are in page field NumPages = ActiveSheet.PivotTables("PivotTable1").PivotFields(PageField1).PivotItems.Count For i = 1 To NumPages ThisPage = ActiveSheet.PivotTables("PivotTable1").PivotFields(PageField1).PivotItems(i) ActiveSheet.PivotTables("PivotTable1").PivotFields(PageField1).CurrentPage = ThisPage ActiveWindow.SelectedSheets.PrintOut Next i ' Print the (all) page ActiveSheet.PivotTables("PivotTable1").PivotFields(PageField1).CurrentPage = "(all)" ActiveWindow.SelectedSheets.PrintOut ' Restore view back to original page ActiveSheet.PivotTables("PivotTable1").PivotFields(PageField1).CurrentPage = OrigPage End Sub

Špička čepice Rajovi, ktorý sa o tejto správe zmienil. Vyššie uvedené makro nebude fungovať, ak máte svoju kontingenčnú tabuľku zoradenú pod položkou Rozšírené. Obnovením tohto manuálneho nastavenia sa problém vyrieši.

Poznámka

Tento tip bude prechádzať každým poľom stránky, aby ich mohol vytlačiť. Ak chcete vygenerovať zošit so 150 rôznymi pracovnými hárkami, jedným pre každú hodnotu poľa stránky, môžete použiť funkciu Zobraziť stránky.

Zaujímavé články...