Radžis klausia:
Turiu „Excel“ suvestinę lentelę su 150 skirtingų reikšmių puslapio lauke. Kaip galiu paleisti makrokomandą kiekvienam atskiram puslapiui spausdinti? Bandžiau įrašyti makrokomandą, tačiau ji sunkiai koduoja kiekvieno puslapio pavadinimą, o kai kurių iš tų puslapių gali nebūti kiekvieną savaitę.
„Visual Basic“ leidžia tai padaryti greitai. Šioje makrokomandoje naudojami šie elementai:
- „ PageFields“ kolekcija pasakys pirmojo puslapio lauko pavadinimą suvestinėje lentelėje.
- „ PivotItems“ kolekcija yra visų puslapio lauke esančių elementų (puslapių) sąrašas.
- Ypatybė „ CurrentPage“ leidžia pakeisti, kuris puslapis rodomas suvestinėje lentelėje.
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 SubDangtelio viršūnė Rajui, pranešusiam apie šią užuominą. Pirmiau pateikta makrokomanda neveiks, kai jūsų suvestinė lentelė bus rūšiuojama skiltyje Išplėstinė. Iš naujo nustatę šį vadovą, problema bus išspręsta.
Pastaba
Šis patarimas apžvelgs kiekvieną puslapio lauką, kad juos atspausdintų. Jei norite sugeneruoti darbaknygę su 150 skirtingų darbalapių, po vieną kiekvienos puslapio lauko vertei, galite naudoti funkciją Rodyti puslapius.
