Skip to main content

Conas critéir uathoibríoch scagaire a thaispeáint / a thaispeáint in Excel?

Is gné úsáideach é Auto Filter d’úsáideoirí Excel, uaireanta, cuirimid an Scagaire Auto i bhfeidhm chun na sonraí a scagadh de réir critéar iolrach agus an comhad a sheoladh chuig daoine eile. Sa chás seo, más mian leis na húsáideoirí eile do chritéar scagtha a fháil, conas a d’fhéadfaidís a dhéanamh?

Taispeáin / Taispeáin critéir uathoibríoch scagaire sa bhileog oibre le Feidhm Sainithe ag an Úsáideoir

Taispeáin / Taispeáin critéir uathoibríoch scagaire sa bhileog oibre le cód VBA

Taispeáin / Taispeáin critéir scagaire uathoibríoch i mbileog oibre le Kutools le haghaidh Excel smaoineamh maith3


Taispeáin / Taispeáin critéir uathoibríoch scagaire sa bhileog oibre le Feidhm Sainithe ag an Úsáideoir

Má tá na sonraí seo a leanas agat a rinne scagadh de réir critéar éigin, féach an scáileán:

critéir doc-show-filter -1

Agus anois is féidir liom Feidhm Sainmhínithe ag Úsáideoir a chruthú chun critéar an scagaire a thaispeáint sna cealla, déan na céimeanna seo a leanas le do thoil:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Fuinneog Microsoft Visual Basic d’Fheidhmchláir.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an macra seo a leanas sa Fuinneog an Mhodúil:

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. Ansin sábháil agus dún an cód seo, i gcill bhán as a chéile bán, mar shampla cill A1, iontráil an fhoirmle seo = AutoFilter_Criteria (A4) (A4 is í cill ceanntásc na sonraí scagtha), féach an pictiúr:

critéir doc-show-filter -1

4. Ansin brúigh Iontráil eochair, agus ansin roghnaigh cill A1, tarraing an láimhseáil líonta go dtí na cealla cearta gur gá duit an fhoirmle seo a bheith ann, agus tá an critéar uile curtha ar taispeáint sna cealla, féach an scáileán:

critéir doc-show-filter -1

nótaí: Má tá níos mó ná dhá chritéar i gcolún, ní thabharfaidh an Fheidhm Shainithe Úsáideora seo an toradh ceart.


Taispeáin / Taispeáin critéir uathoibríoch scagaire sa bhileog oibre le cód VBA

Anseo, is féidir liom labhairt faoi chód VBA suimiúil freisin, féadfaidh sé cabhrú leat na critéir scagaire a thaispeáint i gcill den leabhar oibre.

1. Coinnigh síos an ALT + F11 eochracha a oscailt Fuinneog Microsoft Visual Basic d’Fheidhmchláir.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an macra seo a leanas sa Fuinneog an Mhodúil:

Cód VBA: Taispeáin critéir uathoibríoch scagaire sa bhileog oibre

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. Ansin brúigh F5 eochair chun an cód seo a rith, tiocfaidh bosca pras amach chun ligean duit cill bhán a roghnú chun an critéar a chur, féach an scáileán:

critéir doc-show-filter -1

4. Agus ansin cliceáil OK, taispeánadh an critéar go léir sa chill roghnaithe mar seo a leanas:

critéir doc-show-filter -1

Nóta:

Leis an gcód VBA seo, má tá do chritéar níos mó ná dhá cheann i gcolún, ní thaispeánfar an critéar mionsonraithe scagaire dó ach taispeánfar é mar a leanas:

critéir doc-show-filter -1


Taispeáin / Taispeáin critéir scagaire uathoibríoch i mbileog oibre le Kutools le haghaidh Excel

Má tá tú Kutools le haghaidh Excel suiteáilte, is féidir leat a Scagaire Super feidhm chun sonraí a scagadh, agus ag an am céanna is féidir leat na critéir scagaire a fheiceáil am ar bith.

Kutools le haghaidh Excel, le níos mó ná 300 feidhmeanna úsáideacha, déanann sé do phoist níos éasca. 

Tar éis suiteáil saor in aisce Kutools for Excel, déan mar atá thíos le do thoil:

1. cliceáil Kutools Plus > Scagaire Super chun an Scagaire Super feidhm. Féach an pictiúr:
scagaire super doc 1

2. Sa Scagaire Super pane, cliceáil cnaipe roghnaigh doc chun an raon sonraí a theastaíonn uait a scagadh a roghnú, ansin seiceáil bosca seiceála Sonraithe chun an raon scagaire a shocrú. Féach an pictiúr:
scagaire super doc 2

3. Sa Scagaire Super pána, cliceáil líne i ngrúpa scagaire, ansin sonraigh na critéir scagaire sna liostaí anuas de réir mar a theastaíonn uait, ansin cliceáil Ok chun an socrú critéar a chríochnú. Féach an pictiúr:
scagaire super doc 2

4. cliceáil scagairí, agus rinneadh na sonraí roghnaithe a scagadh de réir na gcritéar, agus idir an dá linn, is féidir leat a fheiceáil go ndéantar critéir an scagaire a dhiúscairt sa Scagaire Super pána. Féach an pictiúr:
scagaire super doc 3

Nóta: Is féidir leat critéir an scagaire a shábháil mar chás le haghaidh úsáide eile leis an bhfóntas Super Filter.

1. cliceáil ar an Sábháil socruithe reatha scagaire cnaipe, sa dialóg popping, clóscríobh ainm scagaire.
scagaire doc kutools sár-scagaire 5

2. Nuair is mian leat na socruithe comhdaitheora seo a úsáid an chéad uair eile, cliceáil an cnaipe roghchláir, ansin roghnaigh an cás i bhfo-roghchlár na Cás socruithe scagaire sábhála oscailte.
scagaire doc kutools sár-scagaire 6


Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc


Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
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