Отпечатайте всяка стойност в полето на страницата - Съвети на Excel

Съдържание

Радж пита:

Имам настроена обобщена таблица на Excel със 150 различни стойности в полето на страницата. Как мога да стартирам макрос за отпечатване на всяка отделна страница? Опитах да запиша макроса, но трудно кодира името на всяка страница и някои от тези страници може да не са там от седмица на седмица.

Visual Basic прави това бързо. Този макрос използва следното:

  • В PageFields колекция ще ви кажа името на полето на първа страница в осевата таблица.
  • В PivotItems колекцията е списък на всички елементи (страници) в областта на страница.
  • В CurrentPage имота Ви позволява да променяте коя страница се показва в осевата таблица.
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

Върхът на шапката на Радж за докладване с този намек. Горният макрос няма да работи, когато вашата обобщена таблица е сортирана под Разширени. Възстановяването на това на ръчно ще коригира проблема.

Забележка

Този съвет ще премине през всяко поле на страница, за да ги отпечата. Ако искате да генерирате работна книга със 150 различни работни листа, по една за стойност на полето на всяка страница, можете да използвате функцията Показване на страници.

Интересни статии...