Ξεκινήστε το σενάριο VBA , πληκτρολογώντας τα εξής :
Create_Pivot_Table_From_Cache ( ) 2
Καθορίστε τις μεθόδους της περιστροφής ακολουθώντας την followinf τρεις γραμμές κώδικα VBA :
Dim OPC Όπως PivotCache
Dim opt αφού Συγκεντρωτικός Πίνακας
Dim OWS Όπως Φύλλο
εικόνων 3 Καθορίστε
οι λειτουργίες του OPC , επιλέγουν και OWS , προσθέτοντας τις ακόλουθες γραμμές κώδικα :
OWS = ActiveSheet
OPC = ActiveWorkbook.PivotCaches.Create ( xlDatabase , oWS.UsedRange )
oPT = oPC.CreatvePivotTable ( oWS. [ D20 ] , " Pivot από Cache " , True )
Η 4
Ορίστε πώς τα πεδία θα πρέπει να περιστραφεί , ή να υπολογίζουν τα δεδομένα , χρησιμοποιώντας τις ακόλουθες γραμμές κώδικα . Σημειώστε ότι σε αυτό το παράδειγμα , τα ονόματα των πεδίων στήλη δεδομένων μπορεί να διαφέρουν από τη δική σας .
OPT.AddFields ( oPT.PivotFields ( " Τιμή " ) . Επωνυμία , πώληση
oPT.PivotFields ( "Προϊόν" ) . Name)
oPT.AddDataField ( oPT.PivotFields ( " Type" ) , " Τύπος προϊόντος " , xlSum )
5
Εκτελέστε το σενάριο VBA μέσα σε ένα συμβατό πρόγραμμα , όπως Excel , και να δείτε το παραγόμενο περιστρεφόμενου πίνακα .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα