Πώς να Διαγραφή έναν Συγκεντρωτικό Πίνακα στο VBA

A συγκεντρωτικός πίνακας χρησιμοποιείται για να συνοψίσει τα δεδομένα και χρησιμοποιείται συχνά σε προγράμματα υπολογιστικών φύλλων , όπως το Microsoft Excel . Visual Basic for Applications είναι μια γλώσσα προγραμματισμού που αναπτύχθηκε από τη Microsoft και χρησιμοποιείται για να αυτοματοποιήσουν εργασίες ρουτίνας στις εφαρμογές του Microsoft Office . Μπορεί να χρειαστεί να γράψετε κώδικα VBA για να διαγράψετε τους πίνακες περιστροφής , αν έχετε ένα βιβλίο εργασίας με πολλά φύλλα εργασίας και θα πρέπει να τα διαγράψετε χειροκίνητα . Σε μερικά βήματα μπορείτε να γράψετε κώδικα VBA για να διαγράψετε έναν πίνακα περιστροφής . Οδηγίες
Η 1

Εκκίνηση του Microsoft Office Excel και το είδος " Στήλες " σε " A1 " , "Δεδομένα" σε " B1 " , "Field " σε " A2 " , " 12 " σε " B2 " , " field2 "σε" A3 " , και " 13 "σε" Β3 " .

Κάντε κλικ στο" A1 " , πατήστε το πλήκτρο" Ctrl "και" A ", κάντε κλικ στο " " μενού και επιλέξτε" Εισαγωγή Συγκεντρωτικού Πίνακα . " Κάντε κλικ στο " OK". 2

Επιλέξτε τα πλαίσια δίπλα στο " Στήλες " και " στοιχεία".

Επιλέξτε την καρτέλα "Προγραμματιστής " , στη συνέχεια, κάντε κλικ στο " Visual Basic ". Κάντε κλικ στο "Εισαγωγή" μενού και επιλέξτε " Ενότητα ".
Εικόνων 3

αντιγραφή και επικόλληση τον παρακάτω κωδικό στο νέο module σας για να διαγράψετε τον πίνακα περιστροφής που μόλις δημιουργήσατε .

Private Sub deletePivotTable ( )

Dim Ptbl Όπως Συγκεντρωτικός Πίνακας

Dim wrkSheet Όπως Φύλλο

για κάθε wrkSheet Σε ActiveWorkbook.Worksheets

Για Κάθε Ptbl Σε wrkSheet . PivotTables

Range. ( " A3 : B6 " ) Επιλέξτε

Selection.Delete Shift : . = xlToLeft

Range ( "A1" ) Επιλέξτε

Exit Sub

Επόμενο Ptbl

Επόμενο wrkSheet

End Sub
Η
εικόνων