mail mail
Нужен макрос для Excel?
Сделайте заказ прямо сейчас!
Ищете готовое решение?
Выбирайте и покупайте!
У вас есть интернет-магазин?
Настроим парсер под любой сайт!

Макрос для создания списка случайных адресов email

Макрос выводит на активный лист (в первый столбец) случайные email

Я использовал этот макрос для тестирования программы рассылки писем.

Sub GenerateEmails()
    On Error Resume Next: Err.Clear
    Dim ra As Range: Set ra = Range([A2], Range("A" & Rows.Count).End(IIf(Len(Range("A" & Rows.Count)), xlDown, xlUp)))
    Dim cell As Range
    txt = "abcdefghijklmnopqrstuvwxyz_1234567890"
    For Each cell In ra.Cells
        n = n + 1: dom$ = Choose(n Mod 3 + 1, "@mail.ru", "@yandex.ru", "@gmail.com")
        Randomize: Nam$ = ""
        For i = 1 To Rnd(n) * 5 + 4
            Nam$ = Nam$ & Mid(txt, Fix(Rnd(i) * Len(txt) + 1), 1)
        Next
        cell = Nam$ & dom$
    Next cell
End Sub

Пример результата:

aojv@mail.ru
kggfpxw@yandex.ru
oxxv@yandex.ru
f9jxjd14@gmail.com
p24a@mail.ru
ahbg@yandex.ru
xl9bc5@gmail.com
q4aptu@mail.ru
n4zc9kz@yandex.ru
copaa6@gmail.com
myrfqpb@mail.ru
kc29hc0e@yandex.ru
pvvxl@gmail.com
5ybwi@mail.ru
44dc1ffm@yandex.ru

 

Комментарии

Настройки просмотра комментариев

Выберите нужный метод показа комментариев и нажмите "Сохранить установки".

Это не метка. Это оператор VBA, инициализирующий генератор случайных чисел.

Не понятно, что ссылается на метку Randomize

Randomize:

Этот макрос не может выдавать ошибку.
Видимо, вы что-то не так делаете (почитайте в интернете, как запустить макрос)
Создайте новую книгу Excel, потом нажмите Alt + F11, потом Ctrl + R, потом Enter, и в открывшееся белое поле вставьте код из статьи.
Потом запустите макрос нажатием F5 в редакторе кода, или через Alt + F8 с листа Excel

Перед запуском макроса, должен быть открыт любой файл,
и заполнено несколько строк на листе (любые данные в первом столбце)
Макрос заменит данные в первом столбце, на случайные адреса email.
Если лист пустой, - будут выведены только 2 адреса почты.

не работает! выдает ошибку!

Отправить комментарий

Содержание этого поля является приватным и не предназначено к показу.
CAPTCHA
Подтвердите, пожалуйста, что вы - человек:
  _____   ____        _  __  __  ____    _     
|___ / | _ \ __| | \ \/ / | _ \ | |__
|_ \ | | | | / _` | \ / | |_) | | '_ \
___) | | |_| | | (_| | / \ | _ < | |_) |
|____/ |____/ \__,_| /_/\_\ |_| \_\ |_.__/
Введите код, изображенный в стиле ASCII-арт.

Не получается применить макрос? Не удаётся изменить код под свои нужды?

Оформите заказ у нас на сайте, не забыв прикрепить примеры файлов, и описать, что и как должно работать.