Ինչպե՞ս ցուցադրել / ցույց տալ ավտոմատ ֆիլտրի չափանիշները Excel- ում:
Auto Filter- ը օգտակար հատկություն է Excel- ի օգտագործողների համար, երբեմն մենք օգտագործում ենք Auto Filter- ը ՝ տվյալների բազմակի չափանիշներով զտման համար և ֆայլը ուրիշներին ուղարկելու համար: Այս իրավիճակում, եթե մյուս օգտվողները ցանկանում են իմանալ ձեր զտված չափանիշը, ինչպե՞ս կարող են նրանք դա անել:
BAուցադրել / ցույց տալ ավտոմատ զտիչի չափանիշները VBA կոդով աշխատաթերթում
Excel- ի համար Kutools- ի հետ աշխատաթերթում ցուցադրել / ցուցադրել ավտոմատ զտիչի չափանիշները
Userուցադրել / ցույց տալ ավտոմատ զտիչի չափանիշները աշխատաթերթում ՝ օգտագործողի կողմից սահմանված գործառույթով
Ենթադրելով, որ ունեք հետևյալ տվյալները, որոնք զտված են ինչ-որ չափանիշներով, տե՛ս նկարը.
Եվ հիմա ես կարող եմ ստեղծել Օգտագործողի կողմից սահմանված գործառույթ ՝ ֆիլտրի չափանիշը բջիջների մեջ ցուցադրելու համար, խնդրում եմ անել հետևյալ քայլերով.
1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic կիրառական ծրագրերի պատուհան.
2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ մակրոը ՝ Մոդուլի պատուհան:
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. Դրանից հետո պահեք և փակեք այս կոդը, դատարկ շարքի դատարկ վանդակում, օրինակ ՝ A1 բջիջը, մուտքագրեք այս բանաձևը = Ավտոմատ ֆիլտրի չափանիշներ (A4) (A4 զտված տվյալների վերնագրի բջիջն է), տես նկարի նկարը.
4, Դրանից հետո սեղմեք Մտնել ստեղնը, ապա ընտրեք A1 բջիջը, լրացնելու բռնիչը դեպի աջ բջիջներ քաշեք, որոնք անհրաժեշտ է պարունակել այս բանաձևը, և բոլոր չափանիշները ցուցադրվել են բջիջների մեջ, տե՛ս նկարը.
ՆշումԵթե սյունակում կա երկուից ավելի չափանիշ, օգտագործողի կողմից սահմանված այս գործառույթը ճիշտ արդյունք չի տա:
BAուցադրել / ցույց տալ ավտոմատ զտիչի չափանիշները VBA կոդով աշխատաթերթում
Այստեղ ես կարող եմ նաև խոսել VBA- ի հետաքրքիր կոդի մասին, այն կարող է օգնել ձեզ ֆիլտրի չափանիշները ցուցադրել աշխատանքային գրքի բջիջում:
1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic կիրառական ծրագրերի պատուհան.
2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ մակրոը ՝ Մոդուլի պատուհան:
VBA կոդ. Autoուցադրեք ավտոմատ զտիչի չափանիշները աշխատանքային թերթում
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, Դրանից հետո սեղմեք F5 Այս կոդը գործարկելու համար բանալին կհայտնվի հուշման տուփ, որը թույլ կտա ձեզ ընտրել դատարկ բջիջ չափանիշը դնելու համար, տես նկարի նկարը.
4. Եվ այնուհետեւ կտտացրեք OK, ընտրված խցում բոլոր չափանիշները ցուցադրվել են հետևյալով.
Նշում:
Այս VBA կոդով, եթե սյունակում ձեր չափանիշը երկուսից ավելին է, ապա այն չի ցուցադրվի ֆիլտրի մանրամասն չափանիշը, այլ կցուցադրվի հետևյալ կերպ.
Excel- ի համար Kutools- ի հետ աշխատաթերթում ցուցադրել / ցուցադրել ավտոմատ զտիչի չափանիշները
Եթե դուք ունեք Excel- ի համար նախատեսված գործիքներ տեղադրված, դուք կարող եք կիրառել այն Սուպեր զտիչ գործառույթը ՝ տվյալների զտման համար, և միևնույն ժամանակ, ցանկացած պահի կարող եք դիտել զտիչի չափանիշները:
Excel- ի համար նախատեսված գործիքներ, ավելի քան 300 հարմար գործառույթներ, ավելի հեշտացնում է ձեր գործերը: |
Այն բանից հետո անվճար տեղադրում Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև ՝
1: սեղմեք Kutools Plus > Սուպեր զտիչ ցուցադրելու համար Սուպեր զտիչ գործառույթ Տեսեք,
2. Մեջ Սուպեր զտիչ վահանակ, սեղմեք ընտրելու համար այն տվյալների տիրույթը, որը դուք ցանկանում եք զտել, ապա նշեք «Նշված վանդակը» ՝ ֆիլտրի տիրույթը շտկելու համար: Տեսեք,
3. Մեջ Սուպեր զտիչ պատուհանը, կտտացրեք ֆիլտրի խմբի տողին, այնուհետև նշեք ֆիլտրի չափանիշները բացվող ցուցակներում, որքան ձեզ հարկավոր է, այնուհետև կտտացրեք Ok ՝ չափանիշների կարգավորումն ավարտելու համար: Տեսեք,
4: սեղմեք ֆիլտր, և ընտրված տվյալները զտվել են ըստ չափանիշների, և այդ ընթացքում կարող եք դիտել զտիչի չափանիշները Սուպեր զտիչ պատուհան Տեսեք,
Նշում. Դուք կարող եք պահպանել զտիչի չափանիշները որպես սուպեր ֆիլտր կոմունալ հետագա օգտագործման սցենար:
1. կտտացրեք Պահպանեք զտիչի ընթացիկ կարգավորումները կոճակը, ելնող երկխոսության մեջ, մուտքագրեք ֆիլտրի անուն:
2. Հաջորդ անգամ, երբ ցանկանում եք օգտագործել այս ֆայլերի կարգավորումները, կտտացրեք ընտրացանկի կոճակին, ապա ընտրեք սցենարը ենթամենյուի մեջ Բացեք պահված զտիչի պարամետրերի սցենարը.
Displayտեք ֆիլտրի չափանիշները զտման ընթացքում
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: