Ενώ εργάζεται με Microsoft Excel , το φιλτράρισμα των δεδομένων μας επιτρέπει να βλέπουμε μόνο τις πληροφορίες που θέλουμε. Κάθε φορά που θέλουμε να επικεντρωθούμε σε ορισμένα στοιχεία ενός μεγάλου συνόλου δεδομένων ή πινάκων, αυτή η τεχνική είναι χρήσιμη. Όταν η εργασία τελειώσει, χρειαζόμαστε πίσω αυτά τα δεδομένα στο λογιστικό μας φύλλο. Αν και Excel έχει ήδη ένα ενσωματωμένο εργαλείο γι' αυτό. VBA είναι ο πιο αποτελεσματικός, χρονοβόρος και ασφαλής τρόπος για την εκτέλεση οποιασδήποτε εργασίας στο Excel. Σε αυτό το άρθρο, θα παρουσιάσουμε μερικά παραδείγματα για την αφαίρεση του φίλτρου στο Excel VBA.

Κατεβάστε το βιβλίο ασκήσεων

Μπορείτε να κατεβάσετε το τετράδιο εργασιών και να εξασκηθείτε μαζί τους.

5 απλές μέθοδοι για την αφαίρεση φίλτρου στο Excel VBA

Το Excel διαθέτει ενσωματωμένα εργαλεία και συναρτήσεις για την αφαίρεση φίλτρων από τα δεδομένα. Αλλά με το Excel VBA μπορούμε να αφαιρέσουμε γρήγορα αυτά τα φίλτρα απλά εκτελώντας την εντολή VBA κώδικα. Για να αφαιρέσουμε τα φίλτρα από τα δεδομένα θα χρησιμοποιήσουμε το ακόλουθο σύνολο δεδομένων. Το σύνολο δεδομένων περιέχει κάποια IDs προϊόντων στη στήλη B , ονόματα προϊόντων στη στήλη C και η χώρα παράδοσης στη στήλη D Καθώς θέλουμε να δούμε μόνο τις λεπτομέρειες του προϊόντος Σαμπουάν και Conditioner , οπότε τα φιλτράραμε. Τώρα, ας υποθέσουμε ότι πρέπει να καθαρίσουμε αυτά τα φιλτραρισμένα δεδομένα. Θα χρησιμοποιήσουμε κάποια Μακροεντολές Excel VBA για αυτό. Ας δείξουμε τα παραδείγματα για να καθαρίσουμε αυτά τα φίλτρα από τα δεδομένα χρησιμοποιώντας Excel VBA .

1. Εφαρμόστε το VBA για να αφαιρέσετε όλα τα φίλτρα από τον πίνακα του Excel

Με Excel VBA , οι χρήστες μπορούν εύκολα να χρησιμοποιήσουν τον κώδικα που λειτουργεί ως μενού του excel από την κορδέλα. Για να χρησιμοποιήσετε το VBA κώδικα για να αφαιρέσετε όλα τα φίλτρα από τον πίνακα του Excel, ας ακολουθήσουμε τα βήματα παρακάτω.

ΒΗΜΑΤΑ:

• Πρώτον, μεταβείτε στο Προγραμματιστής από την κορδέλα.
• Δεύτερον, από το Κωδικός κατηγορία, κάντε κλικ στο Visual Basic για να ανοίξετε το Visual Basic Editor . ή πατήστε Alt + F11 για να ανοίξετε το Visual Basic Editor .

• Αντί να το κάνετε αυτό, μπορείτε απλά να κάνετε δεξί κλικ στο φύλλο εργασίας σας και να μεταβείτε στην επιλογή Προβολή κωδικού Αυτό θα σας μεταφέρει επίσης στο Visual Basic Editor .

• Αυτό θα εμφανιστεί στο Visual Basic Editor όπου γράφουμε τους κώδικες μας για να δημιουργήσουμε έναν πίνακα από το εύρος.
• Τρίτον, κάντε κλικ στο Ενότητα από το Εισαγωγή αναπτυσσόμενη γραμμή μενού.

• Αυτό θα δημιουργήσει ένα Ενότητα στο βιβλίο εργασίας σας.
• Και, αντιγράψτε και επικολλήστε το VBA κώδικα που φαίνεται παρακάτω.

Κωδικός VBA:

 Sub Remove_Filters1() Dim lstObj As ListObject Set lstObj = Sheet1.ListObjects(1) lstObj.AutoFilter.ShowAllData End Sub 

• Μετά από αυτό, εκτελέστε τον κώδικα κάνοντας κλικ στο κουμπί RubSub ή πατώντας τη συντόμευση πληκτρολογίου F5 .

• Και, τέλος, ακολουθώντας τα βήματα θα αφαιρέσετε όλα τα φίλτρα από τον πίνακα excel στο φύλλο εργασίας σας.

Επεξήγηση κώδικα VBA

 Sub Remove_Filters1() 

Υπο είναι ένα μέρος του κώδικα που χρησιμοποιείται για να διεκπεραιώσει την εργασία στον κώδικα αλλά δεν θα επιστρέψει καμία τιμή. Είναι επίσης γνωστό ως υποδιαδικασία. Έτσι ονομάζουμε τη διαδικασία μας Remove_Filters1() .

 Dim lstObj As ListObject 

Δήλωση μεταβλητής.

 Set lstObj = Sheet1.ListObjects(1) 

Το VBA Set μας επιτρέπει απλώς να αποφύγουμε να πληκτρολογούμε ξανά και ξανά την περιοχή που πρέπει να επιλέξουμε κατά την εκτέλεση του κώδικα. Έτσι, ορίζουμε την αναφορά στον πρώτο πίνακα του φύλλου.

 lstObj.AutoFilter.ShowAllData 

Αυτή η γραμμή κώδικα θα αφαιρέσει όλα τα φίλτρα για το σύνολο των δεδομένων.

 End Sub 

Αυτό θα τερματίσει τη διαδικασία.

Διαβάστε περισσότερα: Πώς να αφαιρέσετε το φίλτρο στο Excel (5 εύκολοι & γρήγοροι τρόποι)

2. Καθαρισμός όλων των φίλτρων πίνακα του Excel σε ένα φύλλο με χρήση της VBA

Ας δούμε ένα άλλο παράδειγμα χρήσης του Excel VBA για την αφαίρεση όλων των φίλτρων του πίνακα Excel σε ένα φύλλο. Για το σκοπό αυτό, ακολουθήστε τα παρακάτω βήματα.

ΒΗΜΑΤΑ:

• Πρώτον, μεταβείτε στο Ανάπτυξη r από την κορδέλα.
• Δεύτερον, κάντε κλικ στο Visual Basic για να ανοίξετε το Visual Basic Editor .
• Ένας άλλος τρόπος για να ανοίξετε το Visual Basic Editor είναι απλά να πατήσετε Alt + F11 .
• Ή, κάντε δεξί κλικ στο φύλλο και, στη συνέχεια, επιλέξτε Προβολή κωδικού .
• Στη συνέχεια, μεταβείτε στο Εισαγωγή και επιλέξτε Ενότητα από το αναπτυσσόμενο μενού.
• Και, αυτό θα ανοίξει το παράθυρο visual basic.
• Μετά από αυτό, αντιγράψτε και επικολλήστε το Κώδικας VBA παρακάτω.

Κωδικός VBA:

 Sub Remove_Filters2() Dim lstObj As ListObject For Each lstObj In Sheet2.ListObjects lstObj.AutoFilter.ShowAllData Next lstObj End Sub 

• Περαιτέρω, πατήστε το Πλήκτρο F5 ή κάντε κλικ στο Run Sub για να εκτελέσετε τον κώδικα.

• Και, αυτός ο κώδικας θα καθαρίσει όλα τα φίλτρα του πίνακα excel από το φύλλο σας και θα δώσει την έξοδο όπως Μέθοδος 1 .

Επεξήγηση κώδικα VBA

 For Each lstObj In Sheet2.ListObjects lstObj.AutoFilter.ShowAllData Next lstObj 

Αυτές οι γραμμές κώδικα διατρέχουν όλους τους πίνακες του φύλλου και αφαιρούν όλα τα φίλτρα για ολόκληρο το φύλλο εργασίας.

Διαβάστε περισσότερα: Πώς να φιλτράρετε τον πίνακα Pivot του Excel (8 αποτελεσματικοί τρόποι)

3. Αφαίρεση φίλτρου από μια στήλη με VBA στο Excel

Ας ρίξουμε μια ματιά σε έναν άλλο τρόπο για να καταργήσετε το φίλτρο από μια στήλη με το Excel VBA. Ας δούμε τη διαδικασία γι' αυτό.

ΒΗΜΑΤΑ:

• Για να ξεκινήσετε, κάντε κλικ στο Προγραμματιστής στην καρτέλα της κορδέλας.
• Δεύτερον, ξεκινήστε το Visual Basic Editor κάνοντας κλικ στο Visual Basic .
• Εναλλακτικά, μπορείτε να αποκτήσετε πρόσβαση στο Visual Basic Editor πατώντας Alt + F11 .
• Ή, δεξί κλικ στο στο φύλλο και επιλέξτε Προβολή κωδικού από το μενού.
• Στη συνέχεια, επιλέξτε το Ενότητα από το αναπτυσσόμενο πλαίσιο κάτω από Εισαγωγή .
• Και θα εμφανιστεί το παράθυρο visual basic.
• Γράψτε τον κώδικα εκεί.

Κωδικός VBA:

 Sub Remove_Filter3() Sheet1.Range("B3:D16").AutoFilter Field:=4 End Sub 

• Τέλος, πατήστε το πλήκτρο Πλήκτρο F5 για να εκτελέσετε τον κώδικα.

• Χρησιμοποιώντας αυτόν τον κώδικα θα αφαιρέσετε το φίλτρο από μια στήλη του πίνακα excel.

Επεξήγηση κώδικα VBA

 Sheet1.Range("B3:D16").AutoFilter Πεδίο:=4 

Αυτή η γραμμή κώδικα καθορίζει μόνο τον αριθμό πεδίου και καμία άλλη παράμετρο.

Διαβάστε περισσότερα: Excel VBA για να φιλτράρετε στην ίδια στήλη με πολλαπλά κριτήρια (6 παραδείγματα)

Παρόμοιες αναγνώσεις

• Excel VBA: Πώς να φιλτράρετε με πολλαπλά κριτήρια σε συστοιχία (7 τρόποι)
• Κώδικας VBA για το φιλτράρισμα δεδομένων με βάση την ημερομηνία στο Excel (4 παραδείγματα)
• Πώς να χρησιμοποιήσετε το φίλτρο στο προστατευμένο φύλλο του Excel (με εύκολα βήματα)
• Φίλτρο διαφορετικής στήλης με πολλαπλά κριτήρια στο Excel VBA
• Κώδικας VBA για το φιλτράρισμα δεδομένων στο Excel (8 παραδείγματα)

4. Καθαρισμός όλων των φίλτρων σε ένα ενεργό φύλλο εργασίας

Τώρα, ρίξτε μια ματιά σε ένα άλλο Excel VBA για να καθαρίσετε όλα τα φίλτρα από ένα ενεργό φύλλο εργασίας. Ας ακολουθήσουμε τα βήματα παρακάτω.

ΒΗΜΑΤΑ:

• Για να ξεκινήσετε, ανοίξτε την κορδέλα και επιλέξτε το Προγραμματιστής επιλογή.
• Στη συνέχεια, για να αποκτήσετε πρόσβαση στο Visual Basic Editor , κάντε κλικ στο Visual Basic .
• Πιέζοντας Alt + F11 θα εμφανίσει επίσης το Visual Basic Editor .
• Εναλλακτικά, δεξί κλικ στο το φύλλο και επιλέξτε Προβολή κωδικού από το μενού που εμφανίζεται.
• Τώρα, από το Εισαγωγή drop-down επιλογή, επιλέξτε Ενότητα .
• Στη συνέχεια, αντιγράψτε και επικολλήστε το VBA κώδικα που ακολουθεί.

Κωδικός VBA:

 Public Sub RemoveFilter() If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData End If End Sub 

• Εκτελέστε τον κώδικα πατώντας το πλήκτρο F5 κλειδί.

• Και, τέλος, θα μπορείτε να αφαιρείτε τα φίλτρα από τα δεδομένα σας χρησιμοποιώντας το εξής VBA κώδικας όπως Μέθοδος-1 .

Διαβάστε περισσότερα: Πώς να φιλτράρετε με λίστα σε άλλο φύλλο στο Excel (2 μέθοδοι)

5. Excel VBA για την αφαίρεση όλων των φίλτρων από ένα βιβλίο εργασίας

Ας εξερευνήσουμε ένα άλλο r Excel VBA τρόπος για να αφαιρέσετε όλα τα φίλτρα από ένα βιβλίο εργασίας. Ας δούμε λοιπόν τα βήματα προς τα κάτω.

ΒΗΜΑΤΑ:

• Για να ξεκινήσετε, ανοίξτε την κορδέλα και επιλέξτε Προγραμματιστής από το αναπτυσσόμενο μενού.
• Στη συνέχεια επιλέξτε Visual Basic για να ανοίξετε το Visual Basic Editor .
• Το Visual Basic Editor μπορείτε επίσης να έχετε πρόσβαση πατώντας το πλήκτρο Alt + F11 .
• Εναλλακτικά, μπορείτε να δεξί κλικ στο το φύλλο και επιλέξτε Προβολή κωδικού από το αναδυόμενο μενού.
• Μετά από αυτό, επιλέξτε Ενότητα από το Εισαγωγή αναπτυσσόμενο μενού.
• Στη συνέχεια, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα VBA.

Κωδικός VBA:

 Sub Remove_Filters_From_Workbook() Dim shtnam As Worksheet Dim lstObj As ListObject For Each shtnam In Worksheets For Each lstObj In shtnam.ListObjects lstObj.AutoFilter.ShowAllData Next lstObj Next shtnam End Sub 

• Τέλος, εκτελέστε τον κώδικα πατώντας F5 στο πληκτρολόγιό σας και βλέπετε το αποτέλεσμα στο φύλλο εργασίας σας.

• Αυτό το VBA ο κώδικας θα καθαρίσει όλα τα φίλτρα από ολόκληρο το βιβλίο εργασίας σας, όπως φαίνεται στο πρώτη μέθοδος .

Επεξήγηση κώδικα VBA

 For Each shtnam In Worksheets For Each lstObj In shtnam.ListObjects lstObj.AutoFilter.ShowAllData Next lstObj Next shtnam 

Ο πρώτος βρόχος είναι για την επανάληψη όλων των πινάκων στο βιβλίο εργασίας. Ο δεύτερος βρόχος είναι για την επανάληψη όλων των πινάκων στο φύλλο εργασίας. Στη συνέχεια, η γραμμή μέσα στο βρόχο απλώς καθαρίζει το φίλτρο από τον πίνακα. Μετά από αυτό, κλείστε το βρόχο με τις δύο τελευταίες γραμμές.

Διαβάστε περισσότερα: Συντόμευση για το φίλτρο του Excel (3 γρήγορες χρήσεις με παραδείγματα)

Συμπέρασμα

Οι παραπάνω μέθοδοι θα σας βοηθήσουν να Αφαίρεση φίλτρου στο Excel VBA Αν έχετε οποιεσδήποτε ερωτήσεις, προτάσεις ή σχόλια, παρακαλούμε ενημερώστε μας στο τμήμα σχολίων. Ή μπορείτε να ρίξετε μια ματιά στα άλλα άρθρα μας στην ενότητα ExcelWIKI.com blog!