Sut i arddangos / dangos meini prawf hidlo ceir yn Excel?
Mae Auto Filter yn nodwedd ddefnyddiol i ddefnyddwyr Excel, weithiau, rydyn ni'n defnyddio'r Auto Filter i hidlo'r data yn ôl maen prawf lluosog ac yn anfon y ffeil at eraill. Yn y sefyllfa hon, os yw'r defnyddwyr eraill eisiau gwybod eich maen prawf wedi'i hidlo, sut allen nhw wneud?
Arddangos / Dangos meini prawf hidlo auto yn y daflen waith gyda chod VBA
Arddangos / Dangos meini prawf hidlo auto yn y daflen waith gyda Kutools ar gyfer Excel
Arddangos / Dangos meini prawf hidlo auto yn y daflen waith gyda Swyddogaeth Diffiniedig y Defnyddiwr
Gan dybio bod gennych y data canlynol sydd wedi'i hidlo gan ryw faen prawf, gweler y screenshot:
A nawr gallaf greu Swyddogaeth Diffiniedig Defnyddiwr i arddangos maen prawf yr hidlydd i'r celloedd, gwnewch y camau canlynol:
1. Daliwch i lawr y ALT + F11 allweddi i agor y Ffenestr Microsoft Visual Basic for Applications.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y macro canlynol yn y Ffenestr Modiwl:
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. Yna arbedwch a chau'r cod hwn, mewn cell wag o res wag, er enghraifft cell A1, nodwch y fformiwla hon = AutoFilter_Criteria (A4) (A4 yw cell pennawd y data wedi'i hidlo), gweler y screenshot:
4. Yna pwyswch Rhowch allwedd, ac yna dewiswch gell A1, llusgwch y handlen llenwi drosodd i'r celloedd cywir y mae angen i chi gynnwys y fformiwla hon, ac mae'r holl faen prawf wedi'i arddangos i'r celloedd, gweler y screenshot:
Nodyn: Os oes mwy na dau faen prawf mewn colofn, ni fydd y Swyddogaeth Diffiniedig Defnyddiwr hon yn rhoi'r canlyniad cywir.
Arddangos / Dangos meini prawf hidlo auto yn y daflen waith gyda chod VBA
Yma, gallaf hefyd siarad am god VBA diddorol, gall eich helpu i arddangos y meini prawf hidlo mewn cell o'r llyfr gwaith.
1. Daliwch i lawr y ALT + F11 allweddi i agor y Ffenestr Microsoft Visual Basic for Applications.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y macro canlynol yn y Ffenestr Modiwl:
Cod VBA: Arddangos meini prawf hidlo auto yn y daflen waith
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. Yna pwyswch F5 yn allweddol i redeg y cod hwn, bydd blwch prydlon yn popio allan i adael i chi ddewis cell wag i roi'r maen prawf, gweler y screenshot:
4. Ac yna cliciwch OK, dangoswyd yr holl faen prawf yn y gell a ddewiswyd fel a ganlyn:
Nodyn:
Gyda'r cod VBA hwn, os yw'ch maen prawf yn fwy na dau mewn colofn, ni ddangosir y maen prawf hidlo manwl iddo ond fe'i dangosir fel a ganlyn:
Arddangos / Dangos meini prawf hidlo auto yn y daflen waith gyda Kutools ar gyfer Excel
Os oes gennych Kutools ar gyfer Excel wedi'i osod, gallwch gymhwyso ei Hidlo Super swyddogaeth i hidlo data, ac ar yr un pryd gallwch weld y meini prawf hidlo unrhyw bryd.
Kutools ar gyfer Excel, gyda mwy na 300 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. |
Ar ôl gosod am ddim Kutools ar gyfer Excel, gwnewch fel isod:
1. Cliciwch Kutools Byd Gwaith > Hidlo Super i arddangos y Hidlo Super swyddogaeth. Gweler y screenshot:
2. Yn y Hidlo Super pane, cliciwch i ddewis yr ystod ddata rydych chi am ei hidlo yna gwiriwch y blwch gwirio Penodedig i atgyweirio'r ystod hidlo. Gweler y screenshot:
3. Yn y Hidlo Super cwarel, cliciwch linell mewn grŵp hidlo, yna nodwch y meini prawf hidlo yn y gwymplenni yn ôl yr angen, yna cliciwch Ok i orffen y gosodiad meini prawf. Gweler y screenshot:
4. Cliciwch Hidlo, ac mae'r data a ddewiswyd wedi'i hidlo yn ôl y meini prawf, ac yn y cyfamser, gallwch weld bod y meini prawf hidlo yn cael eu gwaredu yn y Hidlo Super cwarel. Gweler y screenshot:
Nodyn: Gallwch arbed y meini prawf hidlo fel senario ar gyfer eu defnyddio nesaf gyda'r cyfleustodau Super Filter.
1. cliciwch y Arbedwch y gosodiadau hidlo cyfredol botwm, yn y dialog popping, teipiwch enw hidlydd.
2. Pan fyddwch am ddefnyddio'r gosodiadau ffeiliwr hyn y tro nesaf, cliciwch y botwm dewislen, yna dewiswch y senario yn is-ddewislen Senario gosodiadau hidlydd wedi'i arbed.
Arddangos Ctriteria Hidlo Wrth Hidlo
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!