Μετάβαση στο κύριο περιεχόμενο

Πώς να εμφανίσετε / εμφανίσετε κριτήρια αυτόματου φίλτρου στο Excel;

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

Εμφάνιση / Εμφάνιση κριτηρίων αυτόματου φίλτρου στο φύλλο εργασίας με λειτουργία που καθορίζεται από το χρήστη

Εμφάνιση / Εμφάνιση κριτηρίων αυτόματου φίλτρου στο φύλλο εργασίας με κωδικό VBA

Εμφάνιση / Εμφάνιση κριτηρίων αυτόματου φίλτρου στο φύλλο εργασίας με το Kutools για Excel καλή ιδέα3


Εμφάνιση / Εμφάνιση κριτηρίων αυτόματου φίλτρου στο φύλλο εργασίας με λειτουργία που καθορίζεται από το χρήστη

Ας υποθέσουμε ότι έχετε τα ακόλουθα δεδομένα που έχουν φιλτραριστεί με κάποιο κριτήριο, δείτε το στιγμιότυπο οθόνης:

doc-show-filter-κριτήρια1

Και τώρα μπορώ να δημιουργήσω μια συνάρτηση καθορισμένη από τον χρήστη για να εμφανίσω το κριτήριο του φίλτρου στα κελιά, κάντε τα παρακάτω βήματα:

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Παράθυρο Microsoft Visual Basic for Applications.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε την ακόλουθη μακροεντολή στο Παράθυρο ενότητας:

Function AutoFilter_Criteria(Rng As Range) As String
'Updateby20140220
Dim str1 As String, str2 As String
Application.Volatile
With Rng.Parent.AutoFilter
    With .Filters(Rng.Column - .Range.Column + 1)
        If Not .On Then Exit Function
            str1 = .Criteria1
        If .Operator = xlAnd Then
            str2 = " AND " & .Criteria2
        ElseIf .Operator = xlOr Then
            str2 = " OR " & .Criteria2
        End If
    End With
End With
AutoFilter_Criteria = UCase(Rng) & ": " & str1 & str2
End Function

3. Στη συνέχεια, αποθηκεύστε και κλείστε αυτόν τον κωδικό, σε ένα κενό κελί μιας κενής σειράς, για παράδειγμα το κελί A1, εισαγάγετε αυτόν τον τύπο = Αυτόματο φίλτρο_ Κριτήρια (A4) (A4 είναι το κελί κεφαλίδας των φιλτραρισμένων δεδομένων), δείτε το στιγμιότυπο οθόνης:

doc-show-filter-κριτήρια1

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

doc-show-filter-κριτήρια1

Note: Εάν υπάρχουν περισσότερα από δύο κριτήρια σε μια στήλη, αυτή η συνάρτηση καθορισμένη από το χρήστη δεν θα δώσει το σωστό αποτέλεσμα.


Εμφάνιση / Εμφάνιση κριτηρίων αυτόματου φίλτρου στο φύλλο εργασίας με κωδικό VBA

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

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Παράθυρο Microsoft Visual Basic for Applications.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε την ακόλουθη μακροεντολή στο Παράθυρο ενότητας:

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

Sub ShowAutoFilterCriteria()
'Updateby20140219
Dim xFilter As AutoFilter
Dim TargetFilter As Filter
Dim TargetField As String
Dim xOut As String
Dim OutRng As Range
If ActiveSheet.AutoFilterMode = False Then
    Application.StatusBar = False
    Exit Sub
End If
xTitleId = "KutoolsforExcel"
Set OutRng = Application.Selection
Set OutRng = Application.InputBox("Cell", xTitleId, OutRng.Address, Type:=8)
Set xFilter = ActiveSheet.AutoFilter
For i = 1 To xFilter.Filters.Count
   TargetField = xFilter.Range.Cells(1, i).Value
   Set TargetFilter = xFilter.Filters(i)
   If TargetFilter.On Then
        On Error GoTo OutNext
        xOut = xOut & TargetField & TargetFilter.Criteria1
        Select Case TargetFilter.Operator
            Case xlAnd
            xOut = xOut & " And " & TargetField & TargetFilter.Criteria2
            Case xlOr
            xOut = xOut & " Or " & TargetField & TargetFilter.Criteria2
            Case xlBottom10Items
            xOut = xOut & " (bottom 10 items)"
            Case xlBottom10Percent
            xOut = xOut & " (bottom 10%)"
            Case xlTop10Items
            xOut = xOut & " (top 10 items)"
            Case xlTop10Percent
            xOut = xOut & " (top 10%)"
        End Select
    End If
Next
OutRng.Value = xOut
OutNext:
xOut = xOut & TargetField & "= Multiple Filters"
ErrorHandler:
Resume Next
End Sub

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

doc-show-filter-κριτήρια1

4. Και στη συνέχεια κάντε κλικ στο κουμπί OK, όλο το κριτήριο έχει εμφανιστεί στο επιλεγμένο κελί ως εξής:

doc-show-filter-κριτήρια1

Σημείωση:

Με αυτόν τον κωδικό VBA, εάν το κριτήριό σας υπερβαίνει τα δύο σε μια στήλη, δεν θα εμφανίζεται το λεπτομερές κριτήριο φίλτρου αλλά θα εμφανίζεται ως εξής:

doc-show-filter-κριτήρια1


Εμφάνιση / Εμφάνιση κριτηρίων αυτόματου φίλτρου στο φύλλο εργασίας με το Kutools για Excel

Εάν έχετε Kutools για Excel εγκατεστημένο, μπορείτε να το εφαρμόσετε Σούπερ φίλτρο Λειτουργία για φιλτράρισμα δεδομένων και ταυτόχρονα μπορείτε να δείτε τα κριτήρια φίλτρου ανά πάσα στιγμή.

Kutools για Excel, με περισσότερα από 300 εύχρηστες λειτουργίες, διευκολύνει τις εργασίες σας. 

Μετά το δωρεάν εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:

1. κλικ Kutools Plus > Σούπερ φίλτρο για να εμφανιστεί το Σούπερ φίλτρο λειτουργία. Δείτε το στιγμιότυπο οθόνης:
doc super φίλτρο 1

2. Στο Σούπερ φίλτρο Παράθυρο, κάντε κλικ στο κουμπί κουμπί επιλογής doc για να επιλέξετε το εύρος δεδομένων που θέλετε να φιλτράρετε και, στη συνέχεια, επιλέξτε το πλαίσιο ελέγχου Καθορισμένο για να διορθώσετε το εύρος φίλτρων. Δείτε το στιγμιότυπο οθόνης:
doc super φίλτρο 2

3. Στο Σούπερ φίλτρο παράθυρο, κάντε κλικ σε μια γραμμή σε μια ομάδα φίλτρων και, στη συνέχεια, καθορίστε τα κριτήρια φίλτρου στις αναπτυσσόμενες λίστες όπως χρειάζεστε και, στη συνέχεια, κάντε κλικ στο Ok για να ολοκληρώσετε τη ρύθμιση κριτηρίων. Δείτε το στιγμιότυπο οθόνης:
doc super φίλτρο 2

4. κλικ Φίλτρα, και τα επιλεγμένα δεδομένα έχουν φιλτραριστεί με βάση τα κριτήρια και, εν τω μεταξύ, μπορείτε να δείτε τα κριτήρια φίλτρου Σούπερ φίλτρο τζάμι. Δείτε το στιγμιότυπο οθόνης:
doc super φίλτρο 3

Σημείωση: Μπορείτε να αποθηκεύσετε τα κριτήρια φίλτρου ως σενάριο για επόμενη χρήση με το βοηθητικό πρόγραμμα Super Filter.

1. κάντε κλικ στο Αποθηκεύστε τις τρέχουσες ρυθμίσεις φίλτρου κουμπί, στο αναδυόμενο παράθυρο διαλόγου, πληκτρολογήστε ένα όνομα φίλτρου.
doc kutools σούπερ φίλτρο 5

2. Όταν θέλετε να χρησιμοποιήσετε αυτές τις ρυθμίσεις αρχείων την επόμενη φορά, κάντε κλικ στο κουμπί μενού και, στη συνέχεια, επιλέξτε το σενάριο στο υπομενού του Ανοίξτε το σενάριο ρυθμίσεων αποθηκευμένου φίλτρου.
doc kutools σούπερ φίλτρο 6


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

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

kte καρτέλα 201905


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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Dear Sir, Please see here below mentioned query for your easy understanding. I want to see the result in column E7 when i filter data in column A3 (Column E7) Vendor Name: (column A3) Vendor Name Abdul Aziz Fahad Al Hajri Est Ali-Ahmed-Al-Kanfari Gen. Co. Est. Amtar Al-Watan Const. & Dev. Est. Arab Al-Tamuz for Cont. Est. Arkal Est. for Cont. Danat Al-Rayan Gray Falcon
This comment was minimized by the moderator on the site
Hi, The code for show auto filter criteria in the worksheet works great. As suggested, if there are more than two criteria, I output text saying 'multiple criteria'. However, I'd really like to be able to generate a list of what the multiple criteria are. Is this at all possible? Cheers, Alex
This comment was minimized by the moderator on the site
hi there, thank you for the code, it works like a charm. One thing I have trouble with thouhg - when I select filter criteria the designated cell displays whichever two I had selected. If then I select two different criteria the designated cell content doesn't refresh. It seems stuck at my first filter selection. Is there anythig I can do? Thank you, Wendy
This comment was minimized by the moderator on the site
This code is great and has helped me a lot. I ran into a problem when I tried to select new filter criteria. The cell that displays the filter criteria selected doesnt refresh when I am selecting new criteria. Please help, Thank you, Wendy
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations