Εκκίνηση του 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
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα