Edukien taula
Excel-en VBA rekin lan egiten dugun bitartean erabiltzen dugun funtzio garrantzitsuenetariko eta erabilienetako bat VBA ren Mid funtzioa da. Kate bat hartzen du sarrera gisa eta katearen erditik karaktere kopuru jakin bat itzultzen du irteera gisa. Gaur artikulu honetan, VBA ren Mid funtzioa nola erabil dezakezun erakutsiko dizut adibide eta ilustrazio egokiekin.
Horrek 9 karaktereak itzuliko ditu “Angela Catherine Nevills” katetik, 8. karakteretik hasita. “Catherine” da.
Deskargatu Praktika-lan-koadernoa
Deskargatu praktika-liburu hau zeregina aritzeko bitartean artikulu hau irakurtzen ari zara.
VBA Mid Function.xlsm
VBAren erdiko funtzioaren sarrera Excel-en
⧭ Funtzioaren helburua:
Mid funtzioak balio bat hartzen du sarrera gisa eta karaktere kopuru jakin bat itzultzen du irteera gisa balioaren posizio jakin batetik hasita.
Balioa katea, zenbakia edo boolearra izan daiteke.
Adibidez, Mid("Angela Catherine Nevills",8,9) sartzen baduzu, "Catherine" itzuliko da.
Erdikoa (12345,2,3) txertatzen baduzu, lortuko duzu 234.
Eta Erdikoa (Gezurra,2,3) txertatzen baduzu, als lortuko duzu.
⧭ Sintaxia:
Erdiko sintaxia VBA ren funtzioahau da:
=Mid(String,Start as Long,[Length]) ⧭ Argudioak:
| Argudioa | Derrigorrezkoa / Aukerakoa | Azalpena |
|---|---|---|
| Katea | Beharrezkoa | Honen katea zein karaktere kopuru bat itzuliko den. |
| Hasi | Beharrezkoa | Itzuliko den katearen hasierako karakterea. |
| Luzera | Aukerakoa | Itzuliko den karaktere kopurua. Lehenetsia 1 da. |
⧭ Balio itzultzailea:
Erditik karaktere kopuru jakin bat itzultzen du kate baten, posizio jakin batetik hasita.
3 Excel-en VBAren erdiko funtzioaren adibideak
Oraingo honetan, arakatu dezagun Mid funtzioa< VBA -ko 2> zehatz-mehatz adibide batzuekin.
1. Karaktere kopuru jakin bat ID batzuen erditik bereiztea Excel-en VBAren erdiko funtzioa erabiliz
Hemen IDak eta dituen datu multzo bat dugu. Saturn Group izeneko enpresa bateko langile batzuen izenak .
Hona, bakoitzaren 4. tik 7. karaktereak IDak dagokion langilearen fitxaketa-urtea adierazten du.
Orain Erabiltzaileak definitutako funtzioa garatuko dugu VBA ren Mid funtzioa erabiliz. horrek langile bakoitzaren fitxaketa urtea aterako du Langile ID tik.
Ondoko VBA kode hau erabil dezakezu:
⧭ VBA kodea:
8434
Oharra: Kode hau Joining_Year izeneko funtzioa sortzen du.
⧭ Irteera:
Exekutatu hau funtzioa zure lan-orriko edozein gelaxketan argumentu gisa ID batekin.
Hemen, D4 gelaxkan, formula sartu dugu:
=Joining_Year(B4) Lehenengo langilearen fitxaketa urtea itzuli du, 2021 .
Orain arrastatu dezakezu. Bete heldulekua gainontzeko langileen urteak lortzeko.
⧭ Kodearen azalpena:
- Lehenik eta behin, Joining_Year izeneko funtzio bat deklaratzen dugu, Function Joining_Year(ID) lerroaren ID bat sarrera gisa hartzen duena.
- Ondoren, 4 karaktereak ateratzen ditugu IDtik 4 posiziotik hasita, Joining_Year = Mid(ID, 4, 4) lerrotik.
- Amaiera funtzioa lerroak funtzioaren amaiera deklaratzen du.
2. Helbide elektroniko batzuetatik luzapenak ateratzea Excel-en VBAren erdiko funtzioa erabiliz
Orain zutabe berri bat gehitu dugu datu multzoan, langileen helbide elektronikoak dituena.
Oraingo honetan helbide elektronikoen luzapenak aterako ditugu VBA ren Mid funtzioa erabiliz.
The VBA kodea hau izango da:
⧭ VBA kodea:
4866
Oharra: Kode hau Hedapena izeneko funtzioa sortzen du.
⧭ Irteera:
Exekutatu hau funtzioa zure lan-orriko edozein gelaxketan Mezu elektroniko batekinHelbidea argumentu gisa.
Hemen, E4 gelaxkan, formula idatzi dugu:
=Extension(D4) Lehenengo helbide elektronikoaren luzapena itzuli du.
Ondoren, Bete heldulekua arrastatu dezakezu mezu elektroniko guztien luzapenak ateratzeko. helbideak.
⧭ Kodearen azalpena
- Lehenik eta behin, izeneko funtzio bat deklaratzen dugu Hedapena Funtzio Hedapena(Helbide_E-posta) lerroaren sarrera gisa edozein izen hartzen duena.
- Ondoren, iterazio bat hasiko dugu begizta<2 batekin> Helbide elektronikoa ren karaktere bakoitza egiaztatzen duena @ den ala ez Erdikoa (Helbide_E-posta, i, 1) = “@” Gero<2 lerroaren bidez ikusteko> .
- @ bat aurkitzen badu, Helbide elektronikoa tik behar den luzapena ateratzen du Luzapena = Erdikoa(Helbide_E-posta, i + 1, Len(Helbidea_E-posta) – (i + 4)) .
- Azkenik, funtzioaren amaiera aldarrikatzen dugu.
3. Testu batzuk egiaztatzea testu zehatz bat duten edo ez ikusteko
Mid funtzioaren erabilera garrantzitsuenetako bat testu batek testu zehatz bat duen edo ez ikustea da. .
Gara dezagun funtzio bat Helbide elektronikoak ek “gmail” terminoa duten ala ez egiaztatzeko.
Ondoko hau erabil dezakezu VBA kodea:
⧭ VBA kodea:
3151
Oharra: Kode honek funtzio bat sortzen du deitua Egiaztatzen .
⧭ Irteera:
Exekutatu funtzio hau edozein gelaxkatan zure lan-orriaren bi testu argumentu gisa.
Hemen, E4 gelaxkan, formula sartu dugu:
=Checking(D4,"gmail") bai itzuli da, 1. helbide elektronikoa Gmail helbidea delako.
Ondoren, arrastatu dezakezu Bete heldulekua gauza bera egiteko posta elektronikoko ID guztientzat.
⧭ Kodearen azalpena:
- Lehenik eta behin, Egiaztapena izeneko funtzioa deklaratzen dugu, bi testu hartzen dituena Funtzio Egiaztapena(Testua1,Testua2) lerroaren argumentu gisa.
- Ondoren, Text1 posiziotik hasita 1 -ren segmentu bakoitza egiaztatzen duen for begizta bat hasten dugu, Text2 -ren berdina den ala ez ikusteko. , lerroaren bidez Erdikoa (Testua1, i, Len(Testua2)) = Testua2 Orduan .
- Testua2 aurkitzen badu, “Bai” itzultzen du, bestela “Ez” itzultzen du.
- Azkenik, funtzioa Amaiera funtzioa lerroaren bidez ondorioztatzen dugu.
Gogoratu beharreko gauzak
- Erdiko funtzioa ren 1. argumentua ez da beti kate bat izan behar. katea , zenbakia edo boolear balio bat izan daiteke.
- Baina 2. eta 3. argumentuak zenbakiak izan behar dira. zenbaki osoak edo zatikiak izan daitezke baina zenbakiak izan behar dute. zatikiak badira, Erdikoa funtzioak osoko hurbilenetara bihurtuko ditu.
