Πώς μπορώ να δημιουργήσει συγκεντρωτικό πίνακα με VBA

; Δημιουργία συγκεντρωτικών πινάκων στο Excel με τη χρήση της Visual Basic for Applications ( VBA ) μπορεί να σας εξοικονομήσει χρόνο εξαιτίας σας δεν χρειάζεται να δημιουργήσετε τους πίνακες με το χέρι . VBA είναι μια γλώσσα προγραμματισμού ηλεκτρονικών υπολογιστών που χρησιμοποιούνται σε εφαρμογές του Microsoft Office για να αυτοματοποιήσουν εργασίες ρουτίνας , όπως η δημιουργία ενός συγκεντρωτικού πίνακα . Μην σπαταλάτε το χρόνο σας δημιουργώντας συγκεντρωτικοί πίνακες με το χέρι , αν έχετε πολλά φύλλα στο βιβλίο εργασίας σας? Αντί να δημιουργήσετε ένα υπο διαδικασία για τη δημιουργία τους δυναμικά . Τα πράγματα που θα χρειαστείτε για Microsoft Office Excel
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

Εκκίνηση του Microsoft Office Excel και το είδος "Πελάτης" σε " A1 ", " σημείο " σε " B1 , "και" Ποσότητα "σε " C1 ". Τύπου " Jon " σε " Α2 ", " Jon " σε " Α3 ", " Κλάρα" σε " Α4 ", " Κλάρα" σε " Α5 " και " Κλάρα" σε " Α6 ". Τύπου " σόδα " σε " Β2 ", "μπύρα" σε " Β3 ", " σόδα " σε " Β4, " "νερό" σε " B5 " και "μπύρα" σε " Α6 ". Τύπου " 2 " σε " C2 ", " 5 " σε " C3 ", " 10 " σε " C4 ", " 12 " σε " C5, " και " 15 " σε " C6 ".
Η 2

Κάντε κλικ στην καρτέλα "Προγραμματιστής " και κάντε κλικ στο " Visual Basic" για να ξεκινήσει το πρόγραμμα επεξεργασίας VB . Πληκτρολογήστε τον ακόλουθο κώδικα για να δημιουργήσετε μια νέα διαδικασία ρουτίνας VBA :

Private Sub createPivotTable ( )
εικόνων 3

Δημιουργήστε τις μεταβλητές που θα χρησιμοποιήσετε για να δημιουργήσετε τον πίνακα περιστροφής με την προσθήκη του ακόλουθο κώδικα :

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

Dim wrkSht Όπως Φύλλο

Dim pvtSht Όπως Φύλλο

Dim PTCache Όπως PivotCache

Dim Prange Όπως Σειρά

Dim finalRow Όπως Long

Dim finalCol Όπως Long
Η 4

Ορίστε τα φύλλα εργασίας που θα χρησιμοποιήσετε :

Set wrkSht = φύλλα εργασίας ( " Φύλλο1 " )

Σετ pvtSht = Φύλλα εργασίας ( " Sheet2 " )
5

Καθορίστε τη γραμμή και τη στήλη μετρούν με δεδομένα :

finalRow = wrkSht.Cells ( Application.Rows.Count , 1 ) . Τέλος ( xlUp ) . Row

finalCol = wrkSht.Cells ( 1 , Application.Columns.Count ) . End ( xlToLeft ) . Στήλη
Η 6

Ορίστε την περιοχή για τα δεδομένα σας :

Set Prange = wrkSht.Cells ( 1 , 1 ) Αλλαγή μεγέθους ( finalRow , finalCol )

Σετ PTCache = ActiveWorkbook.PivotCaches.Add ( SourceType . : = xlDatabase , SourceData : = Prange )
Η 7

Δημιουργήστε τον πίνακα που περιστρέφονται στο " Sheet2 : "

Set pt = PTCache.createPivotTable ( TableDestination : = pvtSht.Cells ( 1 , 1 ) , _

TableName : = " SamplePivot " )

pt.ManualUpdate = True
8

Ορίστε τα δεδομένα προέλευσης για το Pivot πίνακα :

pt.AddFields RowFields : . . = Array ( "είδος" )

Με pt.PivotFields ( " Ποσότητα " )

Προσανατολισμός = xlDataField

Λειτουργία = xlSum

. Θέση = 1

End With

pt.ManualUpdate = False
Η 9

Τελειώστε υπο σας πληκτρολογώντας " End Sub " στο τέλος της διαδικασίας σας . Πατήστε το πλήκτρο " F5 " για να εκτελέσετε τη διαδικασία και να δημιουργήσετε τον πίνακα περιστροφής χρησιμοποιώντας VBA .
Η
εικόνων