Создание программных модулей на VBA

Создание программного модуля

Для формирования программного модуля, необходимо сначала внести новый модуль в папку модулей формируемого проекта. Для этого нужно в окне редактора Vìsual Basìc сделать следующее:

→ Вставка → Модуль

После этого, в папке с модулями выполняется создание нового модуля и открытие окна для него, где можно вводить программный текст. Необходимо выполнить три базовых процедуры:

1. Разработать инициализацию раскрывающихся списков и раскрыть диалог, чтобы заполнить бланк (ShowDìalog).
2. Выполнить очистку бланка и привести его в начальное состояние (ClrBlank).
3. Выполнить все требуемые операции по заполнению бланка на рабочем листе (FillBlank).

Необходимо создать на модульном листе заготовки для осуществления этих операций:

Sub ShowDìalog() End Sub
Sub ClrBlank() End Sub
Sub FìllBlank() End Sub

На рабочем листе необходимо наличие кнопки, чтобы вызвать первую из данных операций, а именно процедуру инициализации и открытия диалогового окна. В этом окне, для которого уже готова пользовательская форма, нужно предусмотреть две клавиши:

1. Клавиша ОК, предназначенная для вызова главной процедуры заполнения бланка.
2. Клавиша Отмена, применяемая в случае отмены процедуры заполнения бланка. То есть она закрывает диалоговое окно без ввода данных в бланк, и при этом возможен вызов процедуры его очистки.

А прямо на рабочем листе необходима клавиша, предназначенная для обращения к процедуре очистки бланка по завершению его заполнения и отправки на распечатку.

Собственно программирование начинается с того, надо записать небольшие процедуры обработки событий, которые связаны с расположенными в окне диалога клавишами ОК и Отмена. Чтобы это осуществить, необходимо в редакторском окне Vìsual Basìc обратиться к вновь созданной форме пользователя UserForm1, сделав по ней двойной щелчок мышью на панели проекта слева в окне Vìsual Basìc. Затем нужно дважды щёлкнуть по клавише ОК, после чего откроется окно программы для обслуживания событий, которые связаны с пользовательским влиянием на управляющие компоненты окна диалога. В этом окне образуется заготовка незаполненной процедуры, чтобы обработать нажатие на клавишу ОК, которая называется CommandButton1_Clìck():

Prìvate Sub CommandButton1_Clìck() End Sub

Аналогично нужно выполнить создание и следующей процедуры, а именно реакции приложения на использование клавиши отмена.

Эти две процедуры заключаются в следующем:

1. При использовании каждой из вышеназванных клавиш, окно диалога обязано закрыться.
2. По завершению закрытия окна диалога, должна быть вызвана требуемая операция, то есть заполнение или очистка бланка.

Выше названые действия выполняются следующим образом:

Prìivate Sub CommandButton1_Clìck() UserForm1.Hìde FìllBlank End Sub
Prìvate Sub CommandButton2_Clìck() UserForm1.Hìde ClrBlank End Sub

Далее нужно создать на рабочем листе «Бланк» остальную пару управляющих клавиш, которые предназначены для заполнения и очистки бланка. Для этого необходимо переместиться из окна Vìsual Basìc в окно программы Excel, а далее открыть панель инструментов, Формы:

→ Вид → Панели инструментов → Формы

Здесь имеется возможность создания клавиши прямо на рабочем листе по аналогии с подобными действиями в документах Word и в окне формы пользователя при проектировании диалога. Нужно щёлкнуть мышкой по инструменту Кнопка, далее поместить указатель мышки на место, где необходимо расположить левый верхний угол кнопки, нажать левую клавишу мышки и, удерживая её нажатой, раздвинуть рамку выделения, а потом отжать клавишу мышки. Это вызовет появление окна диалога для назначения макроса данной кнопке:

Рисунок 1. Окно диалога. Автор24 — интернет-биржа студенческих работ

В предложенном перечне нужно выбрать требуемое название операции, к примеру, для первой клавиши это будет ShowDialog. Далее нужно выделить сформированную кнопку при помощи щелчка правой кнопки мышки, затем надо щёлкнуть левой клавишей мышки по этой же кнопке и сделать замену типового её названия «Кнопка nn» на необходимое наименование. Можно назвать её, к примеру, «Заполнение бланка». Таким же образом формируется кнопка «Очистка бланка» и затем надо выполнить для неё операцию ClrBlank.

Приведём пример несложной и недлинной процедуры ShowDìalog:

Sub ShowDìalog() 
Dìm ì As Integer ì = 1 
Do ì = ì + 1 Loop Untìl Worksheets("Подписчики").
Cells(ì, 1) = "" last = ì - 1 
UserForm1.ComboBox1.
RowSource = "Подписчики!A2:A" & last ì = 1 
Do ì = ì + 1 Loop Untìl Worksheets("Издания").
Cells(ì, 3) = "" last =ì - 1 
UserForm1.ComboBox2.RowSource = "Издания!C2:C" & last 
UserForm1.TextBox2.Text = "1" 
UserForm1.TextBox3.Text = "12" 
UserForm1.TextBox5.Text = "1" 
UserForm1.ComboBox1.LìstIndex = -1 
UserForm1.ComboBox2.LìstIndex = 0 yStr = Rìght(Worksheets("Издания").
Cells(1, 4).Value, 4) 
UserForm1.TextBox1.
Text = yStr UserForm1.Show End Sub

Здесь присутствуют такие главные составляющие процедуры. Пара, практически одинаковых, цикла (Do ... Loop), которые выполняют просмотр рабочих листов и определяют размеры сформированных перечней данных с адресами и описаниями изданий, а далее определяют исходные значения по умолчанию для зоны ввода и раскрывающихся списков. Способ Cells применяет адресацию ячеек на рабочем листе путём указания в параметрах номера строки и номера столбца. Переменная last получит в итоге величину, которая равна нумерации последней сформированной строчки рабочих листов «Подписчики» и «Издания». За циклами идёт команда, которая заполняет раскрывающиеся списки, и для этого применяет свойство RowSource. Оно позволяет узнать участок ячеек рабочего листа, который применяется для наполнения раскрывающегося списка. Следует заметить, что в Vìsual Basìc не описанная переменная last обладает типом Varìant.