Генерация данных с помощью макросов

Данный способ предполагает наличие у пользователя некоторых навыков программирования и знания VBA (Visual Basic for Application).

Для начала записи макроса выполняются команды:

Вид > Панели инструментов > Выбирается панель Visual Basic >;

На панели выбирается «Редактор Visual Basic».

В редакторе выполняются команды:

Insert > Module

и затем

Insert > Procedure

В окне параметров процедуры необходимо задать только имя процедуры (например, Generate) и затем Ok.

В появившейся заготовке пишется необходимый набор команд.

В качестве примера приведен текст макроса для генерации учебной базы данных «Кадры»

Private Sub Generate ()

‘ Объявление массивов

Dim FamilyM(10) As String ‘Массив мужских фамилий

Dim NameM(10) As String ‘Массив мужских имен

Dim FamilyW(10) As String ‘Массив женских фамилий

Dim NameW(10) As String ‘Массив женских имен

Dim Otdel(4) As String ‘Массив наименований отделов

Dim Adress(9) As String ‘Массив адресов

‘ Присвоение элементам массивов конкретных значений

FamilyM(1) = "Иванов": FamilyM(2) = "Петров";

FamilyM(3) = "Сидоров": FamilyM(4) = "Кузнецов";

FamilyM(5) = "Андреев": FamilyM(6) = "Васильев";

FamilyM(7) = "Алексеев": FamilyM(8) = "Кузьмин";

FamilyM(9) = "Романов": FamilyM(10) = "Степанов";

FamilyW(1) = "Иванова": FamilyW(2) = "Петрова";

FamilyW(3) = "Сидорова": FamilyW(4) = "Кузнецова";

FamilyW(5) = "Андреева": FamilyW(6) = "Васильева";

FamilyW(7) = "Алексеева": FamilyW(8) = "Кузьмина";

FamilyW(9) = "Романова": FamilyW(10) = "Степанова";

NameM(1) = "Андрей": NameM(2) = "Петр";

NameM(3) = "Михаил": NameM(4) = "Алексей";

NameM(5) = "Денис": NameM(6) = "Владимир";

NameM(7) = "Александр": NameM(8) = "Дмитрий";

NameM(9) = "Вячеслав": NameM(10) = "Иван";

NameW(1) = "Мария": NameW(2) = "Светлана";

NameW(3) = "Любовь":NameW(4) = "Наталья":

NameW(5) = "Вероника":NameW(6) = "Евгения";

NameW(7) = "Елена": NameW(8) = "Людмила";

NameW(9) = "Надежда": NameW(10) = "Екатерина";

Otdel(1) = "Сбыта":Otdel(2) = "Снабжения";

Otdel(3) = "Плановый":Otdel(4) = "Производственный"

Adress(1)="ул. Лебедева":Adress(2)="ул. Заовражная";

Adress(3)="ул. Мира": Adress(4)="ул. Павлова";

Adress(5)="ул. Горького":Adress(6)="ул. Хевешская";

Adress(7)="ул. Ленина":Adress(8)="ул. Водопроводная";

Adress(9)="ул. Яковлева";

‘Заполнение шапки таблицы. Это можно было и просто напечатать во второй строке рабочего листа

Cells(2,2) = "Фамилия":Cells(2, 3) = "Имя";:

Cells(2,4) = "Таб. №": Cells(2, 5) = "Пол";

Cells(2,6) = "Отдел": Cells(2, 7) = "Оклад";

Cells(2,8) = "Дата рождения":Cells(2,9) = "Дети";

Cells(2,10)= "Адрес": Cells(2, 11) = "Телефон";

‘ Цикл генерации

Randomize Timer

For i = 1 To 100

k = Int(2 * Rnd(Timer))

If k = 0 Then Cells(i + 2, 5) = "м" _

Else Cells(i + 2, 5) = "ж";

k1 = Int(1 + 10 * Rnd(Timer))

k2 = Int(1 + 10 * Rnd(Timer))

If k = 0 Then

Cells(i + 2, 2) = FamilyM(k1)

Cells(i + 2, 3) = NameM(k2)

Else

Cells(i + 2, 2) = FamilyW(k1)

Cells(i + 2, 3) = NameW(k2)

End If

Cells(i + 2, 4) = i * 100

k = Int(1 + 4 * Rnd(Timer))

Cells(i + 2, 6) = Otdel(k)

Cells(i+2,7)=Int(35 + 100 * Rnd(Timer)) * 100

Cells(i + 2, 8) = Int(1940 + 45 * Rnd(Timer))

Cells(i + 2, 9) = Int(3 * Rnd(Timer))

k = Int(1 + 9 * Rnd(Timer))

Cells(i + 2, 10) = Adress(k)

Cells(i+2,11)=Int(200000+700000*Rnd(Timer))

Next

End Sub

 

Готовый макрос можно запустить из редактора Visual Basic с помощью кнопки Run или нажав клавишу F5.