Πώς να Διαγραφή φύλλων εργασίας χρησιμοποιώντας VBA

Στο Microsoft Excel , μπορείτε να αφαιρέσετε ένα φύλλο εργασίας κάνοντας δεξί κλικ στην καρτέλα του και επιλέγοντας " Διαγραφή" από το μενού περιβάλλοντος . Ένα μικρό παράθυρο θα σας ζητήσει να επιβεβαιώσετε την ενέργειά σας . Αυτό βοηθά στην αποφυγή τυχόν τυχαίες διαγραφές . Να περάσει το μήνυμα επιβεβαίωσης μπορεί να είναι ενοχλητική , ωστόσο , αν προσπαθείτε να αφαιρέσετε πολλά φύλλα . Ευτυχώς , μπορείτε επίσης να διαγράψετε τα φύλλα εργασίας χρησιμοποιώντας VBA . Excel VBA έρχεται με ένα "Φύλλα" λειτουργία που μπορείτε να χρησιμοποιήσετε για να δημιουργήσετε, να μετονομάσετε, να μετακινήσετε και να διαγράψετε τα φύλλα εργασίας . Με λίγες περισσότερες γραμμές κώδικα , μπορείτε να παρακάμψετε το παράθυρο επιβεβαίωσης και αφαιρέστε τα φύλλα πιο γρήγορα . Οδηγίες
Η 1

Ξεκινήστε το Microsoft Excel . Πατήστε το πλήκτρο " Ctrl " συν " O ", επιλέξτε το βιβλίο εργασίας σας από τη λίστα και κάντε κλικ στο "Άνοιγμα ". 2

Πατήστε " Alt " βύσμα " F8" για να ανοίξετε το " Μακροεντολές " παράθυρο . Πληκτρολογήστε " RemoveSheets " στο πεδίο " Όνομα μακροεντολής " και κάντε κλικ στο κουμπί " Δημιουργία ". Αυτό ανοίγει την Επεξεργασία Visual Basic ( VBE ) .
Εικόνων 3

Εισάγετε τον παρακάτω κωδικό στο VBE .

Sub RemoveSheets ( )

wSheets = Array ( " Φύλλο1 " , " Sheet2 " , " Φύλλο3 " )

Application.DisplayAlerts = False

Για n = 0 να UBound ( wSheets )

On Error Resume Next

Φύλλα ( wSheets (n ) ) . Διαγραφή

Επόμενο n

Application.DisplayAlerts = True

End Sub
Η 4

Αντικατάσταση " Φύλλο1 ", " Sheet2 " και " Sheet3 » με τα ονόματα των φύλλων εργασίας που θέλετε να διαγράψετε . Για να προσθέσετε ένα άλλο όνομα στη λίστα , πληκτρολογήστε ένα κόμμα και να εισάγετε το όνομα του φύλλου πριν από την παρένθεση της λειτουργίας Array . Να είστε βέβαιος να το βάλετε μέσα σε εισαγωγικά .
5

Πατήστε το πλήκτρο " Alt " συν " Q " για να κλείσετε το VBE .
Η

6 Πατήστε το πλήκτρο " Alt " συν " F8 " για να ανοίξει ξανά το παράθυρο " Μακροεντολές " . Επιλέξτε " RemoveSheets " από τη λίστα και, στη συνέχεια κάντε κλικ στο " Run".
Η
εικόνων