Ugrás a tartalomra

Hogyan jelenítse meg / jelenítse meg az automatikus szűrési feltételeket az Excelben?

Az automatikus szűrés hasznos szolgáltatás az Excel felhasználók számára, néha az automatikus szűrőt alkalmazzuk az adatok több szempont szerinti szűrésére, és a fájl elküldésére másoknak. Ebben a helyzetben, ha a többi felhasználó meg szeretné tudni az Ön szűrt kritériumát, hogyan tehetnék?

Az automatikus szűrési feltételek megjelenítése / megjelenítése a munkalapon a Felhasználó által definiált funkcióval

Az automatikus szűrési feltételek megjelenítése / megjelenítése VBA kóddal ellátott munkalapon

Automatikus szűrési feltételek megjelenítése / megjelenítése a Kutools for Excel munkalapján jó ötlet3


Az automatikus szűrési feltételek megjelenítése / megjelenítése a munkalapon a Felhasználó által definiált funkcióval

Ha feltételezzük, hogy rendelkezik a következő adatokkal, amelyeket valamilyen kritérium szűrt, lásd a képernyőképet:

doc-show-filter-szempontok1

Most létrehozhatok egy felhasználó által definiált függvényt a szűrőkritérium cellákba történő megjelenítéséhez, kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő makrót a Modul ablak:

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. Ezután mentse el és zárja be ezt a kódot, írja be ezt a képletet egy üres sor üres cellájába, például az A1 cellába = AutoFilter_Criteria (A4) (A4 a szűrt adatok fejléc cellája), lásd a képernyőképet:

doc-show-filter-szempontok1

4. Ezután nyomja meg a gombot belép gombot, majd válassza ki az A1 cellát, húzza át a kitöltő fogantyút jobb cellákra, amelyeknek tartalmaznia kell ezt a képletet, és az összes kritérium megjelent a cellákban, lásd a képernyőképet:

doc-show-filter-szempontok1

Megjegyzések: Ha kettőnél több kritérium van egy oszlopban, akkor ez a felhasználó által definiált függvény nem adja meg a megfelelő eredményt.


Az automatikus szűrési feltételek megjelenítése / megjelenítése VBA kóddal ellátott munkalapon

Itt egy érdekes VBA-kódról is beszélhetek, ez segíthet abban, hogy megjelenítse a szűrőfeltételeket a munkafüzet cellájában.

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő makrót a Modul ablak:

VBA kód: Az automatikus szűrési feltételek megjelenítése a munkalapon

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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, megjelenik egy prompt doboz, amely lehetővé teszi, hogy kiválasszon egy üres cellát a kritérium feltüntetéséhez, lásd a képernyőképet:

doc-show-filter-szempontok1

4. Kattintson a gombra OK, az összes kritérium a következőképpen jelenik meg a kiválasztott cellában:

doc-show-filter-szempontok1

Jegyzet:

Ezzel a VBA-kóddal, ha a kritérium kettőnél több egy oszlopban, akkor nem a részletes szűrési kritérium jelenik meg, hanem az alábbiak szerint jelenik meg:

doc-show-filter-szempontok1


Automatikus szűrési feltételek megjelenítése / megjelenítése a Kutools for Excel munkalapján

Ha van Kutools az Excel számára telepítve van, alkalmazhatja azt Szuper szűrő funkcióval szűrheti az adatokat, és ugyanakkor bármikor megtekintheti a szűrési feltételeket.

Kutools az Excel számára, Több mint 300 a praktikus funkciók megkönnyítik a munkáját. 

Után ingyenes telepítés Kutools for Excel, kérjük, tegye a következőket:

1. kettyenés Kutools Plus > Szuper szűrő megjeleníteni a Szuper szűrő funkció. Lásd a képernyőképet:
doc szuper szűrő 1

2. Ban,-ben Szuper szűrő tetején kattintson a gombra doc választógomb a szűrni kívánt adattartomány kiválasztásához, majd a szűrőtartomány javításához jelölje be a Specified jelölőnégyzetet. Lásd a képernyőképet:
doc szuper szűrő 2

3. Ban,-ben Szuper szűrő ablaktáblán kattintson egy sorra egy szűrőcsoportban, majd szükség szerint adja meg a szűrőfeltételeket a legördülő listákban, majd kattintson az Ok gombra a feltételek beállításának befejezéséhez. Lásd a képernyőképet:
doc szuper szűrő 2

4. kettyenés Szűrő, és a kiválasztott adatokat a kritériumok alapján szűrték, és közben megnézheti, hogy a szűrési kritériumok Szuper szűrő ablaktábla. Lásd a képernyőképet:
doc szuper szűrő 3

Megjegyzés: A szűrési feltételeket forgatókönyvként elmentheti a Szuper szűrő segédprogrammal való következő használatra.

1. kattintson a Az aktuális szűrőbeállítások mentése gombra, a felbukkanó párbeszédpanelen írja be a szűrő nevét.
doc kutools szuper szűrő 5

2. Amikor legközelebb használni szeretné ezeket a fájlbeállításokat, kattintson a menü gombra, majd válassza ki a forgatókönyvet a Nyissa meg a mentett szűrőbeállítások forgatókönyvét.
doc kutools szuper szűrő 6


A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
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