Tabela e përmbajtjes
Një nga funksionet më të rëndësishme dhe më të përdorura që përdorim gjatë punës me VBA në Excel është funksioni Mid i VBA . Ai merr një varg si hyrje dhe kthen një numër të caktuar karakteresh nga mesi i vargut si dalje. Sot në këtë artikull, unë do t'ju tregoj se si mund të përdorni funksionin Mid të VBA me shembuj dhe ilustrime të duhura.
Kjo do të kthejë 9 karaktere nga vargu "Angela Catherine Nevills" , duke filluar nga karakteri 8 . Është “Catherine” .
Shkarko librin praktik të punës
Shkarko këtë libër praktik për të ushtruar detyrën ndërsa po e lexoni këtë artikull.
VBA Mid Function.xlsm
Hyrje në funksionin e mesit të VBA në Excel
⧭ Objektivi i funksionit:
Funksioni Mid merr një vlerë si hyrje dhe kthen një numër të caktuar karakteresh duke filluar nga një pozicion i caktuar i vlerës si rezultat.
Vlera mund të jetë një string, numër , apo edhe një boolean .
Për shembull, nëse futni Mid("Angela Catherine Nevills",8,9), do të kthehet "Catherine" .
Nëse futni Mid(12345,2,3) , do të merrni 234.
Dhe vendosni Mid(False,2,3) , do të merrni als .
⧭ Sintaksa:
Sintaksa e Mid funksioni nga VBA është:
=Mid(String,Start as Long,[Length]) ⧭ Argumentet:
| Argument | Kërkohet / Opsionale | Shpjegim |
|---|---|---|
| String | Kërkohet | Vargu nga të cilat do të kthehen një numër karakteresh. |
| Start | Kërkohet | Karakteri fillestar i vargut që do të kthehet. |
| Gjatësia | Opsionale | Numri i karaktereve që do të kthehen. Parazgjedhja është 1. |
⧭ Vlera e kthimit:
Kthen një numër të caktuar karakteresh nga mesi të një vargu, duke filluar nga një pozicion i caktuar.
3 Shembuj të funksionit Mid të VBA në Excel
Kësaj radhe, le të eksplorojmë funksionin Mid nga VBA në detaje me disa shembuj.
1. Ndarja e një numri të dhënë karakteresh nga mesi i disa ID-ve duke përdorur funksionin Mid të VBA në Excel
Këtu kemi një grup të dhënash me ID-të dhe Emrat e disa punonjësve të një kompanie të quajtur Saturn Group.
Këtu, personazhet 4 deri 7 të secilit ID-ja tregon vitin e anëtarësimit të punonjësit përkatës.
Tani do të zhvillojmë një funksion të përcaktuar nga përdoruesi duke përdorur funksionin Mid të VBA që do të nxjerrë vitin e anëtarësimit të çdo punonjësi nga ID-ja e punonjësit .
Ju mund të përdorni kodin e mëposhtëm VBA :
⧭ Kodi VBA:
1859
Shënim: Ky kodkrijon një funksion të quajtur Viti_Bashkimi .
⧭ Prodhimi:
Ekzekuto këtë funksion në çdo qelizë të fletës suaj të punës me një ID si argument.
Këtu, në qelizën D4 , kemi futur formulën:
=Joining_Year(B4) Ka kthyer vitin e anëtarësimit të punonjësit të parë, 2021 .
Tani mund të tërhiqni Plotësoni Handle për të marrë vitet e anëtarësimit të pjesës tjetër të punonjësve.
⧭ Shpjegimi i Kodit:
- Së pari, ne deklarojmë një funksion të quajtur Viti_Bashkimi që merr një ID si hyrje nga rreshti Funksioni Joining_Year(ID) .
- Më pas nxjerrim 4 karaktere nga ID-ja duke filluar nga pozicioni 4 , me rreshtin Joining_Year = Mid(ID, 4, 4) .
- Rreshti Funksioni i përfundimit deklaron fundin e funksionit.
2. Nxjerrja e shtesave nga disa adresa emaili duke përdorur funksionin Mid të VBA në Excel
Tani kemi shtuar një kolonë të re në grupin e të dhënave, që përmban adresat e emailit të punonjësve.
0> 
Kësaj radhe ne do të nxjerrim shtesat e adresave të emailit duke përdorur funksionin Mid të VBA .
Kodi VBA do të jetë:
⧭ Kodi VBA:
2307
Shënim: Ky kod krijon një funksion të quajtur Extension .
⧭ Output:
Ekzekutoni këtë funksiononi në çdo qelizë të fletës suaj të punës me një EmailAdresa si argument.
Këtu, në qelizën E4 , kemi futur formulën:
=Extension(D4) Ka kthyer shtrirjen e adresës së parë të emailit.
Më pas mund të tërhiqni Plotësoni dorezën për të nxjerrë shtesat e të gjithë emailit adresat.
⧭ Shpjegimi i kodit
- Së pari, ne deklarojmë një funksion të quajtur Extension që merr çdo emër si hyrje nga rreshti Function Extension(Email_Address) .
- Më pas ne fillojmë një përsëritje me një for-loop që kontrollon çdo karakter të Adresa e-mail për të parë nëse është @ apo jo nga rreshti If Mid(Email_Address, i, 1) = "@" Pastaj .
- Nëse gjen një @ , atëherë nxjerr shtrirjen e kërkuar nga Adresa e emailit nga rreshti Extension = Mid(Email_Address, i + 1, Len(Adresa_Email) – (i + 4)) .
- Më në fund, shpallim fundin e funksionit.
3. Kontrollimi i disa teksteve për të parë nëse ato përmbajnë një tekst specifik apo jo
Një nga përdorimet më të rëndësishme të funksionit Mid është të shikoni nëse një tekst përmban një tekst specifik apo jo .
Le të zhvillojmë një funksion për të kontrolluar nëse Adresat e emailit përmbajnë termin “gmail” apo jo.
Mund të përdorni sa vijon Kodi VBA :
⧭ Kodi VBA:
9229
Shënim: Ky kod krijon një funksion thirrur Po kontrollohet .
⧭ Dalja:
Ekzekutoni këtë funksion në çdo qelizë e fletës suaj të punës me dy tekste si argument.
Këtu, në qelizën E4 , kemi futur formulën:
=Checking(D4,"gmail") Është kthyer po sepse adresa e parë e emailit është një adresë Gmail .
Më pas mund të tërhiqni Plotësoni dorezën për të bërë të njëjtën gjë për të gjitha ID-të e emailit.
⧭ Shpjegimi i kodit:
- Së pari, ne deklarojmë një funksion të quajtur Kontrollimi që merr dy tekste si argumente nga rreshti Kontrollimi i funksionit(Text1,Text2) .
- Pastaj fillojmë një cikli for që kontrollon çdo segment të Text1 duke filluar nga pozicioni 1 , për të parë nëse është i barabartë me Text2 apo jo , nga rreshti Nëse Mid(Text1, i, Len(Text2)) = Text2 Pastaj .
- Nëse gjen Text2 , atëherë kthen “Po” , përndryshe kthen “Jo” .
- Më në fund, ne përfundojmë funksionin me rreshtin Funksioni i Fundit .
Gjërat për t'u mbajtur mend
- Argumenti 1st i funksionit Mid nuk duhet të jetë gjithmonë një varg. Mund të jetë një string , një numër , apo edhe një vlerë boolean .
- Por 2i dhe Argumentet e treta duhet të jenë numra . Ato mund të jenë numra të plotë ose thyesa por duhet të jenë numra . Nëse ato janë thyesa , atëherë Midfunksioni do t'i konvertojë në numrat më të afërt të plotë .
