Выполните следующие действия

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

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

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

Private Sub TextBox2 Change()

……………..

End Sub

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

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

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

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

Dim Дни, Суточные, ЦенаБилета As Integer

' Работаем с формой UserForml

With UserForml

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

' в поля ввода TextBox2, TextBox3, TextBox4

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

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

' и запоминаем' в переменной

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

If IsNumeric(TextBox2.Text) And _

IsNumeric(TextBox3.Text) And _

IsNumeric(TextBox4.Text) Then

Дни = CInt(TextBox2.Text)

Суточные = CInt(TextBox3.Text)

ЦенаБилета = CInt(TextBox4.Text)

TextBox5.Text = СStг(Дни * Суточные + ЦенаБилета * 2)

End If

End With

4. Скопируйте введенный текст программы в буфер обмена.

5. В ПФ вызовите контекстное меню для поля Суточные, выберите команду View Code и вставьте фрагмент из буфера обмена (пересчет суммы будет производиться при каждом изменении содержимого поля).

6. В ПФ вызовите контекстное меню для поля Цена билета, выберите команду View Code и вставьте фрагмент из буфера обмена (пересчет суммы будет производиться при каждом изменении содержимого поля).

Подзадача 3.2. Работа кнопки «Ок» в ПФ

Выполните следующие действия.

1. В ПФ вызовите контекстное меню для кнопки ОК, выберите команду View Code и введите текст программы:

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

' на кнопку Ок в ПФ

' Объявление пременных: Дата - дата выезда

' в командировку, Фамилия - фамилия сотрудника,

'Организация - наименование организации,

' Дни - количество дней,

'Суточные - размер суточных,

'Цена - цена билета, Сумма - общая сумма расходов,

'Строка - номер первой пустой строки

' на листе "Командировки"

Dim Дата, Фамилия, Организация, Дни, Суточные As String

Dim Цена, Сумма As String

Dim Строка As Integer

' Работаем с формой UserForm1

With UserForml

' В переменную Дата запишем

' содержимое поля Дата выезда (TextBox1)

Дата=TextBox1.Text

' В переменную Фамилия запишем содержимое поля ввода поля со списком ComboBoxl

Фамилия = ComboBoxl.Text

' Впеременную Организация запишем содержимое поля ввода поля со списком ComboBox2

Организация = ComboBox2.Text

' В переменные Дни, Суточные, Цена, Сумма запишем содержимое из полей ввода 'соответственно TextBox2, TextBox3, TextBox4, TextBox5

Дни = TextBox2.Text

Суточные = TextBox3.Text

Цена = TextBox4.Text

Сумма = TextBox5.Text

End With

' Найдем на листе "Командировки" первую пустую строку

' и номер ее запишем в переменную Строка

Строка = Application.CountA(Sheets(“Командировки”).Range(“А: А”)) + 1

‘На листе "Командировки"

With Sheets(“Командировки”)

' в строке номер Строка запишем:

' в столбце А - значение переменной Дата.

.Cells (Строка, 1) = Дата

'в столбце В - значение переменной Фамилия

.Cells (Строка, 2) = Фамилия

' в столбце С - значение переменной Организация

.Cells (Строка, 3) = Организация

' в столбце D - значение переменной Дни

.Cells (Строка, 4) = Дни

' встолбце Е - значение переменной Суточные

. Cells (Строка, 5) = Суточные

' в столбце F - значение переменной Цена

. Cells (Строка, 6) = Цена

'в столбце G - значение переменной Сумма

. Cells (Строка, 7) = Сумма

End With

' удалим с экрана ПФ