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