Kazalo
Ena najpomembnejših in najpogosteje uporabljenih funkcij, ki jih uporabljamo pri delu z VBA v Excelu je Srednja funkcija na spletnem mestu . VBA . Kot vhodni podatek sprejme niz, kot izhodni podatek pa vrne določeno število znakov iz sredine niza. Danes vam bom v tem članku pokazal, kako lahko uporabite Srednja funkcija na spletnem mestu VBA z ustreznimi primeri in ilustracijami.
To bo vrnilo 9 znakov iz niza "Angela Catherine Nevills" , začenši z 8. lik. To je "Catherine" .
Prenesi delovni zvezek za prakso
Prenesite to vadbeno knjigo in med branjem tega članka izvajajte nalogo.
VBA Mid Function.xlsmUvod v srednjo funkcijo VBA v programu Excel
⧭ Cilj funkcije:
Spletna stran Sredina Funkcija kot vhod sprejme vrednost, kot izhod pa vrne določeno število znakov, ki se začnejo na določenem mestu vrednosti.
Vrednost je lahko niz, številka ali celo Boolean .
Če na primer vstavite Mid("Angela Catherine Nevills",8,9), vrnil se bo "Catherine" .
Če vstavite Mid(12345,2,3) , dobili boste 234.
In vstavite Sredina (lažno,2,3) , dobili boste als .
⧭ Sintaksa:
Sintaksa Srednja funkcija na spletnem mestu VBA je:
=Mid(String,Start kot Long,[Dolžina]) ⧭ Argumenti:
| Argument | Obvezno / neobvezno | Razlaga: |
|---|---|---|
| Niz | Zahtevano | Niz, iz katerega se vrne število znakov. |
| Začetek | Zahtevano | Začetni znak vrnjenega niza. |
| Dolžina | Izbirno | Število znakov, ki bodo vrnjeni. Privzeto je 1. |
⧭ Vrnjena vrednost:
Vrne dano število znakov iz sredine niza, začenši z danega položaja.
3 primeri funkcije Mid VBA v Excelu
Tokrat raziskujemo Srednja funkcija na spletnem mestu VBA z nekaj primeri.
1. Ločevanje danega števila znakov od sredine nekaterih ID-jev z uporabo funkcije Mid programa VBA v Excelu
Tu imamo nabor podatkov z ID-ji in . Imena nekaterih zaposlenih v podjetju Saturn Group.
Tu je 4. na . 7. znaki vsakega ID označujejo leto pristopa zadevnega zaposlenega.
Zdaj bomo razvili Funkcija, opredeljena s strani uporabnika z uporabo Srednja funkcija na spletnem mestu VBA ki bo izpisal leto vstopa vsakega zaposlenega iz ID zaposlenega .
Uporabite lahko naslednje VBA koda:
⧭ Koda VBA:
Funkcija Združevanje_leto(ID) Združevanje_leto = Mid(ID, 4, 4) Konec funkcije Opomba: Ta koda ustvari funkcijo z imenom Leto pridružitve .
⧭ Izhod:
To funkcijo zaženite v kateri koli celici delovnega lista z ID kot argumentom.
Tukaj, v celici D4 , smo vnesli formulo:
=Leto priključitve(B4) Vrnil je leto pristopa prvega zaposlenega, 2021 .
Zdaj lahko povlečete Ročaj za polnjenje za pridobitev let vstopa ostalih zaposlenih.
⧭ Razlaga kodeksa:
- Najprej razglasimo funkcijo z imenom Leto pridružitve ki sprejme ID kot vhodni podatek z vrstico Funkcija Združevanje_let(ID) .
- Nato pridobimo 4 znakov iz ID, začenši s položaja 4 , z vrstico Leto združevanja = Mid(ID, 4, 4) .
- Linija Konec funkcije razglasi konec funkcije.
2. Pridobivanje razširitev iz nekaterih e-poštnih naslovov z uporabo funkcije Mid programa VBA v programu Excel
Zdaj smo v niz podatkov dodali nov stolpec, ki vsebuje e-poštne naslove zaposlenih.
Tokrat bomo izvlekli razširitve e-poštnih naslovov z uporabo Sredina funkcijo VBA .
Spletna stran Koda VBA bo:
⧭ Koda VBA:
Funkcija Extension(Email_Address) Za i = 1 Do Len(Email_Address) Če Mid(Email_Address, i, 1) = "@" Potem Extension = Mid(Email_Address, i + 1, Len(Email_Address) - (i + 4)) End If Next i End Function Opomba: Ta koda ustvari funkcijo z imenom Podaljšek .
⧭ Izhod:
To funkcijo zaženite v kateri koli celici delovnega lista z Elektronski naslov kot argument.
Tukaj, v celici E4 , smo vnesli formulo:
=razširitev(D4) Vrnil je podaljšek prvega e-poštnega naslova.
Nato lahko povlečete Ročaj za polnjenje izpisati razširitve vseh e-poštnih naslovov.
⧭ Razlaga kodeksa
- Najprej razglasimo funkcijo z imenom Podaljšek ki kot vhodni podatek sprejme poljubno ime z vrstico Funkcija Razširitev(Email_Address) .
- Nato začnemo iteracijo z zanka for ki preveri vsak znak Elektronski naslov preverite, ali je @ ali ne z vrstico Če Mid(Email_Address, i, 1) = "@" Potem .
- Če najde @ , nato pa zahtevano razširitev izvleče iz Elektronski naslov z linijo Razširitev = Mid(Email_Address, i + 1, Len(Email_Address) - (i + 4)) .
- Na koncu razglasimo konec funkcije.
3. Preverjanje nekaterih besedil, ali vsebujejo določeno besedilo ali ne
Ena od najpomembnejših uporab Srednja funkcija je preveriti, ali besedilo vsebuje določeno besedilo ali ne.
Razvijmo funkcijo za preverjanje, ali je Elektronski naslovi vsebuje izraz "gmail" ali ne.
Uporabite lahko naslednje VBA koda:
⧭ Koda VBA:
Funkcija Preverjanje(Besedilo1, Besedilo2) Za i = 1 Do Len(Besedilo1) Če Mid(Besedilo1, i, Len(Besedilo2)) = Besedilo2 Potem Preverjanje = "Da" Izhod za Drugače Preverjanje = "Ne" Konec če Naslednji i Konec funkcije Opomba: Ta koda ustvari funkcijo z imenom Preverjanje .
⧭ Izhod:
To funkcijo zaženite v kateri koli celici delovnega lista z dvema besediloma kot argumentom.
Tukaj, v celici E4 , smo vnesli formulo:
=Checking(D4, "gmail") Vrnil se je da ker je prvi e-poštni naslov Gmail naslov.
Nato lahko povlečete Ročaj za polnjenje da enako storite za vse e-poštne ID-je.
⧭ Razlaga kodeksa:
- Najprej razglasimo funkcijo z imenom Preverjanje ki kot argumenta sprejme dve besedili z vrstico Funkcija Preverjanje(Besedilo1,Besedilo2) .
- Nato zaženemo zanko for, ki preveri vsak segment Besedilo1 z izhodiščem iz položaja 1 , da preverite, ali je enak Besedilo2 ali ne, z vrstico Če Mid(Text1, i, Len(Text2)) = Text2 Potem .
- Če najde Besedilo2 , nato vrne "Da" v nasprotnem primeru vrne "Ne" .
- Na koncu funkcijo zaključimo s črto Konec funkcije .
Stvari, ki si jih je treba zapomniti
- Spletna stran 1. argument Srednja funkcija ni nujno, da je vedno niz. Lahko je niz , a številka ali celo Boolean vrednost.
- Toda 2. in . 3. argumenti morajo biti številke . Lahko so cela števila ali frakcije vendar mora biti številke Če so frakcije , potem je Srednja funkcija jih bo pretvoril v najbližjo cela števila .
