Макрос для создания списка случайных адресов 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

16468 просмотров

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

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

Сергей, 19 Сен 2019 - 21:10.#1

все работает... после Alt + F8 нужно выбрать "эта книга" и нажать выполнить

Игорь (администратор сайта), 8 Окт 2016 - 22:44.#2

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

Гость, 8 Окт 2016 - 22:24.#3

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

Randomize:

Игорь (администратор сайта), 22 Апр 2014 - 23:32.#4

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

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

Гость, 22 Апр 2014 - 19:06.#5

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

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

Комментарии

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

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

НАДСТРОЙКИ ДЛЯ EXCEL