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 cód VBA
Taispeáin / Taispeáin critéir scagaire uathoibríoch i mbileog oibre le Kutools le haghaidh Excel
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:
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:
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:
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:
4. Agus ansin cliceáil OK, taispeánadh an critéar go léir sa chill roghnaithe mar seo a leanas:
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:
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:
2. Sa Scagaire Super pane, cliceáil 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:
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:
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:
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.
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.
Taispeáin Ctriteria Scagaire Agus tú ag Scagadh
Uirlisí Táirgiúlachta Oifige is Fearr
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 ...
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á!