Πίνακας περιεχομένων
Σε αυτό το άρθρο, θα σας δείξω πώς μπορείτε να ανανεώστε όλους τους πίνακες Pivot του φύλλου εργασίας ή του βιβλίου εργασίας σας με το VBA στο Excel. Θα μάθετε επίσης να ανανέωση ενός ενιαίου πίνακα Pivot , καθώς και το Πίνακας Pivot cache.
Ανανέωση όλων των πινάκων Pivot με VBA στο Excel (Γρήγορη προβολή)
Dim Table As PivotTable For Each Table In ActiveWorkbook.PivotTables Table.RefreshTable Next Table 
Αυτό θα ανανεώσει όλες τις Πίνακες Pivot του ενεργού βιβλίου εργασίας.
Κατεβάστε το βιβλίο ασκήσεων
Κατεβάστε αυτό το τετράδιο ασκήσεων για να εξασκηθείτε ενώ διαβάζετε αυτό το άρθρο.
Ανανέωση όλων των Pivot Tables.xlsm4 τρόποι ανανέωσης όλων των πινάκων Pivot με VBA στο Excel
A Πίνακας Pivot είναι ένας ειδικός τύπος πίνακα σε ένα φύλλο εργασίας του Excel που περιέχει δύο κατηγορίες δεδομένων, με τίτλο Σειρά και Αξία αντίστοιχα.
Όλες οι στήλες του πίνακα κατατάσσονται σε αυτές τις δύο κατηγορίες.
Δημιουργείται αυτόματα από ένα σύνολο δεδομένων, εάν επιλέξετε το σύνολο δεδομένων και μεταβείτε στην ενότητα Εισαγωγή> PivotTable στη γραμμή εργαλείων του Excel.
Σήμερα ο στόχος μας είναι να μάθουμε πώς μπορούμε να ανανεώσουμε όλες τις Πίνακες Pivot ενός φύλλου εργασίας ή ενός βιβλίου εργασίας με VBA στο Excel.
1. Ανανέωση ενός ενιαίου πίνακα Pivot στο Excel
Πρώτα, θα μάθουμε να ανανεώνουμε ένα απλό Πίνακας Pivot .
Για να ανανεώσετε ένα μεμονωμένο Πίνακας Pivot , πρώτα, πρέπει να το αναφέρετε ως PivotTable αντικείμενο.
Τότε θα πρέπει να χρησιμοποιήσετε το RefreshTable μέθοδος της VBA .
Εδώ έχουμε ένα Πίνακας Pivot που ονομάζεται PivotTable1 στο ενεργό φύλλο εργασίας. (Κάντε κλικ εδώ για να μάθετε πώς να λάβετε το όνομα του πίνακα Pivot ).
Για να το ανανεώσουμε, πρέπει να χρησιμοποιήσουμε τις ακόλουθες γραμμές κώδικα:
Dim Table1 As PivotTable Set Table1 = ActiveSheet.PivotTables("PivotTable1") Table1.RefreshTable 
Εκτελέστε τον κώδικα και θα ανανεώσει το Πίνακας Pivot που ονομάζεται PivotTable1 στο ενεργό φύλλο εργασίας.
Διαβάστε περισσότερα: Πώς να ανανεώνετε αυτόματα τον πίνακα Pivot στο Excel (2 μέθοδοι)
2. Ανανέωση όλων των πινάκων Pivot ενός φύλλου εργασίας στο Excel
Τώρα θα ανανεώσουμε όλα τα Πίνακες Pivot ενός φύλλου εργασίας με VBA .
Για να ανανεώσετε όλα τα Πίνακες Pivot του ενεργού φύλλου εργασίας, θα πρέπει να επαναλάβετε κάθε Πίνακας Pivot του ActiveSheet.PivotTables αντικείμενο. Στη συνέχεια, χρησιμοποιήστε το RefreshTable μέθοδος.
Dim Table As PivotTable For Each Table In ActiveSheet.PivotTables Table.RefreshTable Next Table 
Εκτελέστε τον κώδικα και θα ανανεώστε όλους τους πίνακες Pivot του ενεργού φύλλου εργασίας.
Διαβάστε περισσότερα: Ο πίνακας Pivot δεν ανανεώνεται (5 ζητήματα & λύσεις)
3. Ανανέωση όλων των πινάκων Pivot ενός βιβλίου εργασίας στο Excel
Μπορείτε επίσης να ανανεώσετε όλες τις Πίνακες Pivot ενός βιβλίου εργασίας στο Excel.
Για να ανανεώσετε όλα τα Πίνακες Pivot του ενεργού βιβλίου εργασίας, κάντε επανάληψη σε κάθε πίνακα με βάση το ActiveWorkbook.PivotTables αντικείμενο της VBA . Στη συνέχεια χρησιμοποιήστε το RefreshTable μέθοδος.
Dim Table As PivotTable For Each Table In ActiveWorkbook.PivotTables Table.RefreshTable Next Table
Αυτός ο κώδικας θα ανανεώσει όλα τα Πίνακες Pivot του ενεργού βιβλίου εργασίας.
Διαβάστε περισσότερα: Πώς να ενημερώνετε αυτόματα έναν πίνακα Pivot όταν αλλάζουν τα δεδομένα πηγής
4. Ανανεώστε την προσωρινή μνήμη του πίνακα Pivot με VBA στο Excel
Εάν έχετε πολλαπλές Πίνακες Pivot στο βιβλίο εργασίας σας που χρησιμοποιούν τα ίδια δεδομένα, καλύτερα να ανανεώσετε το Κρυφή μνήμη πίνακα Pivot αντί να ανανεώνει το Πίνακας Pivot .
Για να ανανεώσετε το Κρυφή μνήμη πίνακα Pivot , επαναλαμβάνουμε κάθε Κρυφή μνήμη πίνακα Pivot του ενεργού βιβλίου εργασίας από το ActiveWorkbook.PivotCaches αντικείμενο.
Στη συνέχεια, χρησιμοποιήστε το R efresh μέθοδος της VBA .
Dim Cache As PivotCache For Each Cache In ActiveWorkbook.PivotCaches Cache.Refresh Next Cache 
Θα ανανεώσει όλα τα Κρυφή μνήμη πίνακα Pivot από το ενεργό βιβλίο εργασίας.
Διαβάστε περισσότερα: Πώς να ανανεώσετε αυτόματα τον πίνακα Pivot χωρίς VBA στο Excel (3 έξυπνες μέθοδοι)
Πράγματα που πρέπει να θυμάστε
Εδώ έχουμε δείξει να ανανεώνετε το Πίνακες Pivot μόνο από το ενεργό φύλλο εργασίας ή το ενεργό βιβλίο εργασίας. Εάν θέλετε να ανανεώσετε δεδομένα από ένα βιβλίο εργασίας ή ένα φύλλο εργασίας που δεν είναι ενεργό, χρησιμοποιήστε το όνομα του φύλλου εργασίας ή του βιβλίου εργασίας στη θέση του ActiveSheet ή το ActiveWorkbook αντικείμενο.
Για παράδειγμα, για να ανανεώσετε όλα τα Πίνακες Pivot από το Φύλλο1 , χρησιμοποιήστε For Each Table In Worksheets("Sheet1").PivotTables .
Και για να αναζωογονηθείτε από Βιβλίο εργασίας1 , χρησιμοποιήστε For Each Table In Workbooks("Workbook1").PivotTables .
Συμπέρασμα
Χρησιμοποιώντας αυτές τις μεθόδους, μπορείτε να ανανεώσετε όλες τις Πίνακες Pivot από ένα φύλλο εργασίας ή ένα βιβλίο εργασίας με VBA στο Excel. Έχετε ερωτήσεις; Μη διστάσετε να μας ρωτήσετε.
