Kodi VBA për të filtruar të dhënat në Excel (8 shembuj)

Hugh West

24-10-2023 Makro & Excel VBA
  • Shperndaje Kete
Hugh West

Excel Rendit & Komanda e filtrit ka një gamë të kufizuar në Filtro të dhënat . Por duke përdorur VBA mund të Filtrosh të dhënat në një gamë të gjerë sipas dëshirës. Ky artikull do t'ju ofrojë 8 shembuj të dobishëm për të përdorur kodin VBA për Filtro të dhënat në excel duke përdorur VBA kodet me ilustrime të gjalla.

Shkarkoni Librin e Punës Praktike

Mund ta shkarkoni shabllonin falas të Excel nga këtu dhe ta praktikoni vetë.

Kodi VBA për të filtruar të dhënat.xlsm

8 shembuj për të përdorur kodin VBA për të filtruar të dhënat në Excel

Le të njihemi së pari me grupin tonë të të dhënave që përfaqëson disa gjininë, statusin dhe statusin e studentëve të Mosha .

1. Përdorni kodin VBA për të filtruar të dhënat bazuar në një kriter teksti në Excel

Në shembullin tonë të parë, ne do të përdorim VBA për Filtër vetëm Meshkuj studentë nga kolona Gjinia e grupit të të dhënave.

Hapat:

  • Klikoni me të djathtën në titullin e fletës .
  • Më pas zgjidhni Shiko kodin nga menuja e kontekstit .

Së shpejti më pas, do të hapet një dritare VBA .

  • Shkruani kodet e mëposhtme në it- 
3918
  • Më vonë, minimizo VBA

Zbërthimi i kodit

  • Këtu, krijova një procedurë Nën , Filter_Data_Text() .
  • Më pas përdora Vetia Range për të deklaruar emrin e fletës tonë përkatëse dhe varg
  • Më pas, përdora metodën e AutoFilter për të përdorur Kriteret sipas zgjedhjes sime ku Fusha:=2 do të thotë kolona 2 . Dhe Criteria1:=”Mashkull” për të Filtuar të dhënat për Mashkull.
  • Pas kësaj, te hap kutinë e dialogut Macros , kliko si më poshtë: Zhvilluesi > Makrot.

  • Zgjidh Emrin makro siç përmendet në kodet .
  • Më në fund, thjesht shtypni Run .

Tani shikoni se kemi vetëm Të dhënat e studentëve meshkuj pas Filtrimit .

Lexo më shumë: Të dhënat e filtrit Excel bazuar në Vlera e qelisë (6 mënyra efikase)

2. Aplikoni kodin VBA për të filtruar të dhënat me kritere të shumta në një kolonë

Këtu, ne do të filtrojmë për kritere të shumta në një kolonë. Nga kolona numër tre e grupit të të dhënave, ne do të Filtrojmë për studentët Maturant dhe Pasuniversitar .

Hapat:

  • Ndiq dy hapat e parë të shembullit të parë për të hapur dritaren VBA .
  • Më vonë, shkruani kodet e mëposhtme në të- 
6211
  • Më pas minimizoni VBA

Zbërthimi i kodit

  • Këtu, kam krijuar një Nën procedurë, Filter_One_Column() .
  • Më pas përdori veçorinë Range për të deklaruar emrin tonë të fletës dhe rangun
  • Më pas, përdora theMetoda e AutoFilter për të përdorur Kriteret sipas zgjedhjes sime ku Fusha:=3 do të thotë kolona 3 . Këtu, Kriteri 1:=”Diplomuar” dhe Kriteri2:=”Pasuniversitar” për të Filtuar Statusin të studentit.
  • Më në fund, përdora Operator:=xlOr për të aplikuar OR kushtin Filtër për kritere të shumta.
  • Në këtë moment, ndiq hapin e tretë nga shembulli i parë për të hapur dialogun e makrove kutinë .
  • Më vonë, zgjidhni emrin e makrosë të specifikuar dhe shtypni Run .

Menjëherë pas kësaj, ju do të merrni rreshtat e filtruar bazuar në kritere të shumta si imazhi më poshtë.

Lexo më shumë: Filtro kritere të shumëfishta në Excel (4 mënyra të përshtatshme)

3. Aplikoni kodin VBA për të filtruar të dhënat me kritere të shumta në kolona të ndryshme në Excel

Tani do të Filtrojmë për kritere të shumta- Mashkull dhe I diplomuar studentë.

Hapat:

  • Ndiq dy hapat e parë të shembullit të parë për të hapni VBA
  • Më vonë, shkruani kodet e mëposhtme në të- 
9391
  • Pas që minimizon dritaren VBA .

Zbërthimi i kodit

  • Këtu, kam krijuar një Nën procedurë, Filter_Different_Columns() .
  • Më pas, kam përdorur deklaratën With për të përdorur Kollona e shumëfishtë .
  • Më pas përdoret Rapsi veti për të deklaruar emrin tonë të fletës dhe rangun tonë
  • Më pas, përdora metodën AutoFilter për të përdorur Kriteret të zgjedhja ime ku Fusha:=2 do të thotë kolona 2 dhe Fusha:=3 do të thotë kolona 3 .
  • Këtu , zgjodhi Kriteret1:=”Mashkull” për kolonën Gjinia dhe Kriteret1:=”I diplomuar” për kolonën Statusi te Filtër të dhëna nga kolona të ndryshme .
  • Më pas ndiq hapin e tretë nga shembulli i parë për të hapur Kutia e dialogut të makrove .
  • Më vonë, zgjidhni Emrin e makrosë dhe shtypni "Run" .

Këtu është rezultati i kritereve të shumta.

Lexo më shumë: Excel VBA për të filtruar në të njëjtën kolonë sipas kritereve të shumëfishta (6 shembuj)

4. Përdorni kodin VBA për të filtruar 3 artikujt kryesorë në Excel

Në këtë shembull, ne do të filtrojmë tre studentët më të mirë sipas moshës të tyre.

Hapat:

  • Ndiq dy hapat e parë të shembullit të parë për të hapur dritaren VBA .
  • Më pas shkruani kodet e mëposhtme në të- 
9467
  • Pas kësaj, minimizoni Dritarja VBA .

Zbërthimi i kodit

  • Këtu, unë krijoi një Nën procedurë, Filter_Top3_Items() .
  • Dhe më pas përdori Operator:=xlTop10Items në Filter për tre të parat të dhënat .
  • Tani ndiq hapin e tretë nga shembulli i parë për të hapur Dialogu i makrove kutia .
  • Më pas zgjidhni emrin e makrove siç përmendet në kodet dhe shtypni "Run" .

Më pas do të merrni rezultatin si imazhi më poshtë-

Lexo më shumë: Si të filtrosh në bazë të vlerës së celularit duke përdorur Excel VBA (4 metoda)

Lexime të ngjashme

  • Si të kopjoni dhe ngjitni kur Filtri aplikohet në Excel
  • Si të filtroni vlera unike në Excel (8 mënyra të thjeshta)
  • Filtro kritere të shumta në Excel me VBA (të dyja Llojet AND dhe OR)
  • Si të përdorni filtrin e tekstit në Excel (5 shembuj)
  • Si të filtroni sipas datës në Excel (4 Shpejtë Metodat)

5. Përdorni kodin VBA për të filtruar 50 përqindjet më të mira në Excel

Le të përdorim kodet VBA për të filtruar pesëdhjetë përqindjen më të mirë të studentëve bazuar në moshën e tyre .

Hapat:

  • Së pari, Ndiq dy hapat e parë të shembullit të parë për të hapur dritaren VBA .
  • Më vonë, shkruani kodet e mëposhtme në të- 
2766
  • Minimizojeni dritaren VBA .

Zbërthimi i kodit

  • Këtu, kam krijuar një Nën procedurë, Filter_Top50_Percent() .
  • Më vonë, përdoret Operator:=xlTop10Percent në Filtro pesëdhjetë përqindëshin e lartë nga kolona-4 .
  • Në këtë moment, ndiqni hapin e tretë nga shembulli i parë për të hapur Kutia e dialogut të makrove.
  • Më pas zgjidhni Emrin e makrosë dhe shtypni "Run" .

Ka pasur gjithsej 7 studentë kështu që për 50 për qind , po tregon përafërsisht tre studentë .

Lexo më shumë: Si të përdoret formula e përqindjes së fitimit në Excel (3 shembuj)

6 . Aplikoni kodin VBA për të filtruar të dhënat duke përdorur shkronjën e egër

Ne mund të përdorim karakteret e shkrehta-* (yll) në kodet VBA për të filtruar të dhënat në Excel. Nga kolona Statusi , ne do të filtrojmë vetëm vlerat që përmbajnë "Post" .

Hapat:

  • Ndiq dy hapat e parë të shembullit të parë për të hapur dritaren VBA .
  • Më pas shkruaj kodet e mëposhtme në të- 
8025
  • Më vonë, minimizoni dritaren VBA .

Zbërthimi i kodit

  • Këtu, unë krijova një Nën procedurë, Filter_me_karta të egra() .
  • Më pas përdoret Range ("B4") për të vendosur diapazonin.
  • Tjetër , përdorur AutoFilter to Filter in Field:=3 do të thotë kolona 3.
  • Criteria1:=”*Post *” për të Filtuar vlerat që përmbajnë "Post".
  • Tani ndiq hapin e tretë nga së pari shembull për të hapur dialogun Macroskutia.
  • Zgjidh emrin e specifikuar Makro dhe shtyp Run .

Më pas do të merrni rezultatin e dëshiruar.

Lexo më shumë: Si të shtoni filtër në Excel (4 Metoda )

7. Fut Excel VBA për të kopjuar të dhënat e filtruara në një fletë të re në Excel

Shiko që ka disa të dhëna të filtruara në grupin tim të të dhënave. Tani do t'i kopjoj në një fletë të re duke përdorur VBA . Këto kode nuk do të funksionojnë siç duhet në fletë, do t'ju duhet t'i aplikoni në modul.

Hapat:

  • Shtypni Alt+F11 për të hapur VBA

  • Më pas klikoni Fut > Moduli për të hapur një modul .

  • Tani shkruani kodet e mëposhtme – 
8678
  • Më pas minimizo VBA

Zbërthimi i kodit

  • Këtu, kam krijuar një procedurë Nën , Copy_Filtered_Data_NewSheet() .
  • Pas kësaj deklaruar me dy variabla- x Rng si varg dhe xWS si fletë pune.
  • Më pas përdoret një deklaratë IF për të kontrolloni Filteruar
  • Më vonë, përdoret MsgBox për të shfaqur daljen.
  • Më pas përdoret Fletët e punës ("Kopjo të dhënat e filtruara"). AutoFilter .Range për të zgjedhur diapazonin I filtruar dhe përdoret Shto për të shtuar një fletë të re.
  • Më në fund, Rapja e kopjimit(“G4”) do të kopjojë të dhënat Të filtruara në fletën e re .
  • Më vonë, ndiqnihapi i tretë nga shembulli i parë për të hapur kutinë e dialogut Macros .
  • Më pas zgjidhni përcaktuar Emrin makro dhe shtypni Run .

Tani shikoni që Excel ka hapur një fletë të re dhe ka kopjuar rreshtat e filtruar.

Lexo më shumë: Shkurtore për filtrin Excel (3 përdorime të shpejta me shembuj)

8. Aplikoni kodin VBA për të filtruar të dhënat duke përdorur listën rënëse

Në shembullin tonë të fundit, së pari do të krijojmë një listë rënëse për gjinitë, më pas do ta përdorim atë për të filtruar të dhënat. Për këtë, unë i kam vendosur kriteret gjinore në një vend tjetër dhe do të krijojmë një listë rënëse në Qeliza D14 .

Hapat:

  • Zgjidh Qeliza D14 .
  • Më pas kliko si më poshtë: Të dhënat > Mjetet e të dhënave > Vleresimi i te dhenave > Verifikimi i të dhënave.

Menjëherë pas kësaj, do të hapet një kuti dialogu .

Zgjidh Lista nga menyja rënëse Lejo .

Më pas kliko në ikonën Hape nga Kutia e burimit .

Tani zgjidhni diapazonin e kritereve dhe shtypni butonin Enter .

  • Në këtë moment, thjesht shtypni OK .

Tani lista jonë zbritëse është gati.

  • Tani Ndiq dy hapat e parë të shembullit të parë për të hapur dritaren VBA .
  • Më pas shkruaj kodet e mëposhtme në të- 
9467
  • Më pas minimizo VBA-nëdritare .

Zbërthimi i kodit

  • Këtu, kam krijuar një procedurë Nën Private , Ndryshim_Fletë pune (ByVal Target As Range).
  • Më pas, zgjodha Fletën e punës nga Të përgjithshme dhe Ndrysho nga Deklaratat .
  • Më pas vendosni Adresa për të ditur vendndodhjen.
  • Më në fund brenda deklaratës IF përdori metodën AutoFilter me Fusha dhe Kriteret
  • Tani vetëm zgjidhni kriteret nga lista rënëse dhe Filtri do të aktivizohet .

Këtu është dalja I filtruar pasi keni zgjedhur Mashkull nga drop-down .

Lexo më shumë: Si të filtrosh sipas listës në një fletë tjetër në Excel (2 metoda)

Seksioni i praktikës

Do të merrni një fletë praktike në skedarin Excel të dhënë më sipër për të praktikuar mënyrat e shpjeguara.

Përfundim

Shpresoj se procedurat e përshkruara më sipër do të jenë mjaft të mira për të përdorur kodin VBA për të Filtuar të dhënat në excel. Mos ngurroni të bëni çdo pyetje në seksionin e komenteve dhe ju lutem më jepni komente.

Postimi i mëparshëm Excel VBA: Filtër i avancuar me kritere të shumta në një gamë (5 metoda) -
Postimi i radhës Si të përdorni shkurtoren e formatit të piktorit në Excel (5 mënyra)

Hugh West është një trajner dhe analist me përvojë të lartë në Excel me mbi 10 vjet përvojë në industri. Ai ka një diplomë Bachelor në Kontabilitet dhe Financë dhe një Master në Administrim Biznesi. Hugh ka një pasion për mësimdhënien dhe ka zhvilluar një qasje unike të mësimdhënies që është e lehtë për t'u ndjekur dhe kuptuar. Njohuritë e tij eksperte të Excel-it kanë ndihmuar mijëra studentë dhe profesionistë në mbarë botën të përmirësojnë aftësitë e tyre dhe të shkëlqejnë në karrierën e tyre. Nëpërmjet blogut të tij, Hugh ndan njohuritë e tij me botën, duke ofruar mësime falas në Excel dhe trajnime në internet për të ndihmuar individët dhe bizneset të arrijnë potencialin e tyre të plotë.