У случају да желите да вам процес помогне у преузимању адресе е -поште из низа, онда је овај чланак за вас. У овом чланку ћемо створити УДФ да извучемо ид е -поште из текста.
Питање): Подаци које имам садрже превише информација у текстуалном формату. Желим да ми ВБА код помогне да извучем што више ИД -ова е -поште из текста како бих минимизирао своје ручне напоре.
Морамо да следимо следеће кораке:
- Кликните на картицу Девелопер
- Из групе кодова изаберите Висуал Басиц
Унесите следећи код у стандардни модул:
Функција ЕктрацтЕмаилФромТект (с Ас Стринг) Ас Стринг Дим АтТхеРатеСигнСимбол Ас Лонг Дим и Ас ЛонгДим ТемпСтр Ас Стринг
Цонст ЦхарЛист Ас Стринг = "[А-За-з0-9 ._-]"
АтТхеРатеСигнСимбол = ИнСтр (с, "@")
Ако је АтТхеРатеСигнСимбол = 0 Тада
ЕктрацтЕмаилФромТект = ""
Иначе
ТемпСтр = ""
За и = АтТхеРатеСигнСимбол - 1 до 1 корак -1
Иф Мид (с, и, 1) Лике ЦхарЛист Тхен
ТемпСтр = Средњи (с, и, 1) & ТемпСтр
Иначе
Излаз за
Крај Ако
Затим сам
Ако је ТемпСтр = "" Затим изађите из функције
ТемпСтр = ТемпСтр & "@"
Фор и = АтТхеРатеСигнСимбол + 1 То Лен (с)
Иф Мид (с, и, 1) Лике ЦхарЛист Тхен
ТемпСтр = ТемпСтр & Мид (с, и, 1)
Иначе
Излаз за
Крај Ако
Затим сам
Крај Ако
Ако је десно (ТемпСтр, 1) = "." Тада је ТемпСтр = _
Лево (ТемпСтр, Лен (ТемпСтр) - 1)
ЕктрацтЕмаилФромТект = ТемпСтр
Завршна функција
- У ћелији Б2, формула је
- = ЕктрацтЕмаилФромТект (А2)
Добићемо резултат. Погледајте доњи снимак:
Горњи код ће издвојити прву адресу е -поште у случају да се у ћелији налази више од 1 е -поште.
На овај начин можемо да преузмемо е -пошту из текста.
Преузимање - Издвајање адресе е -поште из текста - клсм