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

 Ինչպե՞ս կիրառել նույն ֆիլտրը Excel- ում բազմաթիվ թերթերի վրա:

Մեզ համար կարող է հեշտ լինել Filter ֆունկցիան կիրառել աշխատանքային թերթիկում տվյալների զտման համար, բայց, երբեմն, կարող է անհրաժեշտ լինել զտել բազմաթիվ աշխատանքային թերթերի վրա, որոնք ունեն տվյալների ընդհանուր ձևաչափում `նույն ֆիլտրի չափանիշներով: Դրանք մեկ առ մեկ զտելու համար շատ ժամանակ կկորցնեք, այստեղ ես կարող եմ ներկայացնել այն միանգամից լուծելու հեշտ միջոց:

Կիրառեք նույն զտիչը VBA կոդով բազմաթիվ աշխատանքային թերթերի վրա


նետ կապույտ աջ պղպջակ Կիրառեք նույն զտիչը VBA կոդով բազմաթիվ աշխատանքային թերթերի վրա

Օրինակ ՝ ես ունեմ չորս աշխատանքային թերթ, քանի որ հետևյալ սքրինշոթը պետք է զտվի նույն չափանիշներով, ինչ Ապրանքը = KTE միանգամից:

doc ֆիլտրի բազմաթիվ թերթեր 1

Excel- ում բազմաթիվ թերթերում տվյալների զտման ուղղակի միջոց գոյություն չունի, բայց հետևյալ VBA կոդը կարող է օգնել ձեզ ավարտել այս գործը, խնդրում եմ արեք հետևյալը.

1, Պահեք պահեք ALT + F11 ստեղները, ապա այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:

VBA կոդ. Կիրառել նույն զտիչը բազմաթիվ աշխատանքային թերթերի վրա.

Sub apply_autofilter_across_worksheets()
'Updateby Extendoffice
    Dim xWs As Worksheet
    On Error Resume Next
    For Each xWs In Worksheets
        xWs.Range("A1").AutoFilter 1, "=KTE"
    Next
End Sub

3, Եվ հետո սեղմեք F5 Այս ծածկագիրն աշխատեցնելու բանալին, KTE- ի բոլոր ապրանքները միաժամանակ զտված են բոլոր աշխատանքային թերթերում, տես նկարի նկարը.

doc ֆիլտրի բազմաթիվ թերթեր 2

ՆշումՎերը նշված կոդի շրջանակներում, սրա մեջ xWs.Range ("A1"). AutoFilter 1, "= KTE" սցենար, A1 և = KTE նշում է այն սյունակը և չափանիշները, որոնց հիման վրա ցանկանում եք զտել, 1 համարը սյունակի համարն է, որը դուք ֆիլտրել եք, և կարող եք դրանք փոխել ըստ ձեր կարիքի: Օրինակ, եթե ուզում եք զտել 50-ից բարձր պատվերը, պարզապես անհրաժեշտ է փոփոխել այս սցենարը հետևյալ կերպ. xWs.Range ("B1"). AutoFilter 2, "> 50".


Dataտեք տվյալները ըստ բազմաթիվ չափանիշների կամ այլ հատուկ պայմանների, ինչպիսիք են տեքստի երկարությունը, ըստ գործի վրա զգայունների և այլնի:

Excel- ի համար նախատեսված գործիքներ'S Սուպեր զտիչ հատկությունը հզոր օգտակար է, կարող եք կիրառել այս հատկությունը ՝ հետևյալ գործողություններն ավարտելու համար.

  • Terտել տվյալները բազմակի չափանիշներով. Terտել տվյալները ըստ տեքստի երկարության;
  • Dataտել տվյալները ըստ մեծատառի / փոքրատառի. Terտել ամսաթիվը ըստ տարվա / ամսվա / օրվա / շաբաթվա / եռամսյակի

doc-super-filter1

Excel- ի համար նախատեսված գործիքներ. Excel- ի ավելի քան 300 հարմարավետ հավելումներով, 30 օրվա ընթացքում անվճար փորձեք առանց սահմանափակումների: Ներբեռնեք և անվճար փորձեք հիմա:


Գրասենյակի արտադրողականության լավագույն գործիքները

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (41)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ինչպե՞ս եք կիրառում այս ֆիլտրի բանաձևը՝ մի շարք թերթիկների վրա: Ես ունեմ աշխատանքային գրքույկ, որն ունի տվյալներ առաջին 5 թերթերի վերաբերյալ, իսկ աշխատանքային գրքույկը ունի 200 թերթ, ինձ միայն անհրաժեշտ է, որ զտիչը կիրառվի 6-200 թերթերի վրա: Sub application_autofilter_across_worksheets() ենթաօրենսդրական «Updateby Extendoffice 20160623 Dim xWs As Worksheet on Error Resume Next for Every xWs In Worksheets xWs.Range("A1").AutoFilter 1, "=KTE" Next End Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Sub apply_autofilter_across_worksheets() Dim J Որպես ամբողջ թիվ Սխալի դեպքում Վերսկսել Հաջորդը J = 6-ի համար Worksheets(worksheets.count) This Workbook.Sheets(J).Range("A1").Autofilter 1, "=KTE" Հաջորդ վերջ Ենթ.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի՛, ես ուզում եմ զտել մեկից ավելի արժեքներ, ես օգտագործել եմ այս xWs.Range("B1").AutoFilter 2, "=223AM", xlOr, "=113IR", xlOr, "=003IR" և այն աշխատել է, բայց երբ ես բարձրացնել ցանկալի արժեքները> 2-ի, տեղի է ունենում սխալ: այս հրամանը ես օգտագործում եմ xWs.Range («B1»). ԱվտոՖիլտր 2, «=223AM», xlOr, «=113IR», xlOr, «=003IR», xlOr, «=019IR», xlOr, «=311IR», xlOr , "=518ZA", xlOr, "=223AM", xlOr, "=592IR" շնորհակալություն,
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
մի քանի թերթերում մեկ բառ զտելիս այն չի ցուցադրում զտված տվյալները...բոլոր տվյալները թաքցված են: Խնդրում եմ լուծել սա:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,


Իմ տվյալները գտնվում են E սյունակում, և երբ ես կիրառում եմ այս զտիչը Range(«E1») հետ, այն դեռ զտում է A սյունակը


Ինչպե՞ս կարող եմ լուծել անսարքությունները:
Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Պարզապես պետք է AutoFilter-ում գրել սյունակի համարը, այս դեպքում՝ xWs.Range("E1").AutoFilter 5,
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ՇՆՈՐՀԱԿԱԼՈՒԹՅՈՒՆ!!!!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ջնջել Սյունակը A LOL
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս գործարկել, եթե զտիչը գտնվում է յուրաքանչյուր թերթի տարբեր սյունակի վրա:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպես կարող եք օգտագործել ավտոմատ զտիչի արդյունքը՝ =(հատուկ անուն) օգտագործելու փոխարեն զտիչը միմյանց թերթիկի համար սահմանելու համար։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարո՞ղ եմ սա օգտագործել մի քանի թերթերում առանցքային աղյուսակները զտելու համար, եթե բոլոր առանցքային աղյուսակները նույն տվյալների աղբյուրից են և ստեղծվել են նույն չափանիշներով:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կա՞ որևէ տարբերակ զտելու ըստ գույների:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Մահեշ,
Եթե ​​ցանկանում եք զտել տվյալները ըստ գույնի, կարող են ձեզ օգնել հետևյալ երկու հոդվածները: Խնդրում ենք դիտել դրանք, հուսով եմ, որ դա կարող է օգնել ձեզ:

https://www.extendoffice.com/documents/excel/912-excel-filter-by-cell-color.html
https://www.extendoffice.com/documents/excel/3383-excel-filter-by-multiple-colors.html
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,


Ինչպե՞ս է սա աշխատում, եթե Ապրանքի սյունակը ներկայացված է այլ թերթերում տարբեր տեղերում:


Sheet1-ում այն ​​A1 է sheet2-ում, այն գտնվում է B1-ում և թերթ3-ում կրկին A1 է:

Thanks,
Monika
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կա՞ տարբերակ փոխել «=KTE» մասը յուրաքանչյուր թերթիկի համար պարունակող զտիչով, որը հիմնված է թերթի անվան վրա:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն կոդի համար!! կա՞ «=KTE»-ը փոխելու միջոց՝ ցուցակից կամ բացվող ցուցակից արժեք օգտագործելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, սուպեր ֆիլտրը ամբողջ աշխատանքային գրքում ինքնաբերաբար վերակիրառվո՞ւմ է, երբ ֆայլը թարմացվում է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարո՞ղ ենք A1-ի փոխարեն օգտագործել բջիջի անվանումը, ինչպիսին Արտադրանքն է, xWs.Range("A1"): AutoFilter 1, "=KTE"
Ես ունեմ տարբեր սյունակներ, և որոշ անուններ գալիս են տարբեր սյունակում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես օգտագործել եմ ֆիլտր յուրաքանչյուր թերթիկի մեջ: Եվ ես ուզում եմ փոխել s.no-ն 1 2 3 սերիայից յուրաքանչյուր թերթիկի ֆիլտրից հետո:


Խնդրում եմ ինձ տեղյակ պահեք, եթե դրա համար vba կոդ ունեք
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս օգտագործել «Filter Between» ֆունկցիան նույն բազմաթիվ թերթիկների համար:

(Օրինակ՝ ժամանակային միջակայք)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս վերացնել ֆիլտրացված տողերը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի,

Ինչպե՞ս զտել բազմաթիվ պայմաններով:
Օրինակ, ես ուզում եմ զտել 50-ից բարձր հերթականությամբ, բայց միայն KTE արտադրանքները:

Կանխավ շնորհակալ ենք Ձեր.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Պեդջա,
Երկու պայմանների հիման վրա բազմաթիվ թերթերում զտելու համար խնդրում ենք կիրառել հետևյալ կոդը.
Sub application_autofilter_across_worksheets()

― Թարմացնելով Extendoffice

Dim xWs As Worksheet

Ս.թ. սխալի Ռեզյումե Next

Յուրաքանչյուր xWs-ի համար աշխատանքային թերթերում

xWs.Range-ով («A1»)

.AutoFilter Field:=1, Criteria1:="KTE" 'A սյունակը հավասար է "KTE"

.AutoFilter Field:=2, Criteria1:=">500" 'Սյունակ B մեծ է 500-ից

Վերջ

հաջորդ

Վերջ Sub

Խնդրում եմ փորձեք, հուսով եմ, որ դա կարող է օգնել ձեզ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
նույնիսկ եթե ես փոխարինեմ A1-ը G1-ով, այն ֆիլտրը տեղադրում է A1 սյունակի վրա
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Թան,
Դուք պարզապես փոխարինում եք A1-ը G1-ով, միևնույն ժամանակ, դուք պետք է փոխեք 1-ին սյունակը 7-րդ սյունակի համար, ինչպես ստորև նշված կոդը.
xWs.Range("G1").AutoFilter 7, "=KTE"
Խնդրում եմ փորձեք, շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ,
հնարավո՞ր է զտել սյունակի անվան, այլ ոչ թե թվի հիման վրա (քանի որ իմ տվյալները տարբեր աշխատաթերթերում տարբեր սյունակներում են):
Շնորհակալություն Մանուելա
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ուզում եմ զտել նույն «KTE» պայմանով, բայց եթե այն չի երևում թերթում, որպեսզի որևէ տվյալ չցուցադրվի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն ,
Ես ուզում եմ զտիչ չափանիշներ, որոնք հիմնված են «KTE»-ի փոխարեն բջջային արժեքի վրա, հնարավո՞ր է ???
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Հեմրաջ, ֆիքսված տեքստի փոխարեն տվյալ բջիջի որոշակի արժեքի հիման վրա տվյալները զտելու համար խնդրում ենք կիրառել ստորև նշված կոդը. Sub application_autofilter_across_worksheets()
― Թարմացնելով Extendoffice
Dim xWs As Worksheet
Ս.թ. սխալի Ռեզյումե Next
Յուրաքանչյուր xWs-ի համար աշխատանքային թերթերում
xWs.Range(«A1»).AutoFilter 1, Sheet1.Range(«E2»)
հաջորդ
Վերջ SubՆշում: Խնդրում եմ փոխեք Sheet1 և E2 սրա շրջանակներում Sheet1.Range («E2») script ձեր սեփական թերթիկի և բջջային արժեքի վրա: Խնդրում ենք փորձել, հուսով եմ, որ դա կարող է օգնել ձեզ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Սքայանգ,
Շնորհակալություն ձեր արժեքավոր և ֆանտաստիկ աջակցության համար, ես փորձեցի օգտագործել նույն բանաձևերը, բայց դա չաշխատեց, թե ինչն է պատճառը: Հետևյալը այն կոդը է, որը ես օգտագործում եմ իմ excel թերթի համար:
Sub application_autofilter_across_worksheets()
― Թարմացնելով Extendoffice
Dim xWs As Worksheet
Ս.թ. սխալի Ռեզյումե Next
Յուրաքանչյուր xWs-ի համար աշխատանքային թերթերում
xWs.Range("A1").AutoFilter 1, Sheet2.Range("C4")
հաջորդ
Վերջ Sub
Առայժմ ոչ մի մեկնաբանություն չկա
Բեռնել More
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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