Ispišite svaku vrijednost u polje stranice - Excel savjeti

Sadržaj

Raj pita:

Imam postavljenu zaokretnu tablicu Excela sa 150 različitih vrijednosti u polju stranice. Kako mogu pokrenuti makronaredbu za ispis svake pojedine stranice? Pokušao sam snimiti makronaredbu, ali teško kodira naziv svake stranice, a neke od tih stranica možda neće biti iz tjedna u tjedan.

Visual Basic ovo čini brzim. Ova makronaredba koristi sljedeće:

  • Zbirka PageFields reći će vam ime polja prve stranice u zaokretnoj tablici.
  • Zbirka PivotItems je popis svih stavki (stranica) u polju stranice.
  • CurrentPage svojstvo omogućuje promjenu koja stranica je prikazan u stožerna tablica.
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

Vrh kape Raju za izvještavanje s ovim nagovještajem. Gornja makronaredba neće raditi kada imate zaokretnu tablicu sortiranu pod Napredno. Vraćanjem na ručno ispravit ćete problem.

Bilješka

Ovaj će se savjet petljati kroz svako polje stranice kako bi ih ispisao. Ako želite generirati radnu knjigu sa 150 različitih listova, po jedan za vrijednost polja svake stranice, možete koristiti značajku Prikaži stranice.

Zanimljivi članci...