Kako prikazati / prikazati merila samodejnega filtriranja v Excelu?
Samodejni filter je uporabna funkcija za uporabnike Excela, včasih pa samodejni filter uporabimo za filtriranje podatkov po več kriterijih in pošiljanje datoteke drugim. Če bi v tem primeru ostali uporabniki želeli vedeti vaše filtrirano merilo, kako bi to lahko storili?
Prikaži / prikaži merila samodejnega filtriranja na delovnem listu z uporabniško določeno funkcijo
Prikaži / prikaži merila samodejnega filtriranja na delovnem listu s kodo VBA
Prikaži / prikaži merila samodejnega filtriranja na delovnem listu s programom Kutools za Excel 
Prikaži / prikaži merila samodejnega filtriranja na delovnem listu z uporabniško določeno funkcijo
Če imate naslednje podatke, ki so bili filtrirani po nekem kriteriju, si oglejte posnetek zaslona:
Zdaj lahko ustvarim uporabniško določeno funkcijo za prikaz kriterija filtra v celice, naredite naslednje:
1. Držite tipko ALT + F11 tipke za odpiranje Okno Microsoft Visual Basic za aplikacije.
2. Kliknite Vstavi > Moduliin v mapo prilepite naslednji makro Okno modula:
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. Nato shranite in zaprite to kodo, v prazno celico prazne vrstice, na primer celico A1, vnesite to formulo = Merila samodejnega filtra (A4) (A4 je celica glave filtriranih podatkov), glejte posnetek zaslona:
4. Nato pritisnite Vnesite in nato izberite celico A1, povlecite ročico za polnjenje v desne celice, ki jih potrebujete, da vsebujejo to formulo, in vsi kriteriji so bili prikazani v celicah, glejte posnetek zaslona:
Opombe: Če sta v stolpcu več kot dva merila, ta uporabniško določena funkcija ne bo dala pravega rezultata.
Prikaži / prikaži merila samodejnega filtriranja na delovnem listu s kodo VBA
Tu lahko govorim tudi o zanimivi kodi VBA, lahko vam pomaga prikazati kriterije filtra v celici delovnega zvezka.
1. Držite tipko ALT + F11 tipke za odpiranje Okno Microsoft Visual Basic za aplikacije.
2. Kliknite Vstavi > Moduliin v mapo prilepite naslednji makro Okno modula:
Koda VBA: Prikažite merila samodejnega filtriranja na delovnem 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. Nato pritisnite F5 tipko za zagon te kode, se bo pojavilo pozivno polje, v katerem boste lahko izbrali prazno celico, v katero boste postavili merilo, glejte sliko zaslona:
4. In nato kliknite OK, je bil v izbrani celici prikazan ves kriterij, kot sledi:
Opomba:
S to kodo VBA, če je vaše merilo več kot dve v stolpcu, ne bo prikazano podrobno merilo filtra, temveč prikazano na naslednji način:
Prikaži / prikaži merila samodejnega filtriranja na delovnem listu s programom Kutools za Excel
Če imate Kutools za Excel nameščen, lahko uporabite njegovo Super filter funkcijo za filtriranje podatkov, hkrati pa si lahko kadar koli ogledate merila za filtriranje.
| Kutools za Excel, z več kot 300 priročne funkcije, vam olajša delo. |
po brezplačna namestitev Kutools za Excel, naredite spodaj:
1. klik Kutools Plus > Super filter za prikaz Super filter funkcijo. Oglejte si posnetek zaslona:
2. V Ljubljani Super filter podokno, kliknite 
da izberete obseg podatkov, ki ga želite filtrirati, nato potrdite polje Določeno, da popravite obseg filtra. Oglejte si posnetek zaslona:
3. V Ljubljani Super filter v podoknu kliknite vrstico v skupini filtrov, nato v spustnih seznamih določite kriterije filtra, kot jih potrebujete, nato kliknite V redu, da končate nastavitev meril. Oglejte si posnetek zaslona:
4. klik filter, izbrani podatki pa so bili filtrirani po kriterijih, medtem ko si lahko ogledate, da so kriteriji filtra prikazani v Super filter podokno. Oglejte si posnetek zaslona:
Opomba: Merila filtra lahko shranite kot scenarij za naslednjo uporabo s pripomočkom Super Filter.
1. kliknite Shrani trenutne nastavitve filtra gumb, v pogovornem oknu vnesite ime filtra.
2. Ko želite naslednjič uporabiti te nastavitve datoteke, kliknite gumb menija in nato v podmeniju izberite scenarij Odpri scenarij nastavitev shranjenih filtrov.
Prikaži kriterije filtra med filtriranjem
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
