Εφαρμογή του Μακροεντολή VBA είναι η πιο αποτελεσματική, γρήγορη και ασφαλής μέθοδος για να εκτελέσετε οποιαδήποτε λειτουργία στο Excel. Σε αυτό το άρθρο, θα σας δείξουμε πώς να ανανέωση του πίνακα pivot στο Excel με τη χρήση VBA.

Λήψη βιβλίου εργασίας

Μπορείτε να κατεβάσετε το δωρεάν βιβλίο ασκήσεων Excel από εδώ.

Ανανέωση πίνακα Pivot με VBA.xlsm

5 παραδείγματα για την ανανέωση του πίνακα Pivot με VBA στο Excel

Ακολουθεί το παράδειγμα του πίνακα pivot που θα χρησιμοποιήσουμε σε όλο το άρθρο και θα σας δείξουμε 5 διαφορετικά παραδείγματα. ανανέωση πινάκων pivot στο Excel με VBA κωδικός.

1. VBA για την ανανέωση ενός πίνακα Pivot στο Excel

Αν θέλετε να ανανέωση ενός μόνο πίνακα pivot στο φύλλο εργασίας σας στο Excel,

• Τύπος Alt + F11 στο πληκτρολόγιό σας ή πηγαίνετε στην καρτέλα Προγραμματιστής -> Visual Basic για να ανοίξετε Visual Basic Editor .

• Στο αναδυόμενο παράθυρο κώδικα, από τη γραμμή μενού, κάντε κλικ στην επιλογή Εισαγωγή -> Ενότητα .

• Αντιγράψτε τον παρακάτω κώδικα και επικολλήστε τον στο παράθυρο κώδικα.

 Sub RefreshOnePivotTable() ActiveSheet.PivotTables("PivotTable1").RefreshTable End Sub 

Ο κώδικάς σας είναι τώρα έτοιμος για εκτέλεση.

Ορίστε, PivotTable1 είναι το όνομα του Pivot Table. Γράφετε το όνομα που έχει ο Pivot Table σας.

• Τύπος F5 στο πληκτρολόγιό σας ή από τη γραμμή μενού επιλέξτε Εκτέλεση -> Εκτέλεση Sub/UserForm Μπορείτε επίσης να κάνετε κλικ στο μικρό εικονίδιο Play στη γραμμή υπομενού για να εκτελέσετε τη μακροεντολή.

Αυτό θα ανανέωση του πίνακα pivot στο υπάρχον φύλλο εργασίας του Excel.

Διαβάστε περισσότερα: Ο πίνακας Pivot δεν ανανεώνεται (5 ζητήματα & λύσεις)

2. Μακροεντολή για την ανανέωση όλων των πινάκων Pivot στο ενεργό φύλλο εργασίας

Για να ανανεώσετε όλους τους πίνακες pivot στο ενεργό φύλλο εργασίας , ακολουθήστε τα παρακάτω βήματα.

• Με τον ίδιο τρόπο όπως και πριν, ανοίξτε Visual Basic Editor από το Προγραμματιστής και Εισαγωγή a Ενότητα στο παράθυρο κώδικα.
• Στο παράθυρο κώδικα, αντιγράψτε τον ακόλουθο κώδικα και επικολλήστε τον.

 Sub RefreshActiveSheetPivotTables() Dim PivotTbl As PivotTable For Each PivotTbl In ActiveSheet.PivotTables PivotTbl.RefreshTable Next PivotTbl End Sub 

Ο κώδικάς σας είναι τώρα έτοιμος για εκτέλεση.

• Εκτέλεση η μακροεντολή και όλοι οι πίνακες pivot στο ενεργό φύλλο εργασίας σας θα ανανεωθούν.

Διαβάστε περισσότερα: Πώς να ανανεώσετε όλους τους πίνακες Pivot στο Excel

3. Κώδικας VBA για την ανανέωση όλων των πινάκων Pivot σε πολλαπλά βιβλία εργασίας

Αν θέλετε να ανανέωση όλων των πινάκων pivot σε πολλαπλά βιβλία εργασίας αμέσως με VBA κώδικα, τότε τα βήματα είναι:

• Ανοίξτε το Visual Basic Editor από το Προγραμματιστής και Εισαγωγή a Ενότητα στο παράθυρο κώδικα.
• Στο παράθυρο κώδικα, αντιγράψτε τον ακόλουθο κώδικα και επικολλήστε τον.

 Sub RefreshAllPivotTables() Dim PivotTbl As PivotTable For Each PivotTbl In ActiveWorkbook.PivotTables PivotTbl.RefreshTable Next PivotTbl End Sub 

Ο κώδικάς σας είναι τώρα έτοιμος για εκτέλεση.

• Εκτέλεση τον κώδικα και θα ανανεωθούν όλοι οι πίνακες pivot σε όλα τα ανοιχτά βιβλία εργασίας του Excel.

Θυμηθείτε το για να διατηρήσετε όλα τα βιβλία εργασίας ανοιχτό κατά την εκτέλεση αυτού του κώδικα.

Παρόμοιες αναγνώσεις

• Πώς να επεξεργαστείτε έναν πίνακα Pivot στο Excel (5 μέθοδοι)
• Ενημέρωση εύρους πίνακα Pivot (5 κατάλληλες μέθοδοι)
• Πώς να ενημερώνετε αυτόματα έναν πίνακα Pivot όταν αλλάζουν τα δεδομένα πηγής

4. Ανανέωση της προσωρινής αποθήκευσης του πίνακα Pivot με VBA στο Excel

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

Τα βήματα για να το κάνετε αυτό είναι,

• Ανοίξτε το Visual Basic Editor από το Προγραμματιστής και Εισαγωγή a Ενότητα στο παράθυρο κώδικα.
• Στο παράθυρο κώδικα, αντιγράψτε τον ακόλουθο κώδικα και επικολλήστε τον.

 Sub RefreshPivotTableCache() Dim PivotCache As PivotCache For Each PivotCache In ActiveWorkbook.PivotCaches PivotCache.Refresh Next PivotCache End Sub 

Ο κώδικάς σας είναι τώρα έτοιμος για εκτέλεση.

• Εκτέλεση ο κώδικας και όλες οι μνήμες προσωρινής αποθήκευσης του πίνακα pivot θα εκκαθαριστούν.

Διαβάστε περισσότερα: Πώς να ανανεώσετε αυτόματα τον πίνακα Pivot χωρίς VBA στο Excel (3 έξυπνες μέθοδοι)

5. Αυτόματη ανανέωση πίνακα Pivot κατά την αλλαγή δεδομένων με μακροεντολή VBA

Τι γίνεται αν έχετε έναν πίνακα pivot που έχει μεγάλο όγκο δεδομένων και το μόνο που θέλετε είναι να ενημερώσετε μερικά δεδομένα, ενώ ολόκληρος ο πίνακας παραμένει ανέγγιχτος. Στο Excel, μπορείτε να αυτόματη ανανέωση του πίνακα pivot ενώ ενημερώνει τα δεδομένα με VBA .

• Ανοίξτε το Visual Basic Editor από το Προγραμματιστής.
• Στην αριστερή πλευρά του επεξεργαστή, θα υπάρχει ένα Εξερευνητής έργου παράθυρο που περιέχει όλα τα ονόματα του φύλλου εργασίας.
• Στο Εξερευνητής έργου , κάντε διπλό κλικ στο όνομα του φύλλου που περιέχει τον πίνακα περιστροφής.

• Θα εμφανιστεί το παράθυρο κώδικα όπου θα δημιουργήσουμε μια μακροεντολή συμβάντος. Επιλέξτε Φύλλο εργασίας από το Αντικείμενο στο αναπτυσσόμενο πλαίσιο στα αριστερά της ενότητας κώδικα. Αυτό θα προσθέσει ένα Φύλλο εργασίας_Αλλαγή επιλογής στην ενότητα, στην πραγματικότητα δεν το χρειαζόμαστε, οπότε θα διαγράψουμε αυτό το κομμάτι κώδικα αργότερα.
• Στη συνέχεια, κάντε κλικ στο Διαδικασία αναπτυσσόμενη λίστα και επιλέξτε Αλλαγή Αυτό προσθέτει ένα νέο συμβάν στην κορυφή της ενότητας κώδικα που ονομάζεται Φύλλο εργασίας_Αλλαγή Θα γράψουμε τον κώδικά μας εδώ έτσι delete ο κώδικας που παράγεται από το Φύλλο εργασίας_Αλλαγή επιλογής

• Τώρα αντιγράψτε τον παρακάτω κώδικα και επικολλήστε τον στο αρχείο Φύλλο εργασίας_Αλλαγή

 Private Sub Worksheet_Change(ByVal Target As Range) Worksheets("PivotTbl").PivotTables("PivotTable1").PivotCache.Refresh End Sub 

Ο κώδικάς σας είναι τώρα έτοιμος για εκτέλεση.

Ορίστε, PivotTbl είναι το όνομα του φύλλου εργασίας στο βιβλίο εργασίας του Excel και PivotTable1 είναι το όνομα του πίνακα Pivot. Γράφετε το όνομα που έχει το φύλλο εργασίας και ο πίνακας Pivot.

• Τώρα, κάθε φορά που αλλάζετε τα δεδομένα στον αρχικό πίνακα δεδομένων στο φύλλο εργασίας σας, τα δεδομένα στον πίνακα περιστροφής θα ενημερώνονται αυτόματα.

Διαβάστε περισσότερα: Πώς να ανανεώσετε αυτόματα τον πίνακα Pivot στο Excel

Συμπέρασμα

Αυτό το άρθρο σας έδειξε πώς να ανανέωση του πίνακα pivot στο Excel με VBA Ελπίζω αυτό το άρθρο να σας ήταν πολύ χρήσιμο. Μη διστάσετε να ρωτήσετε αν έχετε οποιεσδήποτε ερωτήσεις σχετικά με το θέμα.