Мазмұны
Excel бағдарламасында VBA -мен жұмыс істеу кезінде қолданатын ең маңызды және кеңінен қолданылатын функциялардың бірі - VBA Орташа функциясы . Ол кіріс ретінде жолды қабылдайды және шығыс ретінде жолдың ортасынан берілген таңбалар санын қайтарады. Бүгін осы мақалада мен сізге VBA жүйесінің Орташа функциясын дұрыс мысалдармен және суреттермен қалай пайдалануға болатынын көрсетемін.
Бұл 8-ші таңбасынан бастап “Ангела Кэтрин Невиллс” жолынан 9 таңбаларын қайтарады. Бұл “Кэтрин” .
Тәжірибелік жұмыс кітабын жүктеп алу
Тапсырманы орындау үшін осы жаттығу кітабын жүктеп алыңыз. сіз осы мақаланы оқып жатырсыз.
Excel бағдарламасындағы VBA орта функциясына кіріспе
⧭ Функция мақсаты:
Орта функциясы кіріс ретінде мән қабылдайды және шығыс ретінде мәннің берілген орнынан бастап берілген таңбалар санын қайтарады.
Мән жол, сан немесе тіпті логикалық болуы мүмкін.
Мысалы, Орта («Анжела Кэтрин Невилс»,8,9) енгізсеңіз, ол «Кэтрин» мәнін қайтарады.
Егер Mid(12345,2,3) , қойсаңыз, сіз 234 мәнін аласыз.
Және Ортаңғы(False,2,3) , сіз als аласыз.
⧭ Синтаксис:
Ортасының синтаксисі VBA функциясының функциясыбұл:
=Mid(String,Start as Long,[Length]) ⧭ Аргументтер:
| Аргумент | Міндетті / Қосымша | Түсіндіру |
|---|---|---|
| Жол | Міндетті | Жол таңбалар саны қайтарылады. |
| Бастау | Міндетті | Қайтарылатын жолдың бастапқы таңбасы. |
| Ұзындығы | Қосымша | Қайтарылатын таңбалар саны. Әдепкі – 1. |
⧭ Қайтару мәні:
Ортасынан берілген таңбалар санын қайтарады берілген позициядан бастап жолдың.
3 Excel бағдарламасындағы VBA орта функциясының мысалдары
Бұл жолы Орташа функцияны<зерттеп көрейік. 2> ішінен VBA бірнеше мысалдармен егжей-тегжейлі.
1. Белгіленген таңбалар санын кейбір идентификаторлардың ортасынан бөлу Excel бағдарламасындағы VBA орта функциясын пайдалану
Мұнда бізде ID және деректер жинағы бар Saturn Group деп аталатын компанияның кейбір қызметкерлерінің аты-жөндері .
Мұнда әрбірінің 4-ші және 7-ші таңбалары берілген. ID сәйкес қызметкердің қосылу жылын білдіреді.
Енді біз VBA Орташа функциясы арқылы Пайдаланушы анықтайтын функцияны әзірлейміз. бұл әрбір қызметкердің қосылу жылын Қызметкер идентификаторынан шығарады.
Келесі VBA кодын пайдалана аласыз:
⧭ VBA коды:
6154
Ескертпе: Бұл код Joining_Year деп аталатын функцияны жасайды.
⧭ Шығару:
Оны іске қосыңыз дәлел ретінде идентификаторы бар жұмыс парағының кез келген ұяшығында жұмыс істейді.
Мұнда, D4 ұяшығында біз формуланы енгіздік:
=Joining_Year(B4) Ол бірінші қызметкердің қосылған жылын қайтарды, 2021 .
Енді пернесін сүйреуге болады. Қалған қызметкерлердің қосылған жылдарын алу үшін тұтқасын толтырыңыз.
⧭ Кодекстің түсіндірмесі:
- Біріншіден, Қосылу_жыл(ID) жолында кіріс ретінде ID қабылдайтын Қосылу_жыл деп аталатын функцияны жариялаймыз.
- Содан кейін ID-ден 4 позициясынан бастап Joining_Year = Mid(ID, 4, 4) жолы бойынша 4 таңбаларды шығарамыз.
- End Function жолы функцияның соңын жариялайды.
2. Excel бағдарламасындағы VBA орта функциясын пайдалану арқылы кейбір электрондық пошта мекенжайларынан кеңейтімдерді шығарып алу
Енді біз деректер жиынына қызметкерлердің электрондық пошта мекенжайларын қамтитын жаңа баған қостық.
Бұл жолы біз VBA Орта функциясын пайдаланып электрондық пошта мекенжайларының кеңейтімдерін шығарамыз.
VBA коды болады:
⧭ VBA коды:
9782
Ескертпе: Бұл код кеңейтім деп аталатын функцияны жасайды.
⧭ Шығару:
Оны іске қосыңыз Электрондық поштасы бар жұмыс парағының кез келген ұяшығында жұмыс істейдіАргумент ретінде мекенжай .
Мұнда, E4 ұяшығына мына формуланы енгіздік:
=Extension(D4) Ол бірінші электрондық пошта мекенжайының кеңейтімін қайтарды.
Одан кейін барлық электрондық поштаның кеңейтімдерін шығарып алу үшін Толтыру тұтқасын сүйреп апаруға болады. адрестер.
⧭ Кодтың түсіндірмесі
- Біріншіден, біз деп аталатын функцияны жариялаймыз. Кеңейтім ол Функция кеңейтімі(Электрондық пошта_мекен-жайы) жолымен кіріс ретінде кез келген атауды қабылдайды.
- Содан кейін for-loop<2 арқылы итерацияны бастаймыз> Электрондық пошта мекенжайы әрбір таңбасын тексеріп, оның @ немесе жоқ екенін Орта (Электрондық пошта_мекенжайы, i, 1) = “@” Содан кейін<2 жолы бойынша тексереді> .
- Егер ол @ табса, онда ол Электрондық пошта мекенжайынан қажетті кеңейтімді Кеңейтім = Орташа(Электрондық пошта_мекен-жайы, i) жолы арқылы шығарады. + 1, Len(Email_Address) – (i + 4)) .
- Соңында функцияның аяқталуын жариялаймыз.
3. Кейбір мәтіндердің құрамында белгілі бір мәтін бар немесе жоқ екенін көру үшін тексеру
Орталық функцияның ең маңызды қолданыстарының бірі мәтінде белгілі бір мәтін бар-жоғын көру болып табылады. .
Электрондық пошта мекенжайлары құрамында “gmail” термині бар-жоғын тексеру функциясын әзірлейік.
Келесі < VBA коды:
⧭ VBA коды:
7582
Ескертпе: Бұл код функция жасайды шақырды Тексерілу .
⧭ Нәтиже:
Бұл функцияны кез келген ұяшықта іске қосыңыз аргумент ретінде екі мәтіні бар жұмыс парағыңыздың.
Мұнда, E4 ұяшығына мына формуланы енгіздік:
=Checking(D4,"gmail") Ол иә қайтарды, себебі 1-ші электрондық пошта мекенжайы Gmail мекенжайы.
Одан кейін сүйреуге болады Барлық электрондық пошта идентификаторлары үшін де солай істеу үшін Толтыру тұтқасы .
⧭ Кодтың түсіндірмесі:
- Алдымен, Функцияны тексеру(Мәтін1,Мәтін2) жолында аргумент ретінде екі мәтінді қабылдайтын Тексеру деп аталатын функцияны жариялаймыз.
- Содан кейін 1 позициясынан бастап Мәтін1 әрбір сегментін тексеретін for циклін бастаймыз, оның Мәтін2 мәніне тең немесе тең емес екенін білу үшін. , жолы бойынша Егер Орта(Мәтін1, i, Лен(Мәтін2)) = Мәтін2 Содан кейін .
- Егер Text2 мәнін тапса, ол “Иә” қайтарады, әйтпесе “Жоқ” қайтарады.
- Соңында, біз Функцияны аяқтау жолымен функцияны аяқтаймыз.
Есте сақтау керек нәрселер
- Орта функциясының 1-ші аргументі әрқашан жол болмауы керек. Бұл жол , сан немесе тіпті логикалық мән болуы мүмкін.
- Бірақ 2-ші және 3-ші аргументтер сандар болуы керек. Олар бүтін сандар немесе бөлшектер болуы мүмкін, бірақ сандар болуы керек. Егер олар бөлшек болса, онда Орта функциясы оларды ең жақын бүтін сандарға түрлендіреді.
