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

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

Երբ մենք կիրառում ենք Advanced Filter հատկությունը, մենք կտեսնենք, որ զտված արդյունքը չի փոխվի ինքնաբերաբար չափանիշների փոփոխության հետ: Սա պետք է, որ մենք նորից կիրառենք Advanced Filter գործառույթը ՝ նոր արդյունք ստանալու համար: Բայց ունե՞ք որևէ լավ և արագ հնարք առաջադեմ ֆիլտրի արդյունքն ավտոմատ կերպով թարմացնելու համար, ինչպես ցույց է տրված Excel- ում ցուցադրված հետևյալ նկարը:

Ավտոմատ թարմացրեք զտիչի առաջադեմ արդյունքը VBA կոդով


Ավտոմատ թարմացրեք զտիչի առաջադեմ արդյունքը VBA կոդով

Հետևյալ VBA կոդը կարող է օգնել ձեզ ավտոմատ կերպով թարմացնել զտիչի առաջադեմ արդյունքը, երբ չափորոշիչները փոխեք ըստ անհրաժեշտության, արեք հետևյալ կերպ.

1, Աջ կտտացրեք թերթիկի ներդիրին, որը ցանկանում եք ավտոմատ կերպով զտել տվյալները, և այնուհետև ընտրել Դիտել կոդը համատեքստային ընտրացանկից ՝ բացվածում Microsoft Visual Basic հավելվածների համար պատուհանը, պատճենեք և տեղադրեք հետևյալ կոդը դատարկ Մոդուլի մեջ.

VBA կոդ. Ավտոմատ թարմացրեք զտիչի առաջադեմ արդյունքը.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A5:D21").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range _
("A1:C3"), Unique:=False
End Sub

ՆշումՎերոհիշյալ ծածկագրում. A5: D21 տվյալների տիրույթն է, որը ցանկանում եք զտել, A1: C3 հիման վրա զտելու չափանիշների միջակայքն է:

2, Ապա պահեք և փակեք ծածկագրի պատուհանը, այժմ, երբ չափանիշները փոխեք չափանիշների տիրույթում, զտված արդյունքը միանգամից ավտոմատ կթարմացվի:


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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (9)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
այն թարմացվում է ամեն անգամ, երբ որևէ տվյալ փոխվում է:

հնարավո՞ր է թարմացնել միայն չափանիշները փոխվելիս:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարո՞ղ եմ չափորոշիչները դարձնել երկրորդ թերթիկից:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Bonjour, merci pour votre post qui m'aide énormément. Toutefois quel serait le code à ajouter pour coller le résultat dans un tableau d'une autre feuille de fichier et si հնարավոր է pour au passage ne coller que surees colonnes?
Pour être plus precise, en utilisant votre exemple je voudrais copier uniquement les colonnes «Product» et «Name» du résultat du filter et ce dans une nouvelle feuille. Մերսի.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ce code donne une erreur 1004 référence non valide: pouvez vous corriger le code proposé?
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
@Hannah: Այո, հնարավոր է:
Հետևյալ կոդում չափանիշները գտնվում են «Զտիչ» թերթիկի վրա:


Մասնավոր ենթաթերթ_SelectionChange (ByVal-ի նպատակը որպես միջակայք)
Շրջանակ ("A5:D23"). Ընդլայնված ֆիլտրի գործողություն՝=xlFilterInPlace, Չափանիշների միջակայք՝= _
Թերթեր («Զտիչ»). Շրջանակ («A1:C3»), Եզակի:=Սխալ
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, այս կոդը անթերի է աշխատում, միայն մեկ խնդիր կա՝ copy/paste ֆոնքն այլեւս չի աշխատում։
Ինչպե՞ս կարելի էր դա ուղղել:
Փոխանցել |
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կա՞ դա անել առանց VBA-ի օգտագործման:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, ես կիրառում եմ առաջադեմ զտիչ մեկ սյունակի համար եզակի արժեքների համար (առանց չափանիշների): Ինձ պետք է, որ այն ինքնուրույն թարմացվի:

Խնդրում եմ, կարո՞ղ եք օգնել ինձ այդ հարցում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա, հավանաբար, այլևս տեղին չէ: Office excel-ն այժմ ունի FILTER ֆունկցիա, որն ավտոմատ թարմացվում է իմ հավաքածից՝ առաջադեմ զտիչը դարձնելով մի տեսակ թույլ առանցքային աղյուսակ: FILTER ֆունկցիան այն է, թե ինչ պետք է օգտագործվի առաջ գնալով: Թվում է, թե excel-ի լուծումը վերը նշված խնդրին չի պահանջում VBA-ն անել:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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