Excel Cûrtkirin & Fermana Parzûnê ji bo Daneyên Parzûnkirinê veqetandek heye. Lê bi karanîna VBA hûn dikarin Daneyên Parzûn bikin li gorî ku hûn dixwazin di navberek berfireh de. Ev gotar dê 8 mînakên bikêr ji we re peyda bike ku hûn koda VBA bikar bînin da ku Daneyên parzûn bike li excelê bi karanîna VBA kodên bi nîgarên zindî bikar bînin.

Pirtûka Xebatê ya Praktîkê dakêşin

Hûn dikarin şablona Excel-ê ya belaş ji vir dakêşin û bi serê xwe pratîkê bikin.

8 Nimûneyên Ji bo Parzûnkirina Daneyên Excel-ê ji bo Koda VBA-yê bikar bînin

Werin em pêşî bi databasa xwe bidin nasîn ku hin Zayendî, Rewş, û yên xwendekaran temsîl dike. Temen .

1. Koda VBA bikar bînin da ku daneyan li ser bingeha pîvanek nivîsê li Excel Parz bikin

Di mînaka xweya yekem de, em ê VBA ji bo Parzkirin tenê <1 bikar bînin>Xwendekarên nêr ji stûna Cinsîyet ya danûstendinê.

Gavên:

• Rast-klîk li ser sernavê pelê .
• Piştre Koda Dîtinê ji Menûka Têkilî hilbijêrin.

Zû paşê, paceyek VBA wê vebe.

• Li jêr kodên binivîse ew-

5312

• Piştre, VBA

biçûk bike Veqetandina Kodê

• Li vir, min Pêvajoyek Bin , Filter_Data_Text() afirand.
• Piştre Taybetmendiya Range ji bo diyarkirina navê pelê û rêze
• Paşê, min rêbaza Parzûna Xweser bikar anî da ku Pîvanên ya bijareya min bikar bîne ku tê wateya Qad:=2 stûna 2 . Û Krîterên1:=”Nêr” ji bo Parzkirin daneyên Nêr.

• Piştî wê, ji bo koka diyalogê ya Makros veke, wekî jêrîn bitikîne : Pêşdebir > Macro.

• Hilbijêre Navê makro wek ku di kod de tê gotin. .
• Di dawiyê de, tenê Run bikirtînin .

Niha binêrin ku me tenê Daneyên xwendekarên mêr piştî Parzkirin .

Zêdetir Bixwînin: Daneyên Parzûna Excel Li gorî Nirxa Hucreyê (6 Rêbazên Karker)

2. Ji bo Parzûnkirina Daneyên Bi Pir Pîvanan Di Yek Stûnê de Koda VBA-yê bicîh bikin

Li vir, em ê Parz bikin ji bo çend pîvanan di yek stûnê de. Ji stûna hejmara sê ya danezanê, em ê Parz bikin ji bo xwendekarên Mezûn û Postgraduate .

Gavên:

• Du gavên pêşîn bişopînin ya mînakeya yekem ji bo vekirina pencereya VBA .
• Piştre, kodên jêrîn tê de binivîsin-

2612

• Paşê VBA

Veqetandina Kodê

• Li vir, min Pêvajoyek Bine , çêkir. Filter_One_Column() .
• Piştre taybetmendiya Range bikar anî da ku navê pelê û range
• diyar bike. Piştre, min the bikar anîRêbaza Parzûna Xweser ji bo bikaranîna Pîvanên ya bijareya min e ku Field:=3 tê wateya stûna 3 . Va> Di dawiyê de, min Operator:=xlOr bikar anî da ku OR şertê Parzûn ji bo gelek pîvanan bi kar bîne.

• Li vê derê gavê, bişopînin pêngava sêyem ji mînaka yekem ji bo vekirina danûstandina Macros qutiya .
• Piştre, Navê makro yê diyarkirî hilbijêre û Rûn bike .

Piştî demek nêzîk, hûn ê rêzên Parzûnkirî li ser bingeha pir pîvanên mîna wêneya jêrîn bistînin.

Zêdetir Bixwînin: Di Excel de Pîvanên Pirjimar Parzûn bikin (4 Awayên Minasib)

3. Ji bo Parzûnkirina Daneyên bi Pir Pîvanên Di Stûnên Cûda yên li Excel-ê de Koda VBA-yê bicîh bikin

Naha em ê Parz bikin ji bo pir pîvanan- Nêr û Mezûn xwendekar.

Gavên:

• Du gavên pêşîn yên mînaka yekem bişopînin VBA veke
• Piştre, kodên jêrîn di wê de binivîsin-

3275

• Piştî ku paceya VBAyê kêm bike .

Berhevkirina Kodê

• Li vir, min pêvajoyek Bine , Filter_Different_Columns() afirand.
• Piştre, min gotina With bikar anî da ku <1 bikar bîne>Çend stûn .
• Piştre Range bikar anîntaybetmendî ji bo diyarkirina navê pelê û range
• Piştre, min rêbaza Fîltera Xweser bikar anî da ku Prîterên bikar bîne. bijartina min li ku derê Qad:=2 tê wateya stûna 2 û Qad:=3 tê wateya stûna 3 .
• Li vir , Pîvan1:=”Nêr” ji bo stûna Zayenda û Krîter1:=”Mezûn” ji bo stûna Rewş ji bo Parzeyê hilbijart. daneyên stûnên cihê .

• Piştre pêngava sêyemîn bişopînin ji mînakeya yekem ji bo vekirina Quça diyalogê ya makroyê .
• Piştre, Navê makro yê diyarkirî hilbijêre û Rûnê bike .

Li vir encamek pîvanên pirjimar e.

Zêdetir bixwînin: Excel VBA ji bo Parzûnkirina Di Heman Stûnê de li gorî Pir Krîteran (6 Nimûne)

4. Ji bo Parzûnkirina 3 Tiştên Serê di Excel-ê de Koda VBA bikar bînin

Di vê nimûneyê de, em ê sê xwendekarên pêşîn li gorî temenê wan Parz bikin.

Gavên:

• Du gavên pêşîn bişopînin ya mînaka yekem ji bo vekirina paceya VBA .
• Piştre kodên jêrîn di wê de binivîsin-

3292

• Piştî wê kêm bikin Paceya VBA .

Berhevkirina Kodê

• Li vir, ez Pêvajoyek Bine , Filter_Top3_Items() afirand.
• Û paşê Operator:=xlTop10Items ji bo Parzkirin ji bo sê serî dane .

• Niha pêngava sêyemîn bişopînin ji mînakeya yekem ji bo vekirina Diyaloga makroyê qutiya .
• Piştre navê makroyê hilbijêre wek ku di kodan de tê gotin û Run bike .

Piştre hûn ê encamek mîna wêneya jêrîn bistînin-

Zêdetir bixwînin: Meriv çawa li ser bingeha nirxa hucreyê bi karanîna Excel VBA (4 Rêbaz) Parzûn dike

Xwendinên Bi vî rengî

• Meriv Çawa Dema ku Kopî bike û Bihêle Parzûn di Excel de tê sepandin
• Meriv çawa di Excel de Nirxên Yekta Parzûn dike (8 Rêyên Hêsan)
• Di Excel de Pir Pîvanan Bi VBA Parz bike (Herdu AND û OR Tîp)
• Meriv çawa Parzûna Nivîsarê li Excel bikar tîne (5 Nimûne)
• Meriv çawa li Excel li gorî Dîrokê Parzûn dike (4 Zû Rêbaz)

5. Koda VBA-yê bikar bînin da ku 50 ji sedî di Excel-ê de Parzûn bikin

Werin em kodên VBA bikar bînin da ku ji sedî pêncî herî jor xwendekar li gorî temenê wan Parz bikin. .

Gavên:

• Pêşî, Du gavên pêşîn yên mînaka yekem bişopînin ji bo vekirina pencereya VBA .
• Piştre, kodên jêrîn dinivîsin-

9935

• Pencera VBAyê kêm bikin .

Berhevkirina Kodê

• Li vir, min Pêvajoyek Bine , Filter_Top50_Percent() afirand.
• Piştre, Operator:=xlTop10Percent ji bo <1 bikar anîn>Pêncî ji sedî jor Parzûn bikin stûn-4 .

• Di vê gavê de, gava sêyemîn bişopînin ji mînaka yekem ji bo vekirina Qutiya diyalogê ya makroyê.
• Piştre navê makro yê diyarkirî hilbijêre û Rûnê bike .

Bi tevahî 7 xwendekar hebûn, ji ber vê yekê ji sedî 50 , bi qasî sê xwendekar nîşan dide.

Zêdetir Bixwîne: Meriv çawa Formula Ji sedî Qezencê li Excel bikar tîne (3 Nimûne)

6 . Koda VBA-yê ji Parzûnkirina Daneyên Bi Karta Wildcard re bi kar bînin

Em dikarin karakterên wildcard-* (stêrk) di kodên VBA de bikar bînin da ku daneyên di Excel de Parzûn bikin. Ji Stûna Rewşê , em ê tenê nirxên ku 'Post' hene Parzûn bikin.

Gavên:

• Du gavên pêşîn yên mînakeya yekem bişopînin da ku pencereya VBA vekin.
• Piştre binivîsin kodên jêrîn di nav wê de-

3300

• Piştre, pencereya VBA kêm bikin.

Veqetandina Kodê

• Li vir, min Pêvajoyek Bine , Filter_with_Wildcard() .
• Piştre Range ("B4") ji bo danîna rêzê bi kar anîn.
• Piştre , bikaranîn OtoFilter ji bo Parzkirin di Qada:=3 tê wateya stûna 3.
• Krîteran1:=”*Post *” ji bo Parzkirin nirxên ku "Post" tê de hene.

• Niha pêngava sêyemîn bişopînin ji yekem mînak ji bo vekirina diyaloga Macrosbox.
• Hilbijêre Navê makro yê diyarkirî û Run bike .

Piştre hûn ê derenca xwestî bistînin.

Zêdetir Bixwînin: Meriv çawa Parzûnê li Excel zêde bike (4 Rêbaz )

7. Excel VBA bixin da ku Daneyên Parzkirî di Excel-ê de Kopî bikin

Binêrin ku di databasa min de hin daneyên Parzkirî hene. Naha ez ê wan bi karanîna VBA li pelek nû kopî bikim. Ev kod dê di pelê de bi rêkûpêk nexebitin, divê hûn wan di modulê de bicîh bikin.

Gavên:

• Alt+F11 bikirtînin da ku VBA

• Piştre bikirtînin Têxin > Modul ji bo modulekê veke .

• Niha kodên jêrîn binivîsin –

2076

• Piştre VBA

• Li vir, min Pêvajoyek Bin , Copy_Filtered_Data_NewSheet() çêkir.
• Piştî wê du-guhêrbar- x Rng Wek Rêze û xWS Wek Bernameya Xebatê ragihand.
• Piştre ji bo a IFê bi kar anîn. kontrol bikin Parzûn kirin
• Piştre, MsgBox bikar anîn da ku encam nîşan bide.
• Piştre Parpelên xebatê ("Daneyên Parzkirî Kopî Bikin") hatin bikaranîn. AutoFilter .Range ji bo hilbijartina rêzika Parzekirî û Zêde bike ji bo lêzêdekirina pelek nû bikar bîne.
• Di dawiyê de, Rêbaza Kopîkirinê(“G4”) dê daneyên Parzekirî li pela nû kopî bike.

• Piştre, bişopînegava sêyem ji nimûneya yekem vekirina qutiya diyalogê ya makroyê .
• Piştre navê makro yê diyarkirî hilbijêrin û Run bikirtînin .

Niha bibînin ku Excel pelek nû vekiriye û rêzên Parzûnkirî kopî kiriye.

Zêdetir Bixwînin: Kurtebira ji bo Parzûna Excel (3 Bi Nimûneyan Bikarhênanên Bilez)

8. Koda VBA-yê ji bo Parzûnkirina Daneyan Bi Bikaranîna Lîsteya Davêjê Bikar Bikin

Di mînaka xweya paşîn de, em ê pêşî ji bo zayendan navnîşek daketî çêkin paşê em ê wê ji bo Parzûnkirina daneyan bikar bînin. Ji bo wê, min pîvanên zayendî li cîhek din bi cih kir û em ê di Cel D14 de lîsteyek daketî çêkin.

Gavên:

• Haneya D14 Hilbijêre.
• Piştre Bi vî awayî bitikîne: Daneyên > Amûrên Daneyên & gt; Rastkirina Daneyên & gt; Verastkirina Daneyan.

Piştî demeke nêzîk, qutiya diyalogê dê vebe.

Hilbijêre Lîsteya ji Destûra daketinê .

Piştre li ser îkona Vekirî ji Qutika Çavkanî bikirtînin.

Niha rêjeya pîvanan hilbijêrin û bişkoka Enter bixin .

• Di vê gavê de, tenê OK bikirtînin .

Niha lîsteya me ya drop-down amade ye.

• Niha Du gavên pêşîn bişopînin ya mînakeya yekem ji bo vekirina pencereya VBA .
• Piştre Piştre kodên jêrîn dinivîsin-

4522

• Piştre VBAyê kêm bikinpace .

Berhevkirina Kodê

• Li vir, min çêkir a Pêvajoya Bingeha Taybet , Pêşxebata_Guhertina (ByVal Target As Range).
• Piştre, min Pelgeya xebatê ji Giştî û Guherandin ji Daxuyaniyan hilbijart.
• Piştre Navnîşan saz bike da ku cîhê nas bike.
• Di dawiyê de di nav IF daxuyaniyê de rêbaza Fîltera Xweser bi Qada <2 re bikar anî>û Pîvan

• Niha tenê ji lîsteya daketî pîvanan hilbijêrin û Parzûn dê were aktîfkirin .

Li vir derenca Parzkirin heye, piştî ku Nêr ji drop-down hilbijêrin.

Zêdetir Bixwîne: Meriv çawa li pelek din di Excel de (2 Rêbaz) li gorî Lîsteyê Parz bike

Beşa Praktîkê

Hûn ê di pela Excel ya ku li jor hatî dayîn de kaxezek pratîkê bistînin da ku hûn awayên ravekirî biceribînin.

Encam

Ez hêvî dikim ku prosedurên ku li jor hatine destnîşan kirin dê têra xwe baş bin ku VBA kodê ji bo Parzûna daneyan li excel bikar bînin. Di beşê şîroveyê de tu pirsê bipirse û ji kerema xwe bersiva min bide.