Jak zobrazit / zobrazit kritéria automatického filtru v aplikaci Excel?
Automatický filtr je užitečná funkce pro uživatele aplikace Excel, někdy použijeme automatický filtr k filtrování dat podle více kritérií a odeslání souboru ostatním. Pokud v této situaci chtějí ostatní uživatelé znát vaše filtrované kritérium, jak by to mohli udělat?
Zobrazit / zobrazit kritéria automatického filtru v listu pomocí funkce definované uživatelem
Zobrazit / zobrazit kritéria automatického filtru v listu s kódem VBA
Zobrazit / zobrazit kritéria automatického filtru v listu s programem Kutools pro Excel 
Zobrazit / zobrazit kritéria automatického filtru v listu pomocí funkce definované uživatelem
Předpokládejme, že máte následující data, která byla filtrována podle nějakého kritéria, viz screenshot:
A teď můžu vytvořit funkci definovanou uživatelem pro zobrazení kritéria filtru do buněk, proveďte následující kroky:
1. Podržte ALT + F11 klávesy pro otevření Okno Microsoft Visual Basic pro aplikace.
2, klikněte Vložit > Modula vložte následující makro do souboru Okno modulu:
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. Poté tento kód uložte a zavřete, do prázdné buňky prázdného řádku, například buňky A1, zadejte tento vzorec = AutoFilter_Criteria (A4) (A4 je buňka záhlaví filtrovaných dat), viz screenshot:
4. Pak stiskněte tlačítko vstoupit klíč a poté vyberte buňku A1, přetáhněte úchyt výplně doprava do buněk, které potřebujete, aby obsahoval tento vzorec, a všechna kritéria se zobrazila do buněk, viz screenshot:
Poznámka: Pokud jsou ve sloupci více než dvě kritéria, tato funkce definovaná uživatelem neposkytne správný výsledek.
Zobrazit / zobrazit kritéria automatického filtru v listu s kódem VBA
Tady mohu také mluvit o zajímavém kódu VBA, může vám pomoci zobrazit kritéria filtru v buňce sešitu.
1. Podržte ALT + F11 klávesy pro otevření Okno Microsoft Visual Basic pro aplikace.
2, klikněte Vložit > Modula vložte následující makro do souboru Okno modulu:
Kód VBA: Zobrazit kritéria automatického filtru v listu
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. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu, vyskočí okno s výzvou, které vám umožní vybrat prázdnou buňku pro vložení kritéria, viz screenshot:
4. A pak klikněte na tlačítko OK, všechna kritéria byla ve vybrané buňce zobrazena následovně:
Poznámka:
S tímto kódem VBA, pokud je vaším kritériem více než dva ve sloupci, nebude zobrazeno podrobné kritérium filtru, ale zobrazí se takto:
Zobrazit / zobrazit kritéria automatického filtru v listu s programem Kutools pro Excel
Pokud máte Kutools pro Excel nainstalován, můžete použít jeho Super filtr funkce filtrování dat a zároveň můžete kdykoli zobrazit kritéria filtru.
| Kutools pro Excel, s více než 300 užitečné funkce, které vám usnadní práci. |
Po instalace zdarma Kutools pro Excel, prosím, postupujte takto:
1. cvaknutí Kutools Plus > Super filtr pro zobrazení Super filtr funkce. Viz screenshot:
2. V Super filtr podokno, klepněte na tlačítko 
vyberte rozsah dat, který chcete filtrovat, a poté zaškrtnutím políčka Specifikováno opravte rozsah filtru. Viz snímek obrazovky:
3. V Super filtr v podokně klikněte na řádek ve skupině filtrů, poté podle potřeby určete kritéria filtru v rozevíracích seznamech a poté kliknutím na OK dokončete nastavení kritérií. Viz snímek obrazovky:
4. cvaknutí Filtra vybraná data byla filtrována podle kritérií a v průměru můžete zobrazit, že kritéria filtru jsou zobrazena v Super filtr podokno. Viz screenshot:
Poznámka: Kritéria filtru můžete uložit jako scénář pro další použití pomocí nástroje Super filtr.
1. klikněte na Uložit aktuální nastavení filtru tlačítko, v rozbalovacím dialogovém okně zadejte název filtru.
2. Chcete-li toto nastavení filtru použít příště, klikněte na tlačítko nabídky a potom vyberte scénář v podnabídce Otevřete scénář nastavení uloženého filtru.
Zobrazit kritéria filtrování při filtrování
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
