Raj azt kérdezi:
Van egy Excel pivot tábla, amely 150 különböző értékkel van felállítva az oldalmezőben. Hogyan futtathatok makrót az egyes oldalak kinyomtatásához? Megpróbáltam rögzíteni a makrót, de ez keményen kódolja az egyes oldalak nevét, és néhány ilyen oldal hétről hétre nem biztos, hogy ott lesz.
A Visual Basic teszi ezt egy pillanatra. Ez a makró a következőket használja:
- A PageFields gyűjtemény megmondja az első oldal mező nevét a kimutató táblázatban.
- A PivotItems gyűjtemény az oldalmezőben található összes elem (oldal) listája.
- A CurrentPage tulajdonság lehetővé teszi annak megváltoztatását, hogy mely oldal jelenjen meg a kimutatási táblázatban.
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 SubA sapka csúcsa Rajnak, aki ezzel a célzással jelentett vissza. A fenti makró nem fog működni, ha a pivot táblázatot a Speciális alatt rendezi. Ennek kézi visszaállítása kijavítja a problémát.
jegyzet
Ez a tipp végigvezet minden oldalmezőt annak kinyomtatása érdekében. Ha 150 különböző munkalapot szeretne létrehozni, egy-egy oldalt az egyes mezők mezőértékeihez, használhatja az Oldalak megjelenítése funkciót.
