Одштампајте сваку вредност у пољу странице - Екцел савети

Преглед садржаја

Рај пита:

Имам постављену Екцел табелу са 150 различитих вредности у пољу странице. Како могу да покренем макро за штампање сваке појединачне странице? Покушао сам да снимим макро, али тешко кодира назив сваке странице, а неке од тих страница можда неће бити из недеље у недељу.

Висуал Басиц ово чини брзим. Овај макро користи следеће:

  • ПагеФиелдс колекција ће вам рећи име поља прве стране у вешања табели.
  • ПивотИтемс колекција је листа свих ставки (странице) у области страници.
  • ЦуррентПаге имовина вам омогућава да промените који је приказана у вешања табели.
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 различитих листова, по један за вредност поља сваке странице, можете да користите функцију Прикажи странице.

Занимљиви Чланци...