Решение задачи 2. Проектирование пользовательской формы

Пользовательскую форма должна выглядеть как на рис.13.

Рис.13

Спроектированная пользовательская форма содержит пять полей для ввода и два поля со списками. Первые четыре поля для ввода (-TextBoxl, TextBox2, ТехtВохЗ и TextBox4) предназначены для того, чтобы пользователь вводил в них информацию. После того, как данные в поля Количество дней (TextBox2), Суточные (ТехtВохЗ) и Цена билета(ТехtBох4) введены и если эти данные - числа, то в поле

Общая сумма (у нас это -TextBox5) должна появиться сумма, рассчитанная по формуле:

Сумма=Дни*Суточные+ЦенаБилета*2.

Решение задачи 3. Разработка программного кода

Подзадача 3.1 Подготовка ПФ к заполнению.

Для запуска спроектированной формы вначале создадим на листе 4 кнопку с именем «Меню». В режиме конструктора вызовем контекстное меню для этой кнопки. Выберем команду Исходный текст и введем следующий текст программы (комментарии набирать необязательно):

'Объявление переменных:

'NS - номер последней заполнений строки на листе1 (БД «Сотрудники»)

'NO - номер последней заполненной строки на листе2 (БД«Организации»)

‘Col- диапазон, содержащий фамилии сотрудников

‘Org- диапазон, содержащий наименования организаций

Dim NS, NO As Integer

Dim Col, Org As String

'Определение последней заполненной строки в столбце А на листе «Сотрудники»;

NS=Application.CountA(Sheets(“Сотрудники”).Range(“A:A”))

'Определение последней заполненной строки в столбце А на «Организации»

NO=Application.CountA(Sheets(“ Организации ”).Range(“A:A”))

'определение диапазона фамилий сотрудников:

'NS преобразуется в строку (функция cstr),

' затем складывается (&) со строкой А2:А

Col=”A2:A”&cstr(NS)

'определение диапазона наименований организаций:

'N0 преобразуется в строку (функция cstr),

' затем складывается (&) со строкой А2:А

Org=”A2:A"&cstr(NO)

'присваивание имени диапазону, содержащему фамилии

Sheets(“Сотрудники ”).Range(Col).Name=”Сотр”

'присваивание имени диапазону, содержащему организации

Sheets(“Организации”).Range(Org).Name=”Орг”

'Далее работаем с пользовательской формой UserForm 1

With UserForml

'очистка содержимого полей для ввода: TextBoxl,TextBox2, TextBox3,TextBox4, TextBox5, ComboBoxl, ComboBox2

.TextBoxl.Text = “”

.TextBox2.Text =””

.TextBox3.Text = “”

.TextBox4.Text = “”

.TextBox5.Text = “”

.ComboBoxl.Text = “”

.ComboBox2.Text =””

'указание источника строк для поля со списком ComboBoxl

.ComboBoxl. Rowsource =”Сотр”

'указание источника строк для поля со списком ComboBox2

.ComboBox2.Rowsource = “Орг”

'вывод пользовательской формы на экран.

Show

End with

Подзадача 3.1.Расчет суммы в ПФ.