Daptar eusi
Salah sahiji fungsi anu paling penting sareng seueur dianggo anu kami anggo nalika damel sareng VBA dina Excel nyaéta Fungsi pertengahan tina VBA . Butuh string salaku input sarta mulih jumlah dibikeun karakter ti tengah string salaku kaluaran. Dinten dina artikel ieu, kuring bakal nunjukkeun anjeun kumaha anjeun tiasa nganggo fungsi pertengahan tina VBA kalayan conto sareng ilustrasi anu leres.
Ieu bakal mulangkeun 9 karakter tina string "Angela Catherine Nevills" , mimitian ti 8th karakter. Ieu “Catherine” .
Unduh Buku Latihan Praktek
Unduh buku latihan ieu pikeun ngalaksanakeun tugas bari Anjeun keur maca artikel ieu.
VBA Mid Function.xlsm
Pambuka Fungsi Mid VBA dina Excel
⧭ Tujuan Fungsi:
Fungsi Mid nyokot nilai salaku input jeung mulihkeun sajumlah karakter nu tangtu dimimitian ti posisi nu tangtu nilai salaku kaluaran.
Nilai bisa mangrupa string, angka , atawa malah boolean .
Contona, upami anjeun nyelapkeun Mid("Angela Catherine Nevills",8,9), eta bakal uih deui "Catherine" .
Lamun anjeun ngasupkeun Mid(12345,2,3) , anjeun bakal meunang 234.
Jeung selapkeun Mid(False,2,3) , anjeun bakal meunang als .
⧭ Sintaksis:
Sintaksis Mid fungsi tina VBA nyaeta:
=Mid(String,Start as Long,[Length]) ⧭ Argumen:
| Argumen | Diperlukeun / Opsional | Katerangan |
|---|---|---|
| String | Diperlukeun | String ti anu sajumlah karakter bakal dipulangkeun. |
| Mimitian | Diperlukeun | Karakter awal string anu bakal dipulangkeun. |
| Panjang | Opsional | Jumlah karakter anu bakal dipulangkeun. Default nyaéta 1. |
⧭ Nilai Balik:
Mulangkeun sajumlah karakter tina tengah tina string, mimitian ti posisi nu tangtu.
3 Conto Fungsi Mid VBA dina Excel
Kali ieu, hayu urang neuleuman fungsi Mid tina VBA sacara rinci sareng sababaraha conto.
1. Misahkeun Jumlah Karakter anu Dipikabutuh ti Tengah Sababaraha ID Nganggo Fungsi Pertengahan VBA dina Excel
Di dieu kami ngagaduhan set data sareng ID sareng Ngaran sababaraha karyawan perusahaan anu disebut Saturnus Group.
Di dieu, 4 nepi ka 7 karakter masing-masing ID nuduhkeun taun gabung karyawan masing-masing.
Ayeuna urang bakal ngamekarkeun fungsi Ditetepkeun Pamaké ngagunakeun fungsi pertengahan tina VBA Éta gé nimba taun gabung unggal pagawé tina ID Pagawé .
Anjeun bisa maké kode VBA ieu:
⧭ Kodeu VBA:
9177
Catetan: Kode ieunyieun pungsi nu disebut Jining_Year .
⧭ Kaluaran:
Jalankeun ieu fungsina dina sél mana waé lembar kerja anjeun kalayan ID salaku argumen.
Di dieu, dina sél D4 , urang ngasupkeun rumus:
=Joining_Year(B4) Ayeuna anjeun tiasa nyered ka .
2021. Eusian Handlepikeun meunangkeun taun-taun gabung karyawan sesa. 
⧭ Katerangan Kodeu:
- Kahiji, urang nyatakeun fungsi anu disebut Joining_Year anu nyandak ID salaku input ku garis Fungsi Joining_Year(ID) .
- Teras urang nimba 4 karakter tina ID mimitian ti posisi 4 , ku garis Joining_Year = Mid(ID, 4, 4) .
- Garis Tungtung Fungsi nyatakeun tungtung fungsi.
2. Ekstraksi Ekstensi tina Sababaraha Alamat Surélék Nganggo Fungsi Pertengahan VBA dina Excel
Ayeuna kami parantos nambihan kolom énggal kana set data, anu ngandung alamat Surélék para karyawan.
Kali ieu urang bakal nimba ekstensi Alamat Surélék ngagunakeun fungsi Mid VBA .
The Kode VBA bakal jadi:
⧭ Kode VBA:
7732
Catetan: Kode ieu nyieun pungsi nu disebut Extension .
⧭ Output:
Jalankeun ieu fungsina dina sél mana waé dina lembar kerja anjeun nganggo EmailAlamat salaku argumen.
Di dieu, dina sél E4 , urang ngasupkeun rumus:
=Extension(D4) Parantos ngabalikeun ekstensi alamat email anu munggaran.
Teras anjeun tiasa nyéred Eusian Cecekelan pikeun nimba ekstensi sadaya email. alamat.
⧭ Penjelasan Kode
- Kahiji, urang nyatakeun fungsi anu disebut Ekstensi nu nyandak ngaran naon waé salaku input ku jalur Fungsi Extension(Email_Address) .
- Lajeng urang ngamimitian iterasi ku for-loop anu mariksa unggal karakter Alamat Surélék pikeun ningali naha éta @ atanapi henteu ku garis Mun Mid(Email_Address, i, 1) = “@” Saterusna .
- Lamun manggihan hiji @ , mangka extracts kaluar ekstensi diperlukeun tina Alamat Surélék ku garis Ekstensi = Mid(Email_Address, i + 1, Len(Alamat_Email) – (i + 4)) .
- Ahirna, urang nyatakeun tungtung fungsi.
3. Mariksa Sababaraha Téks pikeun Ningali Naha Éta Ngandung Téks Spésifik atanapi Henteu
Salah sahiji kagunaan anu paling penting tina fungsi pertengahan nyaéta pikeun ningali naha téks ngandung téks khusus atanapi henteu. .
Hayu urang ngamekarkeun pungsi pikeun mariksa naha Alamat Surélék ngandung istilah “gmail” atanapi henteu.
Anjeun tiasa nganggo ieu Kode VBA :
⧭ Kode VBA:
7423
Catetan: Kode ieu nyieun pungsi disebut Mariksa .
⧭ Kaluaran:
Jalankeun pungsi ieu dina sél mana waé tina lembar kerja anjeun kalayan dua téks salaku argumen.
Di dieu, dina sél E4 , urang ngasupkeun rumus:
=Checking(D4,"gmail") Geus balik deui enya sabab alamat surélék nu kahiji nyaéta alamat Gmail .
Saterusna anjeun bisa nyéred Eusian Cecekelan pikeun ngalakukeun hal nu sarua pikeun sakabéh ID Surélék.
⧭ Katerangan Kodeu:
- Kahiji, urang nyatakeun fungsi anu disebut Mariksa anu nyandak dua téks salaku argumen ku baris Fungsi Mariksa(Text1,Text2) .
- Teras urang mimitian gelung for anu mariksa unggal ruas Text1 mimitian ti posisi 1 , pikeun ningali naha éta sami sareng Text2 atanapi henteu. , ku garis Mun Mid(Text1, i, Len(Text2)) = Text2 Lajeng .
- Upami mendakan Text2 , teras wangsulkeun “Leres” , upami henteu, éta bakal uih deui “Henteu” .
- Ahirna, urang nyimpulkeun fungsi ku garis Tungtung Fungsi .
Hal anu Perlu Diinget
- Argumen 1 tina Fungsi pertengahan teu kudu string salawasna. Bisa jadi string , angka , atawa malah nilai boolean .
- Tapi 2nd jeung 3rd argumen kudu nomer . Bisa jadi integer atawa fraksi tapi kudu nomer . Lamun éta fraksi , mangka Midfungsi bakal ngarobahna kana pangcaketna integer .
