Drukuj każdą wartość w polu strony - porady dotyczące programu Excel

Spisie treści

Raj pyta:

Mam tabelę przestawną programu Excel skonfigurowaną z 150 różnymi wartościami w polu strony. Jak uruchomić makro, aby wydrukować każdą stronę? Próbowałem nagrać makro, ale twardo koduje nazwę każdej strony, a niektórych z tych stron może nie być z tygodnia na tydzień.

Visual Basic sprawia, że ​​jest to bardzo proste. To makro wykorzystuje następujące elementy:

  • W kolekcji PageFields podana zostanie nazwa pierwszego pola strony w tabeli przestawnej.
  • PivotItems kolekcja znajduje się lista wszystkich przedmiotów (boki) w obszarze strony.
  • Właściwość CurrentPage umożliwia zmianę strony wyświetlanej w tabeli przestawnej.
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

Cynk dla Raja za zgłoszenie się z tą wskazówką. Powyższe makro nie będzie działać, jeśli tabela przestawna jest posortowana w obszarze Zaawansowane. Zresetowanie tego do ręcznego rozwiązuje problem.

Uwaga

Ta wskazówka przejdzie przez każde pole strony, aby je wydrukować. Jeśli chcesz wygenerować skoroszyt z 150 różnymi arkuszami roboczymi, po jednym dla każdej wartości pola strony, możesz użyć funkcji Pokaż strony.

Interesujące artykuły...