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

Ինչպե՞ս ինքնաֆիլտրել տողերը Excel- ում բջջային արժեքի հիման վրա:

Սովորաբար, Excel- ում զտիչ գործառույթը կարող է օգնել մեզ զտել ցանկացած տվյալ, որքան մեզ անհրաժեշտ է, բայց, երբեմն, ես կցանկանայի ավտոմատ զտել բջիջները ՝ հիմնվելով ձեռքի բջիջների մուտքի վրա, ինչը նշանակում է, որ երբ ես բջիջում չափանիշ եմ մուտքագրում, տվյալները կարող են լինել միանգամից ինքնաբերաբար զտված է Կա՞ն լավ գաղափարներ Excel- ում այս գործով զբաղվելու համար:

Ավտոմատ զտելու տողերը ՝ հիմնված բջջային արժեքի վրա, որը մուտքագրեցիք VBA կոդով

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


Ավտոմատ զտելու տողերը ՝ հիմնված բջջային արժեքի վրա, որը մուտքագրեցիք VBA կոդով

Ենթադրելով, որ ես ունեմ տվյալների հետևյալ շարքը, այժմ, երբ ես մուտքագրում եմ չափորոշիչները E1 և E2 բջիջներում, ուզում եմ, որ տվյալներն ավտոմատ կերպով զտվեն, ինչպես ցույց է տրված ստորև նշված նկարում.

փաստաթուղթ ավտոմատ ֆիլտր 1

1, Գնացեք այն աշխատաթերթը, որը ցանկանում եք ավտոմատ կերպով զտել ամսաթիվը ՝ ելնելով ձեր մուտքագրած բջջային արժեքից:

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

VBA կոդ. Ավտոմատ զտիչ տվյալներ ըստ մուտքագրված բջջային արժեքի.

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160606
   If Target.Address = Range("E2").Address Then
       Range("A1:C20").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("E1:E2")
   End If
End Sub

փաստաթուղթ ավտոմատ ֆիլտր 2

ՆշումՎերոհիշյալ ծածկագրում A1: C20 ձեր տվյալների տիրույթն է, որը ցանկանում եք զտել, E2 նպատակային արժեքն է, որի հիման վրա ցանկանում եք զտել, և E1: E2 ձեր չափորոշիչն է, որ բջիջը զտված կլինի `հիմնվելով: Կարող եք դրանք փոխել ըստ ձեր կարիքի:

3, Այժմ, երբ դուք չափանիշները մտնում եք խցում E1 և E2 եւ սեղմեք Մտնել բանալին, ձեր տվյալները կզտվեն բջիջների արժեքներով ավտոմատ կերպով:


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

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

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

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

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


Դեմո. Ավտոմատ ֆիլտրման տողեր ՝ հիմնված բջջային արժեքի վրա, որը մուտքագրեցիք VBA կոդով


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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (36)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ՇԱՏ ՇՆՈՐՀԱԿԱԼՈՒԹՅՈՒՆ ՎԵՐՈՎԻ ԲԱՆԱՁԵՎԻ ՀԱՄԱՐ. ԱՅՆ ՀԻԱՍՏ Է ԱՇԽԱՏՈՒՄ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փորձում էի զտել աշխատանքային թերթը տարբեր կոդերով (վերցված տարբեր կայքերից, ներառյալ այս մեկը), բայց կարծես թե ոչ մեկը չի աշխատում: A101:EF999 բջիջների տիրույթի տեղեկություններով թերթիկում (այո, մեծ), ես ուզում եմ ինքնազտել թերթիկը երեք տառային կոդի հիման վրա, որը ես մուտքագրում եմ B5 բջիջ, որը պետք է համապատասխանի B101 սյունակի նույն կոդը ունեցող տողերին: -B999. Նմուշի հատվածը կունենա հետևյալ տեսքը. ABCDE 5 ABC ... 101 ABC 102 DEF 103 GHI 104 ABC 105 JKL 106 ABC 107 DEF B5 բջիջում «ABC» ընտրելով, միայն 101, 104 և 106 տողերը չպետք է ցուցադրվեն: տեղի է ունենում. Այստեղ ինչ-որ բան կա՞, որ ես անտեսում եմ: Ցանկացած օգնություն շատ գնահատելի կլինի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս կարող եմ հետարկել այն: Այն թաքցնում է իմ բոլոր տվյալները:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, ստորև բերված կոդը հիանալի է աշխատում: Այնուամենայնիվ, ինչպե՞ս կարող եմ անջատել մակրոն, եթե ուզում եմ ապաֆիլտրել: Մասնավոր ենթաթերթ_Փոփոխություն (ByVal թիրախը որպես միջակայք) «Թարմացում Extendoffice 20160606 If Target.Address = Range("E2").Address then Range("A1:C20").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("E1:E2") Վերջ, եթե վերջ ենթաօրենսդրական
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Range-ում («E2»): Հասցե ջնջեք ցանկացած մուտքագրում: Բոլորը «կչզտվեն»:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Չի աշխատում ինձ մոտ, գուցե ես ունեմ Office 2010: ոչինչ չի անում :S
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն այս գրելու համար: Ես փորձում եմ կարգավորել կոդը, որպեսզի թույլ տամ ընդունելության շրջանակ:

Օրինակ՝ ես մուտքագրում եմ 5-ը և այն զտում է և ցույց է տալիս միայն այն ամենը, ինչ գտնվում է 5-ից 5-ի սահմաններում, (այսպես՝ 4.5-ից մինչև 5.5-ը)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
այն աշխատում է և հիանալի... շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն այս ծածկագրի համար: Ես փորձում էի փոփոխել այն, որպեսզի ավելի լավ աշխատի ինձ համար, բայց դժվարությամբ:

Իմ թերթիկը տվյալներ ունի A2:G2280 A սյունակը պարունակում է փողոցների անուններ: Ես ուզում եմ կարողանամ մուտքագրել փողոցի անվան առնվազն մի մասը A1-ում և ցուցադրել միայն այն տվյալները, որոնք ամբողջությամբ կամ մասամբ պարունակում են A1: Այսպիսով, եթե ես մուտքագրեմ Bro A1-ում, կտեսնեմ այն ​​տողերը, որոնք ունեն Broad, Broadway և Brook: Իհարկե, եթե A1-ը դատարկ լինի, ես ամեն ինչ կտեսնեի:



Կներեք, որ ես վարժ չեմ տիրապետում Excel VBA լեզվին, ես պարզապես 911 դիսպետչեր եմ, որը գիտի, որ դրանք ավելի հեշտ ճանապարհ են:



Շնորհակալություն:



Ընդգծել
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Մարկ,
Ձեր խնդիրը լուծելու համար խնդրում ենք կիրառել հետևյալ VBA կոդը.
Նշում. Ստորև բերված կոդում A1-ն այն բջիջն է, որը ցանկանում եք մուտքագրել չափանիշները, A2:D20-ը տվյալների տիրույթն է, A-ն սյունակը պարունակում է այն չափանիշները, որոնցից ցանկանում եք զտել, խնդրում ենք փոխել բջիջների հղումները ձեր սեփականի: .

Private Sub Worksheet_Change (ByVal Target as Range)
Dim xRg որպես տիրույթ
Dim xRRg որպես տիրույթ
Dim xFNum-ը որպես ամբողջ թիվ
Ս.թ. սխալի Ռեզյումե Next
Եթե ​​Target.Address <> Range("A1").Address Ապա Ելք Sub
Սահմանել xRg = Range("A2:D20").CurrentRegion
Դիմում. ScreenUpdating = Սուտ է
If Target.Text = "" Ապա
xRg.Rows.Select
Selection.EntireRow.Hidden = False
Դիմում. ScreenUpdating = ueիշտ է
Ելք ենթ
Վերջ: Եթե
xFNum-ի համար = 1 Դեպի xRg.Rows.Count
Սահմանել xRRg = xRg.Range («A» և xFNum)
xRRg.Rows.Select
Եթե ​​InStr(xRRg.Text, Target.Text) > 0 Ապա
Selection.EntireRow.Hidden = False
Ուրիշ
Selection.EntireRow.Hidden = True
Վերջ: Եթե
Հաջորդ xFNum
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub

Խնդրում եմ փորձեք այն, հուսով եմ, որ այն կարող է օգնել ձեզ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Thanks for the help.
Ես փոխեցի A2:D20-ը A3:G2281-ի՝ իմ տվյալների դաշտը ներկայացնելու համար: Այժմ, երբ ես ինչ-որ բան մուտքագրում եմ A1 բջիջում և 2-109 բջիջներից դուրս գտնվող ներդիրը թաքնված է: Այն չի զտում և ցուցադրում միայն այն տողերը, որոնք պարունակում են ամբողջությամբ կամ մասամբ այն, ինչ մուտքագրված է A1 բջիջում:



Ցանկացած գաղափար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Սքայանգ,
Ձեր կոդը հիանալի է աշխատում, բայց ես մի հարց ունեմ. Եթե ես չեմ ուզում ֆիլտրի չափանիշ ունենալ A1 բջիջում և դատարկ թողնել բջիջը, այն այլևս չի ցուցադրվի որևէ տող: Այսպիսով, ամեն ինչ զտված է: Ճիշտ այնպես, ինչպես Մարկը ուզում էր «Իհարկե, եթե A1-ը դատարկ է, ես ամեն ինչ կտեսնեի», չի աշխատում, չէ՞:
Լավ կլինի, եթե կարողանաք օգնել ինձ:
Greetings
Կարստեն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Սքայանգ,
Ձեր կոդը հիանալի է աշխատում, բայց ես մի հարց ունեմ. Եթե ես չեմ ուզում ֆիլտրի չափանիշ ունենալ A1 բջիջում և դատարկ թողնել բջիջը, այն այլևս չի ցուցադրվի որևէ տող: Այսպիսով, ամեն ինչ զտված է: Ճիշտ այնպես, ինչպես Մարկը ուզում էր «Իհարկե, եթե A1-ը դատարկ է, ես ամեն ինչ կտեսնեի», չի աշխատում, չէ՞:
Լավ կլինի, եթե կարողանաք օգնել ինձ:
Greetings
Կարստեն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Կարստեն,
A1 բջիջը դատարկ թողնելիս ցուցադրվում են տվյալների բոլոր տողերը, ցանկացած նիշ մուտքագրելիս, որը ցանկանում եք զտել, այն ճիշտ կաշխատի։ Ինչպիսի՞ն է ձեր խնդիրը, խնդրում ենք տեղադրել ձեր խնդրի թերթիկը որպես սքրինշոթ այստեղ:

Thank you!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչ է տեղի ունենում, եթե, օրինակ, ունեք GRADE11 և GRADE12: Զտիչը ցույց կտա՞ դրանք նաև, եթե փորձեք և զտեք
GRADE1-ին?
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Բոբ,
Այո, ինչպես ասացիք, տեքստի մի մասը մուտքագրելիս, որը ցանկանում եք զտել, մասի տեքստը պարունակող բոլոր բջիջները կզտվեն: Այսպիսով, եթե մուտքագրեք Grade1, բոլոր բջիջները պարունակում են Grade1, Grade11, Grage123... կզտվեն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
VB սցենարը գեղեցիկ է աշխատել: Շատ շնորհակալություն գրառման համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Private Sub Worksheet_Change (ByVal Target as Range)
― Թարմացնելով Extendoffice 20160606
Եթե ​​Target.Address = Range("E2").Address then
Տարածք ("A1:C20"). CurrentRegion.AdvancedFilter Գործողություն.=xlFilterInPlace, CriteriaRange:=Range("E1:E2")
Վերջ: Եթե
Վերջ Sub


E2 HUCRESI YERINE E SUTUNUNA YAZILAN SON SATIRA GORE FILITRELEME YAPABILIR MI.


Ըստ վերը նշված ծածկագրի՝ հնարավո՞ր է ֆիլտրում կատարել գրված տվյալների համաձայն մինչև E սյունակի վերջին շարքը:


Հուսով եմ օգնություն կստանամ և շնորհակալություն ձեր օգնության համար
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Մուրատ,
Վերոնշյալ կոդը լավ է աշխատում ամբողջ աշխատաթերթում, պարզապես անհրաժեշտ է փոխել բջիջների հղումները ձեր կարիքին համապատասխան: Խնդրում եմ փորձեք, շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես չգիտեմ, թե ինչպես կարող եմ փոխել բջջային հղումը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Արդյո՞ք միջոց կա, որ այն շարունակի զտել լրացուցիչ տուփերով: Երբ ես այն գրում եմ որպես ElseIf, այն հետևում է միայն ElseIf հրամանին:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այսպիսով, ես ունեմ մի շարք արժեքներ, ապա տվյալների աղյուսակ: Ինձ հետաքրքրում է, թե արդյոք կարող եմ զտել այդ աղյուսակը՝ հիմնվելով վերևում նկարագրված արժեքների վրա: Օրինակ, ես կցանկանայի սեղմել մի բջիջի վրա, որն ունի 3 արժեք, որը համապատասխանում է 3 գրառումներին (200 տող, 25 սյունակ), որոնք համապատասխանում են պայմանին, և այնուհետև իմ աղյուսակը զտված լինի՝ պարզապես ցուցադրելու այդ գրառումները: Պայմանների օրինակ կարող է լինել, եթե մեկ փոփոխականը մեծ է 100-ից: Ես ունեմ այս պայմաններից ավելի քան 100-ը, այդ իսկ պատճառով ես կցանկանայի, որ իմ աղյուսակը որևէ կերպ կապված լինի դրա հետ: Ցանկացած օգնություն շատ գնահատելի կլինի: Ձեր տրված օրինակում նման կլինի, եթե դուք պարզապես ցանկանայիք բոլոր տարիքի 3, 6, 9, 12 տարեկանից և այլն, և այնուհետև ունեիք 25 նմանատիպ փոփոխականներ: Այսպիսով, զտեք աղյուսակը, որպեսզի ցուցադրվեն միայն 3 տարեկանից բարձր տարիքի գրառումները՝ կտտացնելով կոճակին: արժեքը ցուցակից, որն ասում է տարիք>3 - 2 գրառում, տարիք> 6 - 4 գրառում և այլն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հրահանգներում կարող է սխալ լինել: Կոդը դատարկ մոդուլի մեջ տեղադրելու փոխարեն, այն պետք է տեղադրվի Թերթի պատուհանում: Օրինակ, եթե մակրոն պետք է աշխատի Sheet1-ում, կոդը պետք է տեղադրվի Microsoft Excel Objects -> Sheet1(Sheet1) մեջ: Միայն դրանից հետո այն աշխատում է ինձ համար Excel 2016-ում:

Շնորհակալություն կոդը համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, պարոն,
Այս հոդվածում սխալ չկա, ասվում է հոդվածում, դուք պետք է տեղադրեք VBA կոդը թերթի մոդուլի մեջ՝ աջ սեղմելով թերթի անվան վրա, այնուհետև ընտրեք Դիտել կոդը՝ մոդուլ գնալու համար:
Բայց ձեր վիրահատությունը նույնպես ճիշտ է։
Շնորհակալություն մեկնաբանության համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ,

Ինչ կլիներ, եթե ես ստացա զտված տվյալները մեկ այլ ներդիրում (թերթ 2) նույն աշխատանքային գրքում, և այն բջիջը, որին պետք է հղում կատարի զտիչը, գտնվում է առաջին ներդիրում (թերթ 1): Ես օգտագործել եմ այս VBA-ն, բայց այդպես չի աշխատում, միայն այն դեպքում, եթե ունեմ երկու չափանիշների բջիջ (E2 այս VBA-ում) նույն ներդիրում՝ զտված տվյալների հետ (A1:C20)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն տղերք,
կատարյալ բացատրություն, շատ շնորհակալ եմ:
1 Փոքրիկ հարց. եթե ես ուզում եմ զտել 2,3 4 կամ ավելի չափանիշներով, ինչպե՞ս կարող եմ դա անել:
Օրինակ, ես ուզում եմ ասել, որ ուզում եմ տեսնել Հենրի անունը, 1-ին դասարանով և այս տարիքով... ուրեմն ոչ միայն 1 չափանիշ, այլ օրինակ 3..=?


շնորհակալություն արձագանքի համար


Kind regards,


TIM
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Թիմ,
Բազմաթիվ չափանիշների հիման վրա տվյալները ավտոմատ զտելու համար դուք պետք է կիրառեք ստորև նշված կոդը.

Private Sub Worksheet_Change (ByVal Target as Range)
«Թարմացվել է Extendoffice
Dim xVStr Որպես լար
Dim xFStr որպես տող
xVStr = «E22:G22» 'չափանիշները, որոնց հիման վրա ցանկանում եք զտել
xFStr = "E21:G22" 'միջակայքը պարունակում է չափանիշների վերնագիր
Եթե ​​ոչ (Intersect(Range(xVStr), Target) Nothing) Ապա
Range("A1:C17").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, _
Criteria Range:=Range(xFStr)
Վերջ: Եթե
Վերջ Sub


Խնդրում եմ փորձեք, հուսով եմ, որ դա կարող է օգնել ձեզ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն, դրա համար դա իսկապես օգտակար էր: Ես ընդամենը մեկ հարց ունեմ, բացվող ընտրացանկում անունը ընտրելուց հետո (ես որպես չափանիշ ունեմ անուններ), այն ցույց է տալիս միայն այդ անունով մարդկանց, ինչպես պետք է, բայց ինչպես կարող եմ դա անել, երբ ես ընտրել եմ անունը, ապա ես ուզում ես տեսնել իմ սեղանի բոլոր տողերը??

հուսով եմ, որ դուք կարող եք օգնել ինձ:

Հարգանքներով
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Պետրոս,
Այս ծածկագիրը լավ է աշխատում տվյալների ամբողջ տողերը տեղադրելու համար, կարո՞ղ եք ճիշտ մուտքագրել ձեր աղյուսակի միջակայքը:

A1:C20-ը ձեր տվյալների տիրույթն է, E1:E2-ը չափանիշների միջակայքն է:
Տարածք ("A1:C20"). CurrentRegion.AdvancedFilter Գործողություն.=xlFilterInPlace, CriteriaRange:=Range("E1:E2")
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալ եմ սրա համար: Դա ինձ մոտ որոշ չափով լավ աշխատեց, խնդրում եմ, թույլ տվեք բացատրել.

Ես ունեմ մի քանի աղյուսակ իմ աշխատանքային գրքում: Երբ ես կիրառեցի վերը նշված կոդը, այն աշխատում էր միայն մեկ աղյուսակի համար, բայց ոչ մյուս երկու աղյուսակների համար: Ենթադրենք, առաջին աղյուսակը, ինչպես ձեր օրինակում, A1:C20-ից է: Երկրորդ աղյուսակը A22:C40-ից է: Երրորդը՝ A42:C60-ից: Բոլոր աղյուսակները պարունակում են տեղեկատվություն «Գրադարանի» մասին, սակայն դրանք ունեն տարբեր սյունակներ և ամսաթիվ և, հետևաբար, չեն կարող համախմբվել մեկ մեծ աղյուսակի, այլ ավելի շուտ 3 փոքր աղյուսակի մեջ:

Ինչպե՞ս պետք է դուր գա կոդը, որպեսզի եթե ես դնեմ չափանիշները՝ «Grade1», բոլոր 3 աղյուսակները ավտոմատ կերպով զտվեն «Grade1»-ի համար:

Շնորհակալություն նախօրոք:

Best regards
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hi այնտեղ,

Շնորհակալություն հիանալի բովանդակության համար, սակայն ես որոշ խնդիրներ ունեմ և հետաքրքրվում էի, թե արդյոք գաղափարներ ունեք, թե ինչու:

Ես հարմարեցրել եմ իմ միջակայքերը, որպեսզի իմ կոդը կարդում է.

Ենթաավտոֆիլտր ()
Եթե ​​Target.Address = Range("E13:F14").Address then
Աշխատանքային թերթիկներ («Տվյալների արխիվ»). միջակայք («A1:C20»). CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range(«F10:F1048576»)
Վերջ: Եթե
Վերջ Sub


Այնուամենայնիվ, երբ ես գործարկում եմ մակրոն, հայտնվում է «Կազմելու սխալ. Syntex Error» հաղորդագրությունը:

Կանխավ շնորհակալ ենք Ձեր

Stan
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Սթեն,
Ճի՞շտ եք սահմանել տվյալների տիրույթը և չափանիշների տիրույթը կոդի մեջ: Կամ կարող եք վերցնել ձեր տվյալների տիրույթը որպես սքրինշոթ այստեղ:
Thank you!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ձեզ, կա՞ տարբերակ արագ փոփոխելու VBA կոդը՝ ընտրված բջիջից ավելի մեծ արժեքների վրա զտելու համար:
Առայժմ ոչ մի մեկնաբանություն չկա
Բեռնել More
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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