Dim NS As Integer, NORG As Integer

Dim DS As String, DORG As String

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

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

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

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

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

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

‘ затем складывается (&) со строкой A2: A.

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

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

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

‘ затем складывается (&) со строкой A2: A.

DORG=”A2: A”& cstr(NОRG)

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

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

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

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

‘ Далее работаем с пользовательской формой UserForm1.

With UserForm1

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

.TextBox1.Text = “ “

.TextBox2.Text = “ “

.TextBox3.Text = “ “

.TextBox4.Text = “ “

.TextBox5.Text = “ “

.ComboBox1.Text = “ “

.ComboBox2.Text = “ “

‘указание источника строк для поля со списком ComboBox1.

.ComboBox1.Rowsource = “Сотр“

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

.ComboBox2.Rowsource = “Орг“

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

Show

End with

Подзадача 4.5 – Работа кнопки Выход

Создайте макрос Выход и введите текст программы:

Application.Quit

Все программы для решения задачи 4 – Меню созданы.

Перейдем к программированию подзадач задачи 3 – Коман-дировки.

Подзадача 3.3 – Расчет суммы в ПФ

1. Откройте форму UserForm1:

Сервис-Макрос-Редактор Visual Basic. Если форма на экране не появилась, то выполните команду View-Project Explorer, затем откройте папку Forms и два раза щелкните по форме UserForm1.

2. В ПФ вызовите контекстное меню для поля Количество дней и выберите команду View Code (Исходный текст). На экране появится окно с первой и последней строками программы, которая будет выполняться при каждом изменении содержимого поля.

Private Sub TextBox2 Change().

End Sub

3. Между этими строками введите текст программы (комментарии можно не набирать):

‘текст программы, выполняемой при каждом

‘ изменении чисел в полях Количество дней, Суточные и Цена ‘билета.

‘ Проверяем, числа ли записаны

‘ в поля ввода TextBox2, TextBox3, TextBox4.

‘ Если в этих поля записаны числа,

‘то преобразуем ‘ содержимое каждого поля в целое

‘ и запоминаем‘ в переменной,

‘ три следующих строки можно записать в одну строку.

If IsNumeric(TextBox2.Text) And _

IsNumeric(TextBox3.Text) And _