Stampa ogni valore nel campo della pagina - Suggerimenti per Excel

Sommario

Raj chiede:

Ho una tabella pivot di Excel impostata con 150 valori diversi nel campo della pagina. Come posso eseguire una macro per stampare ogni singola pagina? Ho provato a registrare la macro, ma codifica il nome di ogni pagina e alcune di queste pagine potrebbero non essere presenti di settimana in settimana.

Visual Basic lo rende un gioco da ragazzi. Questa macro utilizza quanto segue:

  • La raccolta PageFields ti dirà il nome del primo campo della pagina nella tabella pivot.
  • La raccolta PivotItems è un elenco di tutti gli elementi (pagine) nel campo della pagina.
  • La proprietà CurrentPage consente di modificare la pagina visualizzata nella tabella pivot.
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

Un consiglio a Raj per aver risposto con questo suggerimento. La macro sopra non funzionerà quando la tabella pivot è ordinata in Avanzate. Il ripristino di questo manuale risolverà il problema.

Nota

Questo suggerimento eseguirà un ciclo in ogni campo della pagina per stamparli. Se desideri generare una cartella di lavoro con 150 fogli di lavoro diversi, uno per ogni valore del campo della pagina, puoi utilizzare la funzione Mostra pagine.

Articoli interessanti...