Технология выполнения

Оформим процедуру считывания информации из диалогового окна и записи ее в базу данных на рабочем листе.

Шаг 1. Создаем пользовательскую форму с элементами управления согласно рисунку. Для этого необходимо выполнить следующие действия:

· запустить редактор VBA (можно Alt+F11);

· выполнить команду Insert -> UserForm, после чего появятся форма UserForm1 и панель элементов Toolbox;

· щелкнуть кнопку «Надпись» и поместить этот элемент управления на форму, рисуя прямоугольник и удерживая левую кнопку мыши. Получим объект прямоугольной формы с текстом “ label1 ” внутри (см. рисунок 3);

Рисунок 3. Форма с элементом «Надпись»

· щелкнуть один раз внутри прямоугольника, чтобы появился курсор, набрать текст «Введите исходные данные» (см. рисунок 4);

Замечание. Если щелкнуть по элементу формы дважды, откроется окно кода с процедурой обработки этого элемента. Чтобы вернуться к форме, щелкните по ней или по объекту UserForm1 в окне проекта (см. рисунок 1).

· Для изменения шрифта и/или размера шрифта выделить щелчком мыши объект «Надпись» и в окне свойств найти свойство Font (слева) и щелкнуть кнопку с многоточием (справа) . Появится окно «Шрифт».

· Добавить остальные элементы согласно рисунку 4: надписи, текстовые поля, поля со списком, кнопки с помощью соответствующих кнопок панели элементов;

Рисунок 4. Форма с элементами управления в окне VBA

Шаг 2. Для того чтобы связать выделенный на форме объект с его программным кодом, необходимо дважды щелкнуть по нему мышкой. В открывшемся окне редактирования кода можно выбрать событие, для которого требуется создать процедуру обработки, и ввести текст данной процедуры.

Щелкните дважды по кнопке РАСЧЕТ. В окне программного кода, которое появилось, будет заготовка процедуры. Первой строкой созданного программного кода будет Private Sub CommandButton1_Click ().

Рисунок 5. Заготовка процедуры

В начало кода нужно добавить описание переменных, используемых в расчетах. Текст процедуры приведен ниже. Комментарии можно не печатать.