Skriv ut hver verdi i sidefelt - Excel-tips

Innholdsfortegnelse

Raj spør:

Jeg har en Excel-pivottabell satt opp med 150 forskjellige verdier i sidefeltet. Hvordan kan jeg kjøre en makro for å skrive ut hver enkelt side? Jeg prøvde å registrere makroen, men det koder vanskelig navnet på hver side, og noen av sidene er kanskje ikke der fra uke til uke.

Visual Basic gjør dette til et øyeblikk. Denne makroen bruker følgende:

  • Den PageFields samlingen vil fortelle deg navnet på den første siden feltet i pivottabell.
  • Den PivotItems samlingen er en liste over alle elementene (sider) i sidefeltet.
  • Den CurrentPage Eiendommen lar deg endre hvilken side som vises i pivottabell.
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

Et tips av hetten til Raj for å rapportere tilbake med dette hintet. Ovennevnte makro fungerer ikke når du har sortert pivottabellen under Avansert. Å tilbakestille dette til manualen vil løse problemet.

Merk

Dette tipset vil gå gjennom hvert sidefelt for å skrive dem ut. Hvis du vil generere en arbeidsbok med 150 forskjellige regneark, en for hver sidefeltverdi, kan du bruke funksjonen Vis sider.

Interessante artikler...