Ինչպե՞ս մաքրել ֆիլտրերը Excel- ում գործող աշխատանքային գրքում նշված բոլոր աշխատանքային թերթերից:
Ենթադրելով, որ դուք ստեղծել եք բազմաթիվ ֆիլտրեր տարբեր աշխատանքային թերթերի վրա Excel- ի աշխատանքային գրքում, և այժմ ցանկանում եք միանգամից մաքրել այս բոլոր զտիչները: Սովորաբար, դուք պետք է հերթով անցնեք աշխատանքային թերթին `զտիչը ստուգելու և այն ձեռքով մաքրելու համար: Ակտիվ աշխատանքային գրքում կա՞ բոլոր որևէ աշխատանքային թերթերից ֆիլտրերը մաքրելու հարմար մեթոդ: Խնդրում ենք փորձել այս հոդվածի մեթոդը:
Մաքրել ֆիլտրերը VBA կոդով ակտիվ աշխատանքային գրքում առկա բոլոր աշխատանքային թերթերից
Մաքրել ֆիլտրերը VBA կոդով ակտիվ աշխատանքային գրքում առկա բոլոր աշխատանքային թերթերից
Խնդրում ենք գործարկել ստորև ներկայացված VBA սցենարը ՝ ակտիվ աշխատանքային գրքում բոլոր աշխատանքային թերթերից ֆիլտրերը մաքրելու համար:
1. Աշխատանքային գրքում զտիչները մաքրելու համար անհրաժեշտ է սեղմել կոճակը ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք և կպցրեք ստորև նշված VBA գրությունը Մոդուլի պատուհանում: Տես ստորև նկարը.
VBA կոդ. Մաքրել ֆիլտրերը ակտիվ աշխատանքային գրքում նշված բոլոր աշխատաթերթերից
Sub Clear_fiter()()
'Updated by Extendoffice 20210625
Dim xAF As AutoFilter
Dim xFs As Filters
Dim xLos As ListObjects
Dim xLo As ListObject
Dim xRg As Range
Dim xWs As Worksheet
Dim xIntC, xF1, xF2, xCount As Integer
Application.ScreenUpdating = False
On Error Resume Next
For Each xWs In Application.Worksheets
xWs.ShowAllData
Set xLos = xWs.ListObjects
xCount = xLos.Count
For xF1 = 1 To xCount
Set xLo = xLos.Item(xF1)
Set xRg = xLo.Range
xIntC = xRg.Columns.Count
For xF2 = 1 To xIntC
xLo.Range.AutoFilter Field:=xF2
Next
Next
Next
Application.ScreenUpdating = True
End Sub
3. Սեղմեք F5 ծածկագիրը գործելու համար: Այնուհետև ընթացիկ աշխատանքային գրքում առկա բոլոր թերթերի բոլոր զտիչները անմիջապես մաքրվում են:
Առնչվող հոդվածներ:
- Ինչպե՞ս մաքրել ֆիլտրի քեշը (հին իրերը) Excel- ում առանցքային աղյուսակից:
- Ինչպե՞ս մաքրել ֆիլտրերը Excel- ում աշխատանքային գիրքը բացելիս, պահպանելիս կամ փակելիս:
- Ինչպե՞ս զտել տվյալները Excel- ի վանդակի հիման վրա:
- Ինչպե՞ս լրացնել թվերի շարք Excel- ում զտված ցուցակի սյունակում:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
