Tulosta jokainen arvo sivukentässä - Excel-vinkit

Sisällysluettelo

Raj kysyy:

Minulla on Excel-pivot-taulukko, jossa on 150 erilaista arvoa sivukentässä. Kuinka voin suorittaa makron jokaisen yksittäisen sivun tulostamiseksi? Yritin tallentaa makron, mutta se koodaa jokaisen sivun nimen, ja jotkut näistä sivuista eivät välttämättä ole siellä viikosta toiseen.

Visual Basic tekee tästä helppoa. Tämä makro käyttää seuraavaa:

  • PageFields kokoelma kertoo nimen ensimmäinen sivun kentän pivot-taulukossa.
  • PivotItems kerääminen on luettelo kaikista kohteita (sivut) sivun kenttään.
  • CurrentPage ominaisuuden avulla voit muuttaa mikä sivu näkyy pivot-taulukossa.
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

Vinkki Rajille ilmoittautumisesta tämän vihjeen avulla. Yllä oleva makro ei toimi, kun pivot-taulukko on lajiteltu Lisäasetukset-kohtaan. Tämän palauttaminen käsikirjaan korjaa ongelman.

Huomautus

Tämä vinkki vie jokaisen sivukentän läpi niiden tulostamiseksi. Jos haluat luoda työkirjan, jossa on 150 erilaista laskentataulukkoa, yksi kutakin sivukentän arvoa varten, voit käyttää Näytä sivut -ominaisuutta.

Mielenkiintoisia artikkeleita...