Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Проверка имейлов - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Проверка имейлов (Макросы/Sub)
Проверка имейлов
l-lisa Дата: Вторник, 13.04.2021, 07:45 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 298
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
Добрый день!
У меня есть макрос, в который нужно внести дополнение для проверки имейлов в столбце "«Email»", а именно:
если в колонке «Email» для одного и того же имени фамилии в колонке Name, содержатся имейлы отличающиеся тем, что в одном имейле присутсвует имя_фамилия, а во втором только первая буква имени+фамилия , то пишем в первую колонку: several emails for one name
Например: для имени Jane Smith имейлы: janesmith859@ и jsmith3867@ ---в этом случае программа должна записать в добавляемую первую колонку с комментариями "several emails for one name"
Если кто-то поможет, буду очень благодарна!
Приложила файл с макросом и файл с примером
К сообщению приложен файл: Anomaly_detect.xlsb(137.0 Kb) · Book1.xlsx(11.8 Kb)


Сообщение отредактировал l-lisa - Вторник, 13.04.2021, 07:46
 
Ответить
СообщениеДобрый день!
У меня есть макрос, в который нужно внести дополнение для проверки имейлов в столбце "«Email»", а именно:
если в колонке «Email» для одного и того же имени фамилии в колонке Name, содержатся имейлы отличающиеся тем, что в одном имейле присутсвует имя_фамилия, а во втором только первая буква имени+фамилия , то пишем в первую колонку: several emails for one name
Например: для имени Jane Smith имейлы: janesmith859@ и jsmith3867@ ---в этом случае программа должна записать в добавляемую первую колонку с комментариями "several emails for one name"
Если кто-то поможет, буду очень благодарна!
Приложила файл с макросом и файл с примером

Автор - l-lisa
Дата добавления - 13.04.2021 в 07:45
mgt Дата: Пятница, 23.04.2021, 10:06 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010
Файл с макросом не смотрел и суть фразы "в добавляемую первую колонку с комментариями" непонятна.
[vba]
Код

Dim i%, k%
Dim r
Dim s1$, s2$
For i = 2 To Range("a1").End(xlDown).Row
    For k = i + 1 To Range("a1").End(xlDown).Row
        If Range("d" & i).Value = Range("d" & k).Value Then
            If InStr(1, Range("d" & i).Value, " ") > 0 Then
                r = Split(Range("d" & i).Value, " ")
                s1 = LCase(Left(Trim(r(0)), 1) & Trim(r(1)))
                s2 = LCase(Trim(r(0)) & Trim(r(1)))
                If InStr(1, LCase(Range("c" & k).Value), s1) > 0 Or InStr(1, LCase(Range("c" & k).Value), s2) > 0 Then Range("a" & k).Value = "several emails for one name"
                If InStr(1, LCase(Range("c" & i).Value), s1) > 0 Or InStr(1, LCase(Range("c" & i).Value), s2) > 0 Then Range("a" & i).Value = "several emails for one name"
            End If
        End If
    Next k
Next i
[/vba]
 
Ответить
СообщениеФайл с макросом не смотрел и суть фразы "в добавляемую первую колонку с комментариями" непонятна.
[vba]
Код

Dim i%, k%
Dim r
Dim s1$, s2$
For i = 2 To Range("a1").End(xlDown).Row
    For k = i + 1 To Range("a1").End(xlDown).Row
        If Range("d" & i).Value = Range("d" & k).Value Then
            If InStr(1, Range("d" & i).Value, " ") > 0 Then
                r = Split(Range("d" & i).Value, " ")
                s1 = LCase(Left(Trim(r(0)), 1) & Trim(r(1)))
                s2 = LCase(Trim(r(0)) & Trim(r(1)))
                If InStr(1, LCase(Range("c" & k).Value), s1) > 0 Or InStr(1, LCase(Range("c" & k).Value), s2) > 0 Then Range("a" & k).Value = "several emails for one name"
                If InStr(1, LCase(Range("c" & i).Value), s1) > 0 Or InStr(1, LCase(Range("c" & i).Value), s2) > 0 Then Range("a" & i).Value = "several emails for one name"
            End If
        End If
    Next k
Next i
[/vba]

Автор - mgt
Дата добавления - 23.04.2021 в 10:06
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Проверка имейлов (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!