Note: The other languages of the website are Google-translated. Back to English

Πώς να διαγράψετε φίλτρα κατά το άνοιγμα, την αποθήκευση ή το κλείσιμο του βιβλίου εργασίας στο Excel;

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

Διαγραφή φίλτρων κατά το άνοιγμα του βιβλίου εργασίας στο Excel
Διαγραφή φίλτρων κατά την αποθήκευση του βιβλίου εργασίας στο Excel
Διαγραφή φίλτρων κατά το κλείσιμο / έξοδο από το βιβλίο εργασίας στο Excel


Διαγραφή φίλτρων κατά το άνοιγμα του βιβλίου εργασίας στο Excel

Αυτή η ενότητα μιλά για εκκαθάριση φίλτρων σε όλα τα φύλλα εργασίας κατά το άνοιγμα ενός βιβλίου εργασίας. Κάντε τα εξής:

1. Σε ένα βιβλίο εργασίας πρέπει να διαγράψετε αυτόματα όλα τα φίλτρα κατά το άνοιγμα, πατήστε το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στο Microsoft Visual Basic για εφαρμογές κάντε διπλό κλικ Αυτό το βιβλίο εργασίας στα αριστερά Σχέδιο και, στη συνέχεια, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA στο Αυτό το βιβλίο εργασίας (Κωδικός) παράθυρο. Δείτε το στιγμιότυπο οθόνης:

Κωδικός VBA: Διαγραφή όλων των φίλτρων κατά το άνοιγμα του βιβλίου εργασίας

Private Sub Workbook_Open()
'Updated by Extendoffice 20221012
    Dim ws As Worksheet
    For Each ws In Worksheets
        If ws.AutoFilterMode Then
            ws.ShowAllData
        End If
    Next ws
End Sub

3. Πάτα το άλλος + Q πλήκτρα για έξοδο από το Microsoft Visual Basic για εφαρμογές παράθυρο.

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

Από εδώ και στο εξής, όταν ανοίξετε αυτό το βιβλίο εργασίας με δυνατότητα Macro, όλα τα φίλτρα σε αυτό το βιβλίο εργασίας θα διαγραφούν αυτόματα.


Διαγραφή φίλτρων κατά την αποθήκευση του βιβλίου εργασίας στο Excel

Μπορείτε να διαγράψετε όλα τα φίλτρα από το τρέχον βιβλίο εργασίας κάθε φορά που το αποθηκεύετε.

1. Στο βιβλίο εργασίας πρέπει να διαγράψετε αυτόματα όλα τα φίλτρα από, πατήστε το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στο Microsoft Visual Basic για εφαρμογές κάντε διπλό κλικ Αυτό το βιβλίο εργασίας στα αριστερά Σχέδιο και, στη συνέχεια, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA στο Αυτό το βιβλίο εργασίας (Κωδικός) παράθυρο. Δείτε το στιγμιότυπο οθόνης:

Κωδικός VBA: Διαγραφή φίλτρων κατά την αποθήκευση του βιβλίου εργασίας

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Updated by Extendoffice 20221012
    Dim ws As Worksheet
    For Each ws In Worksheets
        If ws.AutoFilterMode Then
            ws.ShowAllData
        End If
    Next ws
End Sub

3. Τύπος άλλος + Q πλήκτρα για έξοδο από το Microsoft Visual Basic για εφαρμογές παράθυρο.

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


Διαγραφή φίλτρων κατά το κλείσιμο / έξοδο από το βιβλίο εργασίας στο Excel

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

1. Ανοίξτε το βιβλίο εργασίας από το οποίο πρέπει να διαγράψετε αυτόματα όλα τα φίλτρα και μετά πατήστε το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στο Microsoft Visual Basic για εφαρμογές κάντε διπλό κλικ Αυτό το βιβλίο εργασίας στα αριστερά Σχέδιο και, στη συνέχεια, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA στο Αυτό το βιβλίο εργασίας (Κωδικός) παράθυρο. Δείτε το στιγμιότυπο οθόνης:

Κωδικός VBA: Εκκαθάριση όλων των φίλτρων στα φύλλα εργασίας κατά το κλείσιμο / έξοδο από το βιβλίο εργασίας

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim ws As Worksheet
    For Each ws In Worksheets
        If ws.AutoFilterMode Then
            ws.AutoFilterMode = False
        End If
    Next ws
End Sub

Note: Εάν θέλετε απλώς να διαγράψετε φίλτρα στο τρέχον φύλλο εργασίας, χρησιμοποιήστε τον παρακάτω κώδικα VBA.

Κωδικός VBA: Διαγραφή φίλτρου σε ενεργό φύλλο κατά το κλείσιμο του βιβλίου εργασίας

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Updated by Extendoffice 20221012
    Dim ws As Worksheet
    Set ws = ActiveSheet
        If ws.AutoFilterMode Then
            ws.ShowAllData
        End If
End Sub

3. Τύπος άλλος + Q πλήκτρα για έξοδο από το Microsoft Visual Basic για εφαρμογές παράθυρο.

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


Σχετικά Άρθρα:


Τα καλύτερα εργαλεία παραγωγικότητας του Office

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (6)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτή η λύση δεν "καθαρίζει" τα Αυτόματα Φίλτρα, τα αφαιρεί εντελώς.
Για να επαναφέρετε τα φίλτρα και να τα διατηρήσετε για την επόμενη περίοδο λειτουργίας, αντικαταστήστε το ws.AutoFilter.ShowAllData με το ws.AutoFilterMode = False
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Σας ευχαριστώ για αυτό το σχόλιο! Αυτό ακριβώς χρειαζόμουν για το υπολογιστικό φύλλο μου. Εκτιμώ πολύ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δοκίμασα το Εκκαθάριση όλων των φίλτρων σε φύλλα εργασίας κατά το κλείσιμο/έξοδο του βιβλίου εργασίας αλλά δεν λειτούργησε καθόλου, χρειάζεται κάτι;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας,
Δεν απαιτούνται άλλες λειτουργίες εκτός από τα βήματα που δείξαμε. Ποια έκδοση του Excel χρησιμοποιείτε;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Hoe kan ik wel de "filterknoppen" behouden;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια Tuur,
Οι κωδικοί VBA στην ανάρτηση έχουν ενημερωθεί. Συγγνώμη για την ταλαιπωρία.
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL