Πώς να εμφανίσετε / εμφανίσετε κριτήρια αυτόματου φίλτρου στο Excel;
Το Αυτόματο φίλτρο είναι μια χρήσιμη λειτουργία για τους χρήστες του Excel, μερικές φορές, εφαρμόζουμε το Αυτόματο φίλτρο για να φιλτράρετε τα δεδομένα με πολλαπλά κριτήρια και να στείλουμε το αρχείο σε άλλους. Σε αυτήν την περίπτωση, εάν οι άλλοι χρήστες θέλουν να γνωρίζουν το φιλτραρισμένο κριτήριό σας, πώς θα μπορούσαν να το κάνουν;
Εμφάνιση / Εμφάνιση κριτηρίων αυτόματου φίλτρου στο φύλλο εργασίας με κωδικό VBA
Εμφάνιση / Εμφάνιση κριτηρίων αυτόματου φίλτρου στο φύλλο εργασίας με το Kutools για Excel
Εμφάνιση / Εμφάνιση κριτηρίων αυτόματου φίλτρου στο φύλλο εργασίας με λειτουργία που καθορίζεται από το χρήστη
Ας υποθέσουμε ότι έχετε τα ακόλουθα δεδομένα που έχουν φιλτραριστεί με κάποιο κριτήριο, δείτε το στιγμιότυπο οθόνης:
Και τώρα μπορώ να δημιουργήσω μια συνάρτηση καθορισμένη από τον χρήστη για να εμφανίσω το κριτήριο του φίλτρου στα κελιά, κάντε τα παρακάτω βήματα:
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 είναι το κελί κεφαλίδας των φιλτραρισμένων δεδομένων), δείτε το στιγμιότυπο οθόνης:
4. Στη συνέχεια πατήστε εισάγετε και, στη συνέχεια, επιλέξτε το κελί A1, σύρετε τη λαβή πλήρωσης προς τα δεξιά στα κελιά που πρέπει να περιέχει αυτόν τον τύπο και όλο το κριτήριο έχει εμφανιστεί στα κελιά, δείτε το στιγμιότυπο οθόνης:
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 κλειδί για την εκτέλεση αυτού του κώδικα, θα εμφανιστεί ένα πλαίσιο προτροπής για να σας επιτρέψει να επιλέξετε ένα κενό κελί για να βάλετε το κριτήριο, δείτε το στιγμιότυπο οθόνης:
4. Και στη συνέχεια κάντε κλικ στο κουμπί OK, όλο το κριτήριο έχει εμφανιστεί στο επιλεγμένο κελί ως εξής:
Σημείωση:
Με αυτόν τον κωδικό VBA, εάν το κριτήριό σας υπερβαίνει τα δύο σε μια στήλη, δεν θα εμφανίζεται το λεπτομερές κριτήριο φίλτρου αλλά θα εμφανίζεται ως εξής:
Εμφάνιση / Εμφάνιση κριτηρίων αυτόματου φίλτρου στο φύλλο εργασίας με το Kutools για Excel
Εάν έχετε Kutools για Excel εγκατεστημένο, μπορείτε να το εφαρμόσετε Σούπερ φίλτρο Λειτουργία για φιλτράρισμα δεδομένων και ταυτόχρονα μπορείτε να δείτε τα κριτήρια φίλτρου ανά πάσα στιγμή.
Kutools για Excel, με περισσότερα από 300 εύχρηστες λειτουργίες, διευκολύνει τις εργασίες σας. |
Μετά το δωρεάν εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:
1. κλικ Kutools Plus > Σούπερ φίλτρο για να εμφανιστεί το Σούπερ φίλτρο λειτουργία. Δείτε το στιγμιότυπο οθόνης:
2. Στο Σούπερ φίλτρο Παράθυρο, κάντε κλικ στο κουμπί για να επιλέξετε το εύρος δεδομένων που θέλετε να φιλτράρετε και, στη συνέχεια, επιλέξτε το πλαίσιο ελέγχου Καθορισμένο για να διορθώσετε το εύρος φίλτρων. Δείτε το στιγμιότυπο οθόνης:
3. Στο Σούπερ φίλτρο παράθυρο, κάντε κλικ σε μια γραμμή σε μια ομάδα φίλτρων και, στη συνέχεια, καθορίστε τα κριτήρια φίλτρου στις αναπτυσσόμενες λίστες όπως χρειάζεστε και, στη συνέχεια, κάντε κλικ στο Ok για να ολοκληρώσετε τη ρύθμιση κριτηρίων. Δείτε το στιγμιότυπο οθόνης:
4. κλικ Φίλτρα, και τα επιλεγμένα δεδομένα έχουν φιλτραριστεί με βάση τα κριτήρια και, εν τω μεταξύ, μπορείτε να δείτε τα κριτήρια φίλτρου Σούπερ φίλτρο τζάμι. Δείτε το στιγμιότυπο οθόνης:
Σημείωση: Μπορείτε να αποθηκεύσετε τα κριτήρια φίλτρου ως σενάριο για επόμενη χρήση με το βοηθητικό πρόγραμμα Super Filter.
1. κάντε κλικ στο Αποθηκεύστε τις τρέχουσες ρυθμίσεις φίλτρου κουμπί, στο αναδυόμενο παράθυρο διαλόγου, πληκτρολογήστε ένα όνομα φίλτρου.
2. Όταν θέλετε να χρησιμοποιήσετε αυτές τις ρυθμίσεις αρχείων την επόμενη φορά, κάντε κλικ στο κουμπί μενού και, στη συνέχεια, επιλέξτε το σενάριο στο υπομενού του Ανοίξτε το σενάριο ρυθμίσεων αποθηκευμένου φίλτρου.
Εμφάνιση κριτηρίων φίλτρου κατά το φιλτράρισμα
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!