Πώς να διαγράψετε φίλτρα από όλα τα φύλλα εργασίας στο ενεργό βιβλίο εργασίας στο Excel;
Ας υποθέσουμε ότι έχετε δημιουργήσει πολλά φίλτρα σε διαφορετικά φύλλα εργασίας σε ένα βιβλίο εργασίας του Excel και τώρα θέλετε να διαγράψετε όλα αυτά τα φίλτρα ταυτόχρονα. Κανονικά, πρέπει να μεταβείτε στο φύλλο εργασίας ένα προς ένα για να ελέγξετε το φίλτρο και στη συνέχεια να το διαγράψετε χειροκίνητα. Υπάρχει κάποια βολική μέθοδος για την εκκαθάριση φίλτρων από όλα τα φύλλα εργασίας σε ένα ενεργό βιβλίο εργασίας; Δοκιμάστε τη μέθοδο σε αυτό το άρθρο.
Διαγραφή φίλτρων από όλα τα φύλλα εργασίας στο ενεργό βιβλίο εργασίας με κωδικό VBA
Διαγραφή φίλτρων από όλα τα φύλλα εργασίας στο ενεργό βιβλίο εργασίας με κωδικό VBA
Εκτελέστε το παρακάτω σενάριο VBA για να διαγράψετε φίλτρα από όλα τα φύλλα εργασίας στο ενεργό βιβλίο εργασίας.
1. Στο βιβλίο εργασίας από το οποίο πρέπει να διαγράψετε τα φίλτρα, πατήστε το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης. Στη συνέχεια, αντιγράψτε και επικολλήστε το παρακάτω σενάριο VBA στο παράθυρο Module. Δείτε παρακάτω το στιγμιότυπο οθόνης:
Κωδικός VBA: Διαγραφή φίλτρων από όλα τα φύλλα εργασίας στο ενεργό βιβλίο εργασίας
Sub Clear_fiter()()
'Updated by Extendoffice 20210625
Dim xAF As AutoFilter
Dim xFs As Filters
Dim xLos As ListObjects
Dim xLo As ListObject
Dim xRg As Range
Dim xWs As Worksheet
Dim xIntC, xF1, xF2, xCount As Integer
Application.ScreenUpdating = False
On Error Resume Next
For Each xWs In Application.Worksheets
xWs.ShowAllData
Set xLos = xWs.ListObjects
xCount = xLos.Count
For xF1 = 1 To xCount
Set xLo = xLos.Item(xF1)
Set xRg = xLo.Range
xIntC = xRg.Columns.Count
For xF2 = 1 To xIntC
xLo.Range.AutoFilter Field:=xF2
Next
Next
Next
Application.ScreenUpdating = True
End Sub
3. Πάτα το F5 κλειδί για την εκτέλεση του κώδικα. Στη συνέχεια, όλα τα φίλτρα σε όλα τα φύλλα εργασίας στο τρέχον βιβλίο εργασίας διαγράφονται αμέσως.
Σχετικά Άρθρα:
- Πώς να εκκαθαρίσετε την προσωρινή μνήμη φίλτρου (παλιά στοιχεία) από τον συγκεντρωτικό πίνακα στο Excel;
- Πώς να διαγράψετε φίλτρα κατά το άνοιγμα, την αποθήκευση ή το κλείσιμο του βιβλίου εργασίας στο Excel;
- Πώς να φιλτράρετε δεδομένα με βάση το πλαίσιο ελέγχου στο Excel;
- Πώς να συμπληρώσετε σειρά αριθμών σε μια στήλη φιλτραρισμένης λίστας στο Excel;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
