Izdrukājiet katru vērtību lapas laukā - Excel padomi

Satura rādītājs

Radžs jautā:

Man lapas Excel laukā ir izveidota Excel rakurstabula ar 150 dažādām vērtībām. Kā es varu palaist makro, lai izdrukātu katru atsevišķu lapu? Es mēģināju ierakstīt makro, taču tas grūti kodē katras lapas nosaukumu, un dažas no šīm lapām var nebūt tur katru nedēļu.

Visual Basic padara to vienkāršu. Šajā makro tiek izmantoti šādi:

  • PageFields kolekcija būs pateikt vārdu pirmās lappuses laukā rakurstabulu.
  • PivotItems kolekcija ir saraksts ar visiem posteņiem (lapām) lapas laukā.
  • CurrentPage īpašums ļauj mainīt kura lapa tiek parādīta rakurstabulā.
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

Padoms Rajam, kurš ziņo par šo mājienu. Iepriekšminētais makro nedarbosies, ja rakurstabula tiks sakārtota sadaļā Papildu. Atiestatot šo uz rokasgrāmatu, problēma tiks novērsta.

Piezīme

Šis padoms apskatīs katru lapas lauku, lai tos izdrukātu. Ja vēlaties izveidot darbgrāmatu ar 150 dažādām darblapām, pa vienai katras lapas lauka vērtībai, varat izmantot funkciju Rādīt lapas.

Interesanti raksti...