Содржина
Една од најважните и најшироко користените функции што ги користиме додека работиме со VBA во Excel е Mid функцијата на VBA . Зема низа како влез и враќа даден број знаци од средината на низата како излез. Денес во оваа статија, ќе ви покажам како можете да ја користите функцијата Mid на VBA со соодветни примери и илустрации.
Ова ќе врати 9 знаци од низата „Ангела Кетрин Невилс“ , почнувајќи од 8-ми знак. Тоа е „Кетрин“ .
Преземете ја работната книга за вежбање
Преземете ја оваа книга за вежбање за да ја вежбате задачата додека ја читате оваа статија.
Вовед во средната функција на VBA во Excel
⧭ Цел на функцијата:
Функцијата Средна зема вредност како влез и враќа даден број на знаци почнувајќи од дадена позиција на вредноста како излез.
Вредноста може да биде низа, број , па дури и булова .
На пример, ако вметнете Mid(„Ангела Кетрин Невилс“,8,9), ќе се врати „Кетрин“ .
Ако вметнете Mid(12345,2,3) , ќе добиете 234.
И вметнете Mid(False,2,3) , ќе добиете als .
⧭ Синтакса:
Синтаксата на Мид функција од VBA е:
=Mid(String,Start as Long,[Length]) ⧭ Аргументи:
| Аргумент | Задолжителен / Изборен | Објаснување |
|---|---|---|
| Низа | Потребен | Низата од кои ќе бидат вратени одреден број знаци. |
| Start | Задолжително | Почетниот знак на низата што ќе се врати. |
| Должина | Изборно | Бројот на знаци што ќе се вратат. Стандардно е 1. |
⧭ Повратна вредност:
Враќа даден број на знаци од средината на низа, почнувајќи од дадена позиција.
3 Примери за функцијата Mid на VBA во Excel
Овој пат, да ја истражиме функцијата Mid од VBA детално со неколку примери.
1. Одвојување на даден број знаци од средината на некои идентификатори со користење на функцијата Mid на VBA во Excel
Овде имаме збир на податоци со IDs и Имиња на некои вработени во компанијата наречена Saturn Group.
Овде, 4-ти до 7-ми ликовите на секој ИД ја означува годината на приклучување на соодветниот вработен.
Сега ќе развиеме функција дефинирана од корисникот користејќи ја функцијата Mid на VBA што ќе ја извлече годината на членство на секој вработен од ИД на вработен .
Можете да го користите следниов код VBA :
⧭ VBA код:
2979
Забелешка: Овој кодсоздава функција наречена Година на придружување .
⧭ Излез:
Изврши го ова функција во која било ќелија од вашиот работен лист со ID како аргумент.
Овде, во ќелијата D4 , ја внесовме формулата:
=Joining_Year(B4) Ја врати здружената година на првиот вработен, 2021 .
Сега можете да го повлечете Пополнете ја рачката за да ги добиете годините на придружување на останатите вработени.
⧭ Објаснување на кодот:
- Прво, декларираме функција наречена Година на приклучување која зема ID како влез од линијата Функција Joining_Year(ID) .
- Потоа извлекуваме 4 знаци од ИД почнувајќи од позицијата 4 , со линијата Joining_Year = Mid(ID, 4, 4) .
- Реницата Крајна функција го прогласува крајот на функцијата.
2. Извлекување на екстензии од некои адреси на е-пошта користејќи ја функцијата Mid на VBA во Excel
Сега додадовме нова колона во множеството податоци, која ги содржи адресите на е-пошта на вработените.
0> 
Овој пат ќе ги извлечеме екстензиите на адресите на е-пошта користејќи ја функцијата Средна на VBA .
На VBA кодот ќе биде:
⧭ VBA код:
8602
Забелешка: Овој код создава функција наречена Екстензија .
⧭ Излез:
Изврши го ова функционира во која било ќелија од вашиот работен лист со Е-поштаАдреса како аргумент.
Тука, во ќелијата E4 , ја внесовме формулата:
=Extension(D4) Ја врати наставката на првата адреса на е-пошта.
Потоа можете да ја повлечете Рачката за пополнување за да ги извадите наставките на сите е-пошта адреси.
⧭ Објаснување на кодот
- Прво, декларираме функција наречена Екстензија која зема кое било име како влез од линијата Наставка на функција(Адреса_Е-пошта) .
- Потоа започнуваме итерација со за-јамка што го проверува секој знак од Адресата на е-пошта за да види дали е @ или не по линијата If Mid(Email_Address, i, 1) = „@“ Потоа .
- Ако најде @ , тогаш ја извлекува потребната екстензија од Адресата на е-пошта со линијата Екстензија = Средна(Адреса_Е-пошта, т.е. + 1, Len(Email_Address) – (i + 4)) .
- Конечно, го прогласуваме крајот на функцијата.
3. Проверка на некои текстови за да се види дали содржат специфичен текст или не
Една од најважните употреби на функцијата Мид е да се види дали текстот содржи специфичен текст или не .
Ајде да развиеме функција за да провериме дали Адресите за е-пошта го содржат терминот „gmail“ или не.
Можете да го користите следново VBA код:
⧭ VBA код:
8525
Забелешка: Овој код создава функција повикани Се проверува .
⧭ Излез:
Изврши ја оваа функција во која било ќелија од вашиот работен лист со два текста како аргумент.
Тука, во ќелијата E4 , ја внесовме формулата:
=Checking(D4,"gmail") Се врати да бидејќи првата адреса на е-пошта е адреса Gmail .
Потоа можете да го повлечете Пополнете ја рачката за да го сторите истото за сите идентификатори на е-пошта.
⧭ Објаснување на кодот:
- Прво, декларираме функција наречена Проверка која зема два текста како аргументи од линијата Проверка на функција(Текст1,Текст2) .
- Потоа започнуваме за циклус што го проверува секој сегмент од Text1 почнувајќи од позиција 1 , за да видиме дали е еднаков на Text2 или не , по линијата Ако Mid(Text1, i, Len(Text2)) = Text2 Потоа .
- Ако најде Text2 , тогаш враќа „Да“ , во спротивно враќа „Не“ .
- Конечно, ја заклучуваме функцијата со линијата Крајна функција .
Работи што треба да се запаметат
- Аргументот 1 на Средната функција не мора секогаш да биде низа. Тоа може да биде низа , број , па дури и булова вредност.
- Но, втората и Третиот аргументите мора да бидат броеви . Тие можат да бидат цели броеви или дропки но мора да бидат броеви . Ако тие се дропки , тогаш Средфункцијата ќе ги конвертира во најблиските цели броеви .
