Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս մաքրել ֆիլտրերը 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-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (11)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դուք ջնջեցիք մեր բոլոր զտիչները: Մեր ամբողջ պիթոնի սցենարը ոչնչացվեց, քանի որ այն մեզ ժամեր արժեցավ: ԳՆԱՑԵՔ ԴԺՈԽԵՔ ԱՅ ՍՏԱԲԱՆՆԵՐ!!!!!!!!!!!!!!!!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,
Կներեք սխալի համար։ Կոդը թարմացվել է գրառման մեջ, որպեսզի մաքրվեն միայն զտիչները՝ դրանք հեռացնելու փոխարեն: Խնդրում ենք փորձել և կներեք անհարմարության համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչո՞ւ այն ամբողջությամբ չփորձարկեցիք ձեր վերջին ֆայլի վրա աշխատելուց առաջ և չունե՞ք կրկնօրինակում... աշխատեք ձեր ՏՏ սովորությունների վրա՝ նախքան կոպիտ լեզու օգտագործելը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դուք անվճար օգնություն եք ստանում և նվաստացնում ուրիշներին ձեր իսկ հիմար սխալների համար: Քեզ նման մարդիկ դժոխքում հատուկ տեղ են արժանի
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
սա հեռացնում է բոլոր զտիչները, ես ուզում էի մի բան, որը մաքրեր ֆիլտրերը, այլ ոչ թե հեռացներ դրանք:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Սաիմա, ես հասկացա ձեր միտքը: Կոդը թարմացվել է գրառման մեջ, որպեսզի մաքրվեն միայն զտիչները՝ դրանք հեռացնելու փոխարեն: Խնդրում ենք փորձել և կներեք անհարմարության համար: Sub Auto_Open ()
«Թարմացվել է Extendoffice 20201113
Խոնավեցրեք xAF-ը որպես ավտոմատ զտիչ
Խոնավեցրեք xFs-ը որպես զտիչներ
Dim xLos As ListObjects
Dim xLo Որպես ListObject
Dim xRg որպես տիրույթ
Dim xWs As Worksheet
Dim xIntC, xF1, xF2, xCount As Integer
Դիմում. ScreenUpdating = Սուտ է
Ս.թ. սխալի Ռեզյումե Next
Յուրաքանչյուր xWs In Application.Worksheets
xWs.ShowAllData
Սահմանել xLos = xWs.ListObjects
xCount = xLos.Count
xF1 = 1-ից մինչև xCount
Սահմանել xLo = xLos.Item(xF1)
Սահմանել xRg = xLo.Range
xIntC = xRg.Columns.Count
xF2 = 1-ից դեպի xIntC
xLo.Range.AutoFilter դաշտ:=xF2
հաջորդ
հաջորդ
հաջորդ
Դիմում. ScreenUpdating = ueիշտ է

Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն, սա ինձ շատ օգնեց ;=)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, ամեն անգամ, երբ ես բացում եմ ֆայլը, մակրոն աշխատում է և ֆիլտրերը մաքրվում են, ինչպե՞ս խուսափել մակրոյի այդ «ավտո գործարկումից»:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Խուան Մորենո,
Ներողություն եմ խնդրում իմ սխալի համար: Փոխարինեք առաջին տողը.
Sub Auto_Open ()հետSub Clear_filter()խնդրի լուծման հետ։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ո՞ր տողը պետք է փոխեմ, որպեսզի մակրոները սահմանափակեն ՄԻԱՅՆ ակտիվ թերթիկով, այլ ոչ բոլորով: Շատ գնահատելի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
@Lorif - ջնջել յուրաքանչյուր xW-ի համար Application.Worksheets և հաջորդներից մեկը
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից