Приспосабливая технику Билла Мэнвилла, это должно работать для вас. Войдите в Проверку данных и выберите Пользовательский . Введите эту формулу (если ваш адрес электронной почты находится в ячейке A2):
=AND(ISERROR(FIND(" ",A2)),LEN(A2)-LEN(SUBSTITUTE(A2,"@",""))=1,IFERROR(SEARCH("@",A2)<SEARCH(".",A2,SEARCH("@",A2)),0),NOT(IFERROR(SEARCH("@",A2),0)=1),NOT(IFERROR(SEARCH(".",A2,SEARCH("@",A2))-SEARCH("@",A2),0)=1),LEFT(A2,1)<>".",RIGHT(A2,1)<>".")
Вот та же формула, разнесенная, чтобы ее можно было прочитать:
=AND( ISERROR(FIND(" ",A2)) ,LEN(A2)-LEN(SUBSTITUTE(A2,"@",""))=1 ,IFERROR(SEARCH("@",A2)<SEARCH(".",A2,SEARCH("@",A2)),0) ,NOT(IFERROR(SEARCH("@",A2),0)=1) ,NOT(IFERROR(SEARCH(".",A2,SEARCH("@",A2))-SEARCH("@",A2),0)=1) ,LEFT(A2,1)<>"." ,RIGHT(A2,1)<>"." )
Это проверяет, что:
- Там нет пробелов
- Только один
@
символ - Перед
@
символом есть несколько символов - Хотя бы один
.
символ после@
символа - Как минимум один символ между
@
и следующими.
символами - Адрес не начинается и не заканчивается на
.