Проверка текстового значения на соответствие формату E-mail

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Проверка текстового значения на соответствие формату E-mail (Формулы/Formulas)

Bamboo

Дата: Среда, 28.02.2018, 22:20 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 107

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Добрый вечер!

Имеется таблица с адресами электронных почт. Не все из них заполнены корректно: нет собаки, нет точки или не там стоит, имеются недопустимые символы. Как быстро проверить? Есть ли готовое решение? Можно формулы, можно VBA.

Заранее спасибо!

Ответить

gling

Дата: Среда, 28.02.2018, 23:15 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2519

Репутация: 674 ±

Замечаний: 0% ±

2010

Здравствуйте. Если есть база с правильно написанными адресами, то против проверяемых адресов можно написать формулу

Код

=СЧЁТЕСЛИ("столбец с правильными адресами";"ячейка с проверяемым адресом").

Если адрес правильно написан, то результат будет число >0, если результат =0, нужно проверять,что в этом адресе не так написано.

ЯД-41001506838083

Сообщение отредактировал gling - Среда, 28.02.2018, 23:17

Ответить

Bamboo

Дата: Четверг, 01.03.2018, 00:30 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 107

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

gling, базы с правильно написанными адресами нет, т.к. это база с формы сайта, которую заполняют пользователи. Задача отловить неправильные адреса,для целей интеграции баз. Мне пока видится проверка по следующим правилам:
1. наличие @
2. Наличие точки
3. точка должна быть правее @
4. Не должно быть каких то символов, например /

Ответить

Pelena

Дата: Четверг, 01.03.2018, 07:46 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 19174

Репутация: 4413 ±

Замечаний: ±

Excel 365 & Mac Excel

Файла с примерами нет, поэтому только общий ответ

Цитата Bamboo, 28.02.2018 в 22:20, в сообщении № 1 ()

Есть ли готовое решение?

Готовых решений много по извлечению e-mail из текста. Воспользуйтесь поиском.
Например, используя эту функцию , можно проверить, совпадает ли адрес в ячейке с тем, что вытащила функция из этой ячейки. Если да, то адрес правильный
[vba]

Код

Function GetEMail(ByVal Value As String) As String
    With CreateObject("VBScript.RegExp")
        .Pattern = "[\w]{1,}@[\w]{1,}\.[\w]{2,}"
        With .Execute(Value)
            If .Count Then GetEMail = .Item(0)
        End With
    End With
End Function

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Страница 1 из 1
1