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 VBA kóddal ellátott munkalapon
Automatikus szűrési feltételek megjelenítése / megjelenítése a Kutools for Excel munkalapján
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:
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:
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:
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:
4. Kattintson a gombra OK, az összes kritérium a következőképpen jelenik meg a kiválasztott cellában:
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:
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:
2. Ban,-ben Szuper szűrő tetején kattintson a gombra 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:
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:
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:
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.
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.
A szűrő Ctriteria megjelenítése szűrés közben
A legjobb irodai hatékonyságnövelő eszközök
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...
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!