Υπάρχουν φορές που πρέπει να δημιουργήσουμε ή να προσθέσουμε φύλλο και αργότερα διαπιστώσαμε ότι δεν χρησιμοποιήσαμε αυτό το φύλλο, επομένως χρειαζόμαστε να διαγράψουμε γρήγορα το φύλλο από το βιβλίο εργασίας. Αυτό το άρθρο επικεντρώνεται στην εξοικονόμηση χρόνου και την παροχή κώδικα για την αφαίρεση φύλλων χωρίς κανένα πλαίσιο μηνυμάτων μηνυμάτων χρησιμοποιώντας μακροεντολή / κώδικα vba. Μπορεί να είναι ένα φύλλο ή περισσότερα. Και το excel δίνει μια αναδυόμενη ειδοποίηση για επιβεβαίωση της διαγραφής φύλλου. Εάν είναι ένα φύλλο, είναι διαχειρίσιμο. Αλλά εάν πρέπει να διαγράψετε πολλά φύλλα, θα λάβετε ένα αναδυόμενο παράθυρο ανά φύλλο.
Συχνά δημιουργείτε πολλά φύλλα χρησιμοποιώντας VBA. Αλλά τελικά, δεν τα χρειάζεσαι πραγματικά. Θα θέλατε να τα διαγράψετε μετά την ολοκλήρωση της εργασίας σας. Θα διατηρήσει το αρχείο σας ελαφρύτερο, γρηγορότερο και λογικό.
Ο κώδικας VBA για τη διαγραφή ενός φύλλου είναι απλός
Φύλλα ("SheetName"). Διαγραφή
Ας υποθέσουμε ότι έχετε αυτόν τον κωδικό για να προσθέσετε ένα φύλλο και στη συνέχεια να τον διαγράψετε όταν ολοκληρωθεί η εργασία.
Sub AddAndDeleteSheet () Sheets.Add 'Προσθέτει ένα νέο φύλλο στο ενεργό βιβλίο εργασίας' ---- '----' ---- 'μερικές εργασίες στο φύλλο που έγιναν ActiveSheet.Delete' διαγράφει το ενεργό τελικό υποδιεργαστικό φύλλο
Όταν εκτελείτε αυτόν τον κώδικα, το Sheets.Add θα λειτουργεί χωρίς καμία προτροπή, αλλά πότε θα έρθει ο μεταγλωττιστής ActiveSheet.Delete θα εμφανίσει ένα τέτοιο μήνυμα.
Δεδομένου ότι διαγράφετε φύλλα χρησιμοποιώντας VBA, γνωρίζετε τι κάνετε. Θα θέλατε να πείτε στο Excel να μην εμφανίζει αυτήν την προειδοποίηση και να διαγράψει το καταραμένο φύλλο.
Για να γίνει αυτό, θα απενεργοποιήσουμε το κουμπί ειδοποίησης οθόνης της εφαρμογής Excel.
Ο παρακάτω κώδικας θα παρακάμψει αυτό το μήνυμα ειδοποίησης και το φύλλο θα διαγραφεί χωρίς καμία ειδοποίηση.
Sub AddAndDeleteSheet () Application.DisplayAlerts = Λάθος 'απενεργοποίηση φύλλων κουμπιού ειδοποίησης. Προσθήκη' ---- '----' ---- 'κάποια εργασία στο φύλλο που έγινε ActiveSheet.Delete Application.DisplayAlerts = True' ενεργοποίηση το κουμπί ειδοποίησης Τέλος υπο
Εδώ διαγράφουμε το Activesheet χρησιμοποιώντας VBA. Μπορείτε να διαγράψετε οποιοδήποτε φύλλο χρησιμοποιώντας το VBA. Απλώς γράψτε Φύλλα ("Όνομα φύλλου"). Διαγράψτε. Προχωράω…
Το DisplayAlerts είναι μια ιδιότητα αντικειμένου εφαρμογής στο VBA. Εδώ το απενεργοποιούμε στην αρχή του κώδικα και το ενεργοποιούμε στο τέλος του κώδικα. Ο παραπάνω κώδικας θα επιβεβαιώσει τη διαγραφή χωρίς καμία ένδειξη.
Σημείωση:Ο παραπάνω κώδικας θα αγνοήσει όλες τις προειδοποιήσεις που εκτίθενται από το excel. Εάν θέλετε να επιτρέψετε μόνο τη διαγραφή φύλλου, χρησιμοποιήστε αυτήν τη γραμμή.
Application.DisplayAlerts = Λάθος 'απενεργοποίηση του κουμπιού ειδοποίησης ActiveSheet.Delete Application.DisplayAlerts = True' ενεργοποίηση του κουμπιού ειδοποίησης
Αυτό θα αγνοήσει μόνο την προειδοποίηση διαγραφής φύλλου.
Pro Tip: Αυτές οι γραμμές κώδικα κάνουν τον κώδικα VBA πιο αποδοτικό.Να τα χρησιμοποιείτε πάντα στην αρχή της μακροεντολής σας και να τα ενεργοποιείτε ξανά οπουδήποτε ο κώδικας αναμένεται να βγεί από τη ρουτίνα.Προειδοποίηση: Εάν δεν είναι ενεργοποιημένο πριν από την έξοδο από την υπορουτίνα, ενδέχεται να μην δείτε καμία προειδοποίηση. Ακόμα κι αν ο κωδικός σας δεν εκτελείται. Αυτό μπορεί να προκαλέσει πολλά προβλήματα.
Εάν έχετε πολλά φύλλα για διαγραφή και χρησιμοποιείτε βρόχο, δοκιμάστε αυτόν τον κωδικό -
Option Explicit Sub macro2 () Dim i As Long Application.DisplayAlerts = False For i = 1 to Worksheets.Count If Worksheets (i). Name like "Test*" Then Worksheets (i). Delete Next i Application.DisplayAlerts = True End Υπο
Αυτό είναι. Εγινε. Είναι εύκολο σαν να ενεργοποιείτε και να απενεργοποιείτε τον ανεμιστήρα σας. Έτσι δεν είναι;
Αν σας άρεσαν τα ιστολόγια μας, μοιραστείτε το με τους φίλους σας στο Facebook. Επίσης, μπορείτε να μας ακολουθήσετε στο Twitter και το Facebook.
Θα θέλαμε πολύ να σας ακούσουμε, ενημερώστε μας πώς μπορούμε να βελτιώσουμε, να συμπληρώσουμε ή να καινοτομήσουμε το έργο μας και να το κάνουμε καλύτερο για εσάς. Γράψτε μας στο ιστοσελίδα emailΛήψη αρχείου
Διαγράψτε φύλλα χωρίς προτροπές επιβεβαίωσης χρησιμοποιώντας VBA στο Microsoft Excel
Διαχωρίστε το φύλλο Excel σε πολλά αρχεία με βάση τη στήλη χρησιμοποιώντας VBA
Αλλάξτε τον προεπιλεγμένο εκτυπωτή χρησιμοποιώντας το VBA στο Microsoft Excel 2016
Απενεργοποιήστε τα μηνύματα προειδοποίησης χρησιμοποιώντας το VBA στο Microsoft Excel 2016
Εμφάνιση μηνύματος στη γραμμή κατάστασης του Excel VBA
Εισαγωγή εικόνων με χρήση VBA στο Microsoft Excel 2016
Πώς να περιηγηθείτε σε φύλλα στο Excel χρησιμοποιώντας VBA
Δημοφιλή άρθρα:
50 συντομεύσεις Excel για να αυξήσετε την παραγωγικότητά σας
Πώς να χρησιμοποιήσετε τη συνάρτηση VLOOKUP στο Excel
Πώς να χρησιμοποιήσετε τη συνάρτηση COUNTIF στο Excel
Πώς να χρησιμοποιήσετε τη συνάρτηση SUMIF στο Excel