Excel VBA: Ger Hucre Nirx Bide Wê Vegere Hilberek Diyarkirî

Hugh West

16-10-2023 Makro & amp; Excel VBA
  • Vê Parve Bikin
Hugh West

Di vê gotarê de, ez ê nîşanî we bidim ka hûn çawa dikarin rewşê li Excel-ê analîz bikin VBA heke şaneyek nirxek hebe. Hûn ê fêr bibin ku rewşê hem ji bo her nirxek û hem jî ji bo nirxek taybetî analîz bikin.

Analîzkirina VBA ya Excel: Ger Hucre Nirxek Dihewîne wê demê (Nêrînek Zû)

4660

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

Vê pirtûka xebatê ya pratîkê dakêşin da ku dema hûn vê gotarê dixwînin biceribînin.

VBA Ger Cell Nirx Bide Paşê.xlsm

Excel VBA Analîz: Ger Hucre Nirxek Dihewîne Paşê Vegere Hilberan (Analîzkirina Gav bi Gav)

Li vir me daneyek bi nîşaneyên hin xwendekaran di Fîzîk, Kîmya de heye, û Matematîk li dibistana bi navê Sunflower Kindergarten.

Hapên vala tê wê maneyê ku xwendekar xuya nebûye, ango di wê îmtîhanê de tunebû. Niha em rewşê analîz bikin, ka şaneyek nirxek dihewîne an na, bi vê berhevoka daneyê.

⧪ Gav 1: Daxuyankirina Hucreyê

Pêşî, divê em şaneya ku em dixwazin nirxa wê analîz bikin diyar bikin. Werin em analîz bikin ka Jennifer Marlo di îmtîhana Fîzîkê de derketiye an na.

Ji ber vê yekê, divê em kontrol bikin ka şaneya C12 nirxek heye an na.

Ji bo vê yekê, pêşî, divê em şaneya C12 ragihînin.

Rêza kodê ya ku vê pêk bîne dê bibe: 

1982

⧪ Gav 2: Kontrol bikin ka şanek tê de ye Nirxek (Nirxek Taybetî Tê de)

Piştre, divê em kontrol bikin ka geloşaneyê nirxek dihewîne an na. Em ê vê bi karanîna Eger şertê bi kar bînin. Rêzika kodê dê bibe: 

3403

Heke şaneyek nirxek hebe ev kod dê were darve kirin. Ji bo kontrolkirina nirxekê (Mînakî, gelo ew 100 dihewîne yan na), wê nirxa taybetî bi nîşana Wekhevî bikar bînin. 

6339

⧪ Gav 3: Dabeşkirina Karê

Piştre divê hûn karekî saz bikin ku heke şaneyek nirxek (an nirxek taybetî) hebe, dê were bicîh kirin.

Li vir, em dixwazin peyamê nîşan bidin. "Jennifer Marlo di ezmûna Fîzîkê de xuya bû." . Ji ber vê yekê rêza kodê dê bibe: 

3896

⧪ Gav 4: Bidawîkirina bloka If

Di dawiyê de, divê hûn dawiya bloka If ragihînin. 

3644

Ji ber vê yekê tam VBA kodê dê bibe:

⧭ Koda VBA: 

3246

⧭ Derketin:

Vê kodê bixebitîne bi tikandina bişkoka Run Sub/UserForm ya li darikê amûran.

Ew ê peyama "Jennifer Marlo di azmûna Fîzîkê de xuya bû" nîşan bide. wekî şaneya C12 nirxek 50 heye.

Nimûneyên Têkilî Ger şaneyek Nirxek Dihewîne Paşê Bi Excel VBA re Hilberek Diyarkirî

Em fêr bûne ku analîz bikin ka şaneyek nirxek an ne di VBA de. Niha, em çend mînakan bikolin da ku têgihiştinê zelal bikin.

1. Pêşxistina makroyek ji bo Parzûnkirina Nirxek Heke Hucreya Têkildar Nirxek Dihewîne wê hingê di Excel VBA de

Werin em pêşkeftinek Makro ji bo fîlterkirina şagirtên ku di her îmtîhanê de derketine holê.

Ango, divê em şaneyên ku nîşaneyên her dersekê vedigirin kontrol bikin û bibînin ka ew nirxek dihewîne yan na. an na.

Heke ew bikin, wê demê divê em navê xwendekarê têkildar ji hev veqetînin.

Koda tam VBA ku vê yekê pêk bîne dê bibe:

⧭ Koda VBA: 

4354

⧭ Derketin:

Koda daneyê hilbijêre ( Tevlî Sernivîsan ) û vê Makro bixebitînin.

Pêşî, ji we tê xwestin ku hûn referansa ya yekem têkevin. hucreya ku hûn daneyên fîlterkirî dixwazin. Min ket G3 .

Piştre OK bikirtînin. Hûn ê navên xwendekarên ku di her îmtîhanan de derketine holê (Tê de Sernivîs ) di daneya nû de ku ji şaneya G3 dest pê dike.

2. Afirandina fonksiyonek bikarhêner diyarkirî ji bo veqetandina nirxek Ger hucreya peywendîdar Nirxek Taybet Dihewîne wê hingê di Excel VBA de

Naha em ê fonksiyonek diyarkirî ya bikarhêner ava bikin ku dê navên xwendekaran vegerîne. ê ku di her mijarê de nîşanek taybetî girtiye.

Pêvajo hema hema wekî ya jorîn e. Divê em şaneyên ku nîşaneyên her yek ji babetan vedihewînin kontrol bikin û bibînin ka ew bi nirxek taybetî re wekhev in an na.

Eger ew bin, wê demê em ê navê xwendekarê têkildar vegerînin.

Koda VBA dê bibe:

⧭ VBAKod: 

3734

⧭ Derketin:

Kodê fonksiyonek bi navê Cells_with_Values diafirîne. du argumanan digire, Rêze û Nirx .

Werin em fêr bibin xwendekarên ku di her dersekê de bi karanîna vê fonksiyonê 100 wergirtine.

Di pelgeya xebatê de rêzek hucreyan hilbijêrin û vê fonksiyonê di şaneya yekem a rêzê de binivîsin:

=Cells_with_Values(B3:E13,100)

[Li vir B3: E3 berhevoka daneya min e (Di nav de Sernav ) û 100 nirxa min a hevber e. Hûn yeka xwe bikar tînin.]

Piştre CTRL + SHIFT + ENTER ( Formula Array ) bikirtînin. Ew ê rêzek ku ji navên xwendekarên ku di her mijarê de 100 stendine pêk tê vegerîne, di nav de Sernivîs .

3. Pêşxistina Bikarhêner Formek Ji bo Derxistina Nirxek heke Hucreya Têkildar Nirxek (An Nirxek Taybet) Di Excel VBA de Dihewîne

Di dawiyê de, em ê Forma Bikarhêner pêş bixin ku ji navên şagirtên ku di hin îmtîhanên taybetî de derketine (an jî pûanên taybet wergirtine).

⧪ Gav 1: Vekirina BikarhênerForma

Here Têxe > Vebijarka UserForm di edîtorê VBA de ji bo vekirina UserForm ya nû. UserForm -ya nû ya bi navê UserForm1 dê were vekirin.

⧪ Gav 2: Vekêşana Amûran berbi Forma Bikarhêner

Ji bilî UserForm , hûn ê Toolbox bistînin. Kursorê xwe bigerînin ser Amûran û 4 Etîketan kaş bikin (Label1, Label2,Label3, Label4) û 3 ListBox (ListBox1, ListBox2, ListBox3) û TextBox (TextBox1) bi şeklê çargoşe li ser UserForm .

Piştre Etîketeke din (Label5) û TextBox (TextBox2) kaş bikin ber quncika çepê ya binî ya UserForm .

Di dawiyê de, CommandButton (CommandButton1) kaş bikin li quncika binê rastê.

Pêşandanên Etîketan biguherînin bo Stûna Lêgerînê , Stûna Vegere , Her Nirxek an Nirxek Taybet , Nirx, û Xaneya Destpêkê.

Herwiha, nîşana CommandButton1 biguherîne bo OK .

⧪ Gav 3: Nivîsandina Kodê ji bo ListBox3

Li ser ListBox3 ducar bikirtînin. Dê Pêvajoyek Taybet ya bi navê ListBox3_Click vebe. Koda jêrîn li wir binivîse. 

2224

⧪ Gav 4: Ji bo CommandButton1 kodê binivîsin

Piştre du caran li ser CommandButton1 bikirtînin . Din Pêvajoya Taybetî ya bi navê CommandButton1_Click dê vebe. Koda jêrîn li wir binivîsin. 

5946

⧪ Gav 5: Nivîsandina Kodê Ji bo BikarhênerForm Bixebitîne

Di dawiyê de, Modulek ya nû ji Modulek têxe VBA toolbar û koda jêrîn têxe wir. 

9258

⧪ Gav 6: Bikarhêner Forma Bikarhêner Bixebitîne (Derketina Dawî)

UserForm we niha ji bo bikaranînê amade ye. Daneyên ji pelgeya xebatê hilbijêrin ( B3:E13 li vir) ( Sernivîs tê de) û Makro bi navê Run_UserForm bixebite.

UserForm dê di pelxebatê de were barkirin. Ji tabloya Stûna Lêgerînê , min Fîzîk û Matematîk hilbijart, ji ber ku ez dixwazim navên xwendekaran ên ku di Fîzîk de derketine bibînim. û îmtîhanên Matematîk .

Ji tabloya Stûna Vegere , min Navê Xwendekar hilbijart, ji ber ku ez dixwazim navên xwendekaran bibînim.

Û ji tabloya Her Nirxek an Nirxek Taybet , min Her nirx hilbijart.

Di dawiyê de, di hucreya Destpêkê de Qutika , min G3 daniye.

Piştre OK bitikîne. Hûn ê navên xwendekarên ku di îmtîhanên Fîzîk û Mathematics de derketine ji şaneya G3 dest pê dikin.

Heke we Nirxa Taybet ji tabloya Her Nirxek an Nirxa Taybet hilbijartibûya, weyê TextBox din bikira da ku hûn nirxa taybetî têkevinê.

Li vir min 100 nivîsand.

Bitikîne OK . Û hûn ê xwendekarên ku 100 di Fîzîk û Kîmya de bi dest xistine.

Tiştên Bîranîn

Me rêzek du-alî bi kar anî da ku navên xwendekaran vegerînin Fonksiyonek Bikarhêner-Defined ku di nimûneyê de tê diyar kirin 2 .

Posta berê Barika jêrîn a paşîn di Excel de winda ye (7 Çareseriyên Mumkun)
Posta paşîn Meriv çawa Grafikên Rêzikê li Excel-ê Vedigire (3 Mînakên Maqûl)

Hugh West perwerdekar û analîstek Excel-ê pir bi tecrûbe ye ku di pîşesaziyê de zêdetirî 10 salan ezmûn heye. Di warê Hesabgiranî û Darayî de bawernameya Bachelorê û di Rêveberiya Karsaziyê de jî Master e. Hugh ji hînkirinê re dilşewat e û rêgezek hînkirinê ya bêhempa pêşxistiye ku hêsan tê şopandin û têgihiştin. Zanîna wî ya pispor a Excel alîkariya bi hezaran xwendekar û pisporan li çaraliyê cîhanê kiriye ku jêhatîbûnên xwe baştir bikin û di kariyera xwe de pêşde bibin. Bi bloga xwe, Hugh zanîna xwe bi cîhanê re parve dike, dersên belaş Excel û perwerdehiya serhêl pêşkêşî dike da ku alîkariya kes û karsaziyan bike ku bigihîjin potansiyela xwe ya tevahî.