Jedwali la yaliyomo
Mojawapo ya vitendakazi muhimu zaidi na vinavyotumika sana tunazotumia tunapofanya kazi na VBA katika Excel ni Kitendakazi cha Kati cha VBA . Inachukua mfuatano kama ingizo na kurudisha idadi fulani ya herufi kutoka katikati ya mfuatano kama pato. Leo katika makala haya, nitakuonyesha jinsi unavyoweza kutumia Kitendakazi cha kati cha VBA na mifano na vielelezo vinavyofaa.
Pakua Kitabu cha Mazoezi
Pakua kitabu hiki cha mazoezi ili ufanye kazi huku unasoma makala haya.
VBA Mid Function.xlsm
Utangulizi wa Kazi ya Kati ya VBA katika Excel
⧭ Lengo la Kitendo:
Kitendaji cha Mid kinachukua thamani kama ingizo na hurejesha idadi fulani ya vibambo kuanzia nafasi fulani ya thamani kama pato.
Thamani inaweza kuwa mfuatano, nambari , au hata boolean .
Kwa mfano, ukiingiza Mid(“Angela Catherine Nevills”,8,9), itarudi “Catherine” .
Ukiingiza Mid(12345,2,3) , utapata 234.
Na kuingiza Mid(False,2,3) , utapata al .
⧭ Sintaksia:
Sintaksia ya Mid kazi ya VBA ni:
=Mid(String,Start as Long,[Length]) ⧭ Mabishano:
| Hoja | Inahitajika / Hiari | Maelezo |
|---|---|---|
| Kamba | Inahitajika | Mstari kutoka ambayo idadi ya wahusika itarejeshwa. |
| Anza | Inahitajika | Herufi ya kuanzia ya mfuatano ambayo itarejeshwa. |
| Urefu | Si lazima | Idadi ya herufi zitakazorejeshwa. Chaguomsingi ni 1. |
⧭ Thamani ya Kurejesha:
Hurejesha idadi fulani ya herufi kutoka katikati. ya mfuatano, kuanzia nafasi fulani.
3 Mifano ya Kazi ya Kati ya VBA katika Excel
Wakati huu, hebu tuchunguze kitendakazi cha kati ya VBA kwa undani na mifano michache.
1. Kutenganisha Idadi Iliyotolewa ya Herufi kutoka Katikati ya Baadhi ya Vitambulisho Kwa Kutumia Utendakazi wa Kati wa VBA katika Excel
Hapa tuna seti ya data yenye Vitambulisho na Majina ya baadhi ya wafanyakazi wa kampuni inayoitwa Saturn Group.
Hapa, herufi 4 7 za kila moja. Kitambulisho kinaashiria mwaka wa kujiunga wa mfanyakazi husika.
Sasa tutatengeneza kitendaji Kilichobainishwa na Mtumiaji kwa kutumia Kitendakazi cha Kati ya VBA hiyo itatoa mwaka wa kujiunga kwa kila mfanyakazi kutoka Kitambulisho cha Mfanyakazi .
Unaweza kutumia VBA msimbo ufuatao:
⧭ Msimbo wa VBA:
4786
Kumbuka: Msimbo huuhuunda chaguo la kukokotoa liitwalo Joining_Year .
⧭ Pato:
Endesha hili fanya kazi katika kisanduku chochote cha laha yako ya kazi na kitambulisho kama hoja.
Hapa, katika kisanduku D4 , tumeingiza fomula:
=Joining_Year(B4) Imerejesha mwaka wa kujiunga wa mfanyakazi wa kwanza, 2021 .
Sasa unaweza kuburuta Jaza Kishughulikia ili kupata miaka ya kujiunga ya wafanyakazi wengine.
⧭ Ufafanuzi wa Kanuni:
- Kwanza, tunatangaza chaguo la kukokotoa liitwalo Joining_Year ambalo huchukua kitambulisho kama ingizo la mstari Function Joining_Year(ID) .
- Kisha tunatoa herufi 4 kutoka kwa kitambulisho kuanzia nafasi 4 , kwa mstari Joining_Year = Mid(ID, 4, 4) . 28>Mstari Kitendaji cha Mwisho hutangaza mwisho wa chaguo la kukokotoa.
2. Kutoa Viendelezi kutoka kwa Baadhi ya Anwani za Barua pepe Kwa Kutumia Kitendaji cha Kati cha VBA katika Excel
Sasa tumeongeza safu wima mpya kwenye seti ya data, ambayo ina anwani za Barua pepe za wafanyikazi.
Wakati huu tutatoa viendelezi vya Anwani za Barua pepe kwa kutumia kipengele cha Mid cha VBA .
The Msimbo wa VBA utakuwa:
⧭ Msimbo wa VBA:
9859
Kumbuka: Msimbo huu huunda kitendakazi kinachoitwa Kiendelezi .
⧭ Pato:
Endesha hii fanya kazi katika seli yoyote ya lahakazi yako kwa Barua pepeAnwani kama hoja.
Hapa, katika kisanduku E4 , tumeingiza fomula:
=Extension(D4) 0>Imerejesha kiendelezi cha anwani ya barua pepe ya kwanza. 
Kisha unaweza kuburuta Nchi ya Kujaza ili kutoa viendelezi vya barua pepe zote. anwani.
⧭ Ufafanuzi wa Kanuni
- Kwanza, tunatangaza chaguo la kukokotoa linaloitwa Kiendelezi kinachochukua jina lolote kama ingizo la mstari Function Extension(Email_Address) .
- Kisha tunaanza kurudia kwa for-loop ambayo hukagua kila herufi ya Anwani ya Barua Pepe ili kuona kama ni @ au la kwa mstari Kama Mid(Email_Address, i, 1) = “@” Kisha .
- Ikipata @ , basi itatoa kiendelezi kinachohitajika kutoka kwa Anwani ya Barua pepe kwa mstari Extension = Mid(Email_Address, i + 1, Len(Anwani_ya_Barua) - (i + 4)) .
- Mwishowe, tunatangaza mwisho wa chaguo la kukokotoa.
3. Kukagua Baadhi ya Maandishi ili Kuona kama Yana Maandishi Maalum au La. . Hebu tutengeneze chaguo la kukokotoa ili kuangalia kama Anwani za Barua Pepe zina neno “gmail” au la.
Unaweza kutumia zifuatazo VBA msimbo:
⧭ Msimbo wa VBA:
5594
Kumbuka: Msimbo huu huunda chaguo la kukokotoa kuitwa Inaangalia .
⧭ Pato:
Endesha chaguo hili la kukokotoa katika kisanduku chochote ya laha yako ya kazi yenye maandishi mawili kama hoja.
Hapa, katika kisanduku E4 , tumeingiza fomula:
=Checking(D4,"gmail") Imerejesha ndiyo kwa sababu anwani ya barua pepe ya 1 ni Gmail anwani.
Kisha unaweza kuburuta Jaza Kishiko ili kufanya vivyo hivyo kwa Vitambulisho vyote vya Barua pepe.
⧭ Ufafanuzi wa Kanuni:
- Kwanza, tunatangaza chaguo la kukokotoa liitwalo Kuangalia ambalo huchukua matini mbili kama hoja kulingana na mstari Kuangalia Kazi(Text1,Text2) .
- Kisha tunaanza kwa kitanzi kinachokagua kila sehemu ya Text1 kuanzia nafasi 1 , ili kuona kama ni sawa na Text2 au la. , kwa mstari If Mid(Text1, i, Len(Text2)) = Text2 Kisha .
- Ikipata Text2 , basi inarudi “Ndiyo” , vinginevyo inarudi “Hapana” .
- Mwishowe, tunahitimisha chaguo la kukokotoa kwa mstari Kamilisha Kazi .
Mambo ya Kukumbuka
- Hoja ya 1st ya Kitendakazi cha kati haihitaji kuwa mfuatano kila wakati. Inaweza kuwa string , nambari , au hata boolean thamani.
- Lakini 2 na hoja za 3 lazima ziwe nambari . Zinaweza kuwa nambari kamili au vipande lakini lazima ziwe nambari . Ikiwa ni vipande , basi Midfunction itazibadilisha hadi nambari kamili .
iliyo karibu zaidi
