Tabloya naverokê
Yek ji fonksiyonên herî girîng û berfireh ên ku em bi VBA re di Excel de dixebitin bikar tînin, Fonksiyon Mid ya VBA e. Ew rêzek wekî têketinê digire û hejmarek diyarkirî ya tîpan ji nîvê rêzê wekî encam vedigerîne. Îro di vê gotarê de, ez ê nîşanî we bidim ka hûn çawa dikarin Fonksiyona Navîn ya VBA bi mînak û nîgarên rast bikar bînin.
Ev ê 9 tîpan ji rêzika "Angela Catherine Nevills" vegerîne, ji karaktera 8emîn dest pê dike. Ew "Catherine" ye .
Pirtûka Xebatê ya Praktîkê dakêşin
Vê pirtûka pratîkê dakêşin da ku dema ku peywirê bi kar bînin tu vê gotarê dixwînî.
VBA Mid Function.xlsm
Destpêka Fonksiyona Navîn a VBA di Excel de
⧭ Armanca Fonksiyonê:
Fonksiyon Navenda nirxek wekî têketinê digire û jimareke diyarkirî ya tîpan vedigerîne ku ji cihekî diyarkirî ya nirxê dest pê dike wekî encam vedigerîne.
Nirx dikare strek, hejmar , an jî boolean be.
Mînakî, heke hûn Mid("Angela Catherine Nevills",8,9) têxin, ew ê vegere "Catherine" .
Heke hûn Mid(12345,2,3) têxin , hûn ê 234 bistînin.
Û têxin Mid(False,2,3) , hûn ê als bistînin.
⧭ Hevoksazî:
Sîntaksa Navîn fonksiyona ji VBA ev e:
=Mid(String,Start as Long,[Length]) ⧭ Arguman:
| Argument | Pêdivî / Bijarte | Rêvekirin |
|---|---|---|
| Rêz | Pêdivî | Rêza ji ku hejmarek ji tîpan dê bên vegerandin. |
| Destpêk | Pêdivî ye | Karaktera destpêkê ya rêzika ku dê were vegerandin. |
| Dirêjahî | Vebijêrk | Hejmara tîpên ku dê bên vegerandin. Pêşniyaz 1 e. |
⧭ Nirxa Vegerê:
Hejmarek diyarkirî ya tîpan ji navîn vedigerîne ji rêzek, ji cîhek diyarkirî dest pê dike.
3 Nimûneyên Fonksiyona Navîn a VBA-yê di Excel de
Vê carê, werin em li fonksiyona navîn ji VBA bi hûrgilî bi çend mînakan.
1. Veqetandina jimareyek diyarkirî ya karakteran ji navîna hin nasnameyan Bi karanîna fonksiyona navîn a VBA-yê li Excel
Li vir me komek daneya bi Nasnameyên û heye. Navên hinek xebatkarên şirketeke bi navê Saturn Group.
Li vir, 4 heta 7 karakterên her yek Nasnameya sala tevlêbûna karmendê têkildar destnîşan dike.
Niha em ê bi Fonksiyonek Bikarhêner-Defined bi karanîna Fonksiyon Mîd ya VBA pêş bixin. ew ê sala tevlêbûna her karmendek ji Nasnameya Karmend derxe.
Hûn dikarin koda VBA jêrîn bikar bînin:
⧭ Koda VBA:
8327
Têbînî: Ev kodfonksiyonek bi navê Sala_Tevlêbûnê diafirîne.
⧭ Derketin:
Vê bimeşîne di her şaneyek pelgeya xebata we de bi nasnameyek wekî arguman kar dike.
Li vir, di hucreya D4 de, me formula ket:
=Joining_Year(B4) Sala tevlêbûna karmendê yekem vegeriya, 2021 .
Niha hûn dikarin bikşînin Handle dagirin da ku hûn salên tevlêbûna karmendên mayî bistînin.
⧭ Ravekirina Kodê:
- Pêşî, em fonksiyonek bi navê Sala_Tevlêbûnê diyar dikin ku ji hêla rêza Fonksiyon_Sala_Tevlêbûnê(ID) ID-yê wekî têketinê digire.
- Piştre em 4 tîpan ji ID-yê ji pozîsyona 4 dest pê dikin, bi rêza Tevlî_Sala = Mid(ID, 4, 4) derdixin.
- Rêza Fonksiyon Dawî dawiya fonksiyonê diyar dike.
2. Derxistina Berfirehiyan ji Hin Navnîşanên E-nameyê Bi Bikaranîna Fonksiyona Navîn a VBA-yê di Excel de
Niha me stûnek nû li berhevoka daneyê zêde kiriye, ku navnîşanên e-nameyên karmendan tê de hene.
0> 
Vê carê em ê dirêjkirinên Navnîşanên E-nameyê bi karanîna fonksiyona Navê ya VBA derxînin.
Koda VBA dê bibe:
⧭ Koda VBA:
7560
Têbînî: Ev kod fonksiyonek bi navê Pêvekirin diafirîne.
⧭ Derketin:
Vê bixebitîne bi E-nameyê di her şaneyek pelgeya xebata we de kar bikeNavnîşan wekî arguman.
Li vir, di hucreya E4 de, me formula ket:
=Extension(D4) Ew dirêjkirina navnîşana e-nameyê ya yekem vegerandiye.
Piştre hûn dikarin Dengê dagirtin bikşînin da ku pêvekên hemî e-nameyê derxînin. navnîşanan.
⧭ Ravekirina Kodê
- Pêşî, em fonksiyonek bi navê Berfirehiya ku navekî wek têketina rêzê digire Fonction Extension(Email_Address) .
- Piştre em bi for-loop<2 dest bi dubarekirinê dikin> ku her karektera Navnîşana E-nameyê kontrol dike da ku bibîne ka ew @ e an na bi rêzê Eger Mid(Email_Address, i, 1) = "@" Paşê .
- Heke ew @ bibîne, wê demê ew pêveka pêwîst ji Navnîşana E-nameyê derdixe bi rêza Berfireh = Mid(Navnîşan_E-mail, i + 1, Len(Navnîşan_E-mail) – (i + 4)) .
- Di dawiyê de, em dawiya fonksiyonê diyar dikin.
3. Kontrolkirina Hin Nivîsan ji bo dîtina ka ew nivîsek taybetî dihewîne an na
Yek ji karanîna herî girîng a fonksiyona navîn ev e ku hûn bibînin ka nivîsek nivîsek taybetî heye an na .
Werin em fonksiyonek pêş bixin ku kontrol bikin ka Navnîşanên E-nameyê têgeha “gmail” heye an na.
Hûn dikarin jêrîn bikar bînin VBA Koda:
⧭ Koda VBA:
5289
Têbînî: Ev kod fonksiyonekê diafirîne gazî kirin Kontrolkirin .
⧭ Derketin:
Vê fonksiyonê di her şaneyê de bixebitîne ji pelgeya te ya xebatê bi du nivîsan wekî arguman.
Li vir, di hucreya E4 de, me formula ket:
=Checking(D4,"gmail") Ew vegeriya erê ji ber ku navnîşana e-nameya yekem navnîşek Gmail ye.
Piştre hûn dikarin navnîşana e-nameyê bikşînin. Handle dagirin ku ji bo hemî Nasnameyên E-nameyê heman tiştî bikin.
⧭ Ravekirina Kodê:
- Pêşî, em fonksiyonek bi navê Kontrolkirin diyar dikin ku ji hêla rêzê ve du nivîsan wekî arguman digire Kontrolkirina fonksiyonê(Nivîs1,Nivîs2) .
- Dûv re em xelekek for dest pê dikin ku her beşa Text1 ji pozîsyona 1 dest pê dike kontrol dike, da ku bibînin ka ew wekhev e Text2 an na , bi rêza Ger Mid(Text1, i, Len(Text2)) = Text2 Paşê .
- Ger Text2 bibîne, wê demê "Erê" vedigere, wekî din ew vedigere "Na" .
- Di dawiyê de, em fonksiyonê bi rêza Fonksiyon Dawî diqedînin.
Tiştên Bîrnebûnê
- Argûmana 1emîn ya Fonksiyon Mîd ne hewce ye ku her tim rêzek be. Ew dikare bibe strek , hejmar , an jî nirxek boolean .
- Lê 2yemîn û Argumanên sêyemîn divê hejmar bin. Ew dikarin bibin jimare an parçe lê divê hejmar bin. Ger ew fraksiyon bin , wê demê Navêfonksiyona dê wan biguherîne jimarên herî nêzîk .
