Skriv ut varje värde i sidfältet - Excel-tips

Innehållsförteckning

Raj frågar:

Jag har en Excel-pivottabell med 150 olika värden i sidfältet. Hur kan jag köra ett makro för att skriva ut varje enskild sida? Jag försökte spela in makrot, men det koderar svårt namnet på varje sida, och vissa av dessa sidor kanske inte finns där från vecka till vecka.

Visual Basic gör detta till ett ögonblick. Detta makro använder följande:

  • Den PageFields kollektionen kommer att berätta namnet på den första sidan fältet i pivottabellen.
  • Den PivotItems samlingen är en lista över alla objekt (sidor) i sidan fältet.
  • Den CurrentPage egenskapen kan du ändra vilken sida som visas i pivottabellen.
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

Ett tips på locket till Raj för att rapportera tillbaka med detta tips. Ovanstående makro fungerar inte när du har sorterat din pivottabell under Avancerat. Om du återställer detta till manual kommer problemet att rättas.

Notera

Detta tips kommer att slinga igenom varje sidfält för att skriva ut dem. Om du vill skapa en arbetsbok med 150 olika kalkylblad, en för varje sidfältvärde, kan du använda funktionen Visa sidor.

Intressanta artiklar...