Εκτύπωση κάθε τιμής στο πεδίο σελίδας - Συμβουλές για το Excel

Πίνακας περιεχομένων

Ο Raj ρωτά:

Έχω ρυθμίσει έναν συγκεντρωτικό πίνακα 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

Μια άκρη του κεφαλιού για τον Raj για αναφορά με αυτήν την υπόδειξη. Η παραπάνω μακροεντολή δεν θα λειτουργήσει όταν ο συγκεντρωτικός πίνακας σας έχει ταξινομηθεί στην ενότητα Για προχωρημένους. Η επαναφορά αυτού στο εγχειρίδιο θα διορθώσει το πρόβλημα.

Σημείωση

Αυτή η συμβουλή θα περάσει σε κάθε πεδίο σελίδας για να τις εκτυπώσετε. Εάν θέλετε να δημιουργήσετε ένα βιβλίο εργασίας με 150 διαφορετικά φύλλα εργασίας, ένα για κάθε τιμή πεδίου σελίδας, μπορείτε να χρησιμοποιήσετε τη λειτουργία Εμφάνιση σελίδων.

ενδιαφέροντα άρθρα...