Αυτό το σεμινάριο θα σας διδάξει πώς να διαγράψετε ή να διαγράψετε ένα φύλλο εργασίας χρησιμοποιώντας το VBA.
Διαγραφή φύλλου εργασίας
Χρησιμοποιήστε την εντολή διαγραφής για να διαγράψετε ένα φύλλο εργασίας.
Διαγραφή φύλλου εργασίας κατά όνομα
| 1 | Φύλλα ("Φύλλο1"). Διαγραφή |
Διαγραφή φύλλου εργασίας κατά αριθμό ευρετηρίου
Αυτός ο κώδικας διαγράφει το πρώτο φύλλο εργασίας στο βιβλίο εργασίας:
| 1 | Φύλλα (1). Διαγραφή |
Αυτός ο κώδικας διαγράφει το τελευταίο φύλλο εργασίας στο βιβλίο εργασίας:
| 1 | Φύλλα (Sheets.Count). Διαγραφή |
Διαγραφή φύλλου εργασίας χωρίς προτροπή
Όταν επιχειρείτε να διαγράψετε ένα φύλλο εργασίας, το Excel θα σας ζητήσει να επιβεβαιώσετε την ενέργειά σας:
Μπορείτε να απενεργοποιήσετε αυτές τις προτροπές (ειδοποιήσεις) εναλλάσσοντας DisplayAlerts:
| 123 | Application.DisplayAlerts = ΛάθοςΦύλλα ("Φύλλο1"). ΔιαγραφήApplication.DisplayAlerts = True |
Διαγραφή φύλλου εάν υπάρχει
Εάν επιχειρήσετε να διαγράψετε ένα φύλλο εργασίας που δεν υπάρχει, το VBA θα δημιουργήσει σφάλμα. Με το On Error Resume Next, μπορείτε να πείτε στη VBA να διαγράψει ένα φύλλο εάν υπάρχει, διαφορετικά μεταβείτε στην επόμενη γραμμή κώδικα:
| 123 | Στο Σφάλμα Συνέχιση ΕπόμενοΦύλλα ("Φύλλο1"). ΔιαγραφήΣφάλμα GoTo 0 |
Μπορείτε επίσης να χρησιμοποιήσετε τη συνάρτηση RangeExists για να ελέγξετε εάν υπάρχει ένα φύλλο και εάν ναι διαγράψτε το .:
| 123 | Εάν RangeExists ("Sheet1") ΤότεΦύλλα ("Φύλλο1"). ΔιαγραφήΤέλος εαν |
Διαγραφή φύλλου
Αυτός ο κώδικας θα διαγράψει ένα ολόκληρο φύλλο περιεχομένου, μορφές και οτιδήποτε άλλο:
| 1 | Φύλλα ("Sheet1"). Cells.Clear |
Διαγραφή περιεχομένου φύλλου
Αυτός ο κωδικός θα καθαρίσει το περιεχόμενο ενός ολόκληρου φύλλου. Θα αφήσει μορφοποίηση, σχόλια και οτιδήποτε άλλο μόνο:
| 1 | Φύλλα ("Sheet1"). Cells.ClearContents |
Διαγραφή φύλλου UsedRange
Τα παραπάνω παραδείγματα θα καθαρίσουν ΟΛΑ τα κελιά σε ένα φύλλο εργασίας. Αυτό μπορεί να είναι πολύ χρονοβόρο σε μεγάλα φύλλα. Εάν χρησιμοποιείτε το UsedRange αντ 'αυτού, το VBA θα διαγράψει μόνο τα "χρησιμοποιημένα" κελιά που περιέχουν τιμές, μορφές κ.
| 1 | Φύλλα ("Sheet1"). UsedRange.Clear |
