Πώς να αλλάξετε την πηγή του Excel Pivot Table Χρησιμοποιώντας VBA

Microsoft Excel είναι μια εφαρμογή λογιστικών φύλλων . Ένα χαρακτηριστικό αυτού του προγράμματος είναι ότι μπορείτε να χρησιμοποιήσετε τα φύλλα της για να αποθηκεύσει δεδομένα παρόμοια με τον τρόπο που θα κάνατε σε μια βάση δεδομένων και στη συνέχεια αναφορά ότι σε δυναμικές γραφικές απεικονίσεις . Υπάρχουν δύο τύποι των οθονών που μπορείτε να χρησιμοποιήσετε : Συγκεντρωτικοί Πίνακες και τα Συγκεντρωτικά Γραφήματα . Συγκεντρωτικοί πίνακες μπορούν να χρησιμοποιηθούν για να ταξινομήσετε, να φιλτράρετε και να συνοψίσει τα δεδομένα σας . Ο μόνος τρόπος για να αλλάξετε την πηγή δεδομένων που χρησιμοποιεί ένα Συγκεντρωτικό Πίνακα μόλις έχει δημιουργηθεί μέσω του οδηγού είναι να ενημερώσετε από τον κώδικα VBA στο παρασκήνιο . Οδηγίες
Η 1

Δημιουργήστε ένα αντικείμενο συγκεντρωτικού πίνακα σε VBA ώστε να μπορείτε να ενημερώσετε την πηγή . Αντιγράψτε τον παρακάτω κώδικα και το βάζουμε σε σας ή τη λειτουργία macro .

Δημ. ptMyPivotTable Όπως Συγκεντρωτικός Πίνακας 2

Συνδέστε το αντικείμενο Συγκεντρωτικού Πίνακα σας με την πραγματική σας Pivot πίνακα . Αντιγράψτε τον παρακάτω κώδικα .

Set ptMyPivotTable = ActiveSheet.PivotTables ( 1 )
εικόνων 3

Ενημερώστε την ιδιότητα SourceData του αντικειμένου Συγκεντρωτικού Πίνακα με τις νέες τιμές . Μπορείτε να το κάνετε αυτό , αντιγράφοντας τον κώδικα VBA που παρέχονται . Αναπληρωτής επιθυμητό εύρος των δεδομένων σας στη θέση του " A1" στο παράδειγμα .

PtMyPivotTable.SourceData = Range ( " A1" ) . CurrentRegion.Address ( True , True , xlR1C1 , True )

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

ptMyPivotTable.SourceData = Sheets ( " mySheetName » ) . [ A1 ] . CurrentRegion.Address ( True , True , xlR1C1 , True )
Φτηνές 4

Ενημέρωση των δεδομένων που πράγματι εμφανίζονται στο Συγκεντρωτικό Πίνακα σας χρησιμοποιώντας την παρακάτω εντολή VBA .

ptMyPivotTable.RefreshTable
5

Απελευθερώστε τους πόρους που χρησιμοποιούνται σε αντικείμενο Συγκεντρωτικού Πίνακα θεωρώντας ότι αυτό ισούται με τίποτα .

Set ptMyPivotTable = Τίποτα
Η
εικόνων