Πώς να διαγράψετε το φύλλο εάν το όνομα περιέχει συγκεκριμένο κείμενο από το βιβλίο εργασίας;
Ας υποθέσουμε, έχετε ένα βιβλίο εργασίας που περιέχει πολλά φύλλα εργασίας και τώρα, θέλετε να διαγράψετε τα φύλλα με ονόματα καρτελών. Για παράδειγμα, εάν το όνομα του φύλλου περιέχει ένα συγκεκριμένο κείμενο "KTE", τότε διαγράψτε το και, στη συνέχεια, λάβετε το ακόλουθο στιγμιότυπο οθόνης. Πώς θα μπορούσατε να διαγράψετε τα φύλλα εάν το όνομα περιέχει ένα συγκεκριμένο κείμενο αμέσως χωρίς να τα διαγράψετε ένα προς ένα;
Διαγράψτε τα φύλλα εάν το όνομα περιέχει συγκεκριμένο κείμενο με κωδικό VBA
Διαγράψτε τα φύλλα εάν το όνομα περιέχει συγκεκριμένο κείμενο με κωδικό VBA
Εδώ, θα δημιουργήσω έναν κωδικό VBA για να διαγράψετε τα φύλλα με το όνομα, κάντε το ως εξής:
1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης Παράθυρο.
Κωδικός VBA: Διαγράψτε τα φύλλα εάν το όνομα περιέχει συγκεκριμένο κείμενο
Sub Deletebyname()
'Updateby Extendoffice
Dim shName As String
Dim xName As String
Dim xWs As Worksheet
Dim cnt As Integer
shName = Application.InputBox("Enter the specific text:", "Kutools for Excel", _
ThisWorkbook.ActiveSheet.Name, , , , , 2)
If shName = "" Then Exit Sub
xName = "*" & shName & "*"
' MsgBox xName
Application.DisplayAlerts = False
cnt = 0
For Each xWs In ThisWorkbook.Sheets
If xWs.Name Like xName Then
xWs.Delete
cnt = cnt + 1
End If
Next xWs
Application.DisplayAlerts = True
MsgBox "Have deleted" & cnt & "worksheets", vbInformation, "Kutools for Excel"
End Sub
3. Στη συνέχεια πατήστε F5 για να εκτελέσετε αυτόν τον κωδικό και εμφανίζεται ένα πλαίσιο προτροπής για να σας υπενθυμίσει ότι εισάγετε το συγκεκριμένο κείμενο στο οποίο θέλετε να διαγράψετε την καρτέλα φύλλων, δείτε το στιγμιότυπο οθόνης
4. Και στη συνέχεια κάντε κλικ στο κουμπί OK, όλα τα φύλλα με όνομα περιέχει το καθορισμένο κείμενο "KTE" έχουν διαγραφεί ταυτόχρονα. Δείτε το στιγμιότυπο οθόνης:
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!