IsNumeric(TextBox4.Text) Then

Дни = TextBox2.Text

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

Билеты = TextBox4.Text

Label8.Caption = Дни * Суточные + Билеты

End If

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

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

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

Подзадача 3.4 – Работа кнопки Ок в ПФ

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

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

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

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

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

Sheets("Командировки").Select

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

' в столбце А – содержимое поля TextBox1.

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

' в столбце В – содержимое поля со списком ComboBox1.

.Cells(Строка, 2) = ComboBox1.Text

' в столбце С – содержимое поля со списком ComboBox2.

.Cells(Строка, 3) = ComboBox2.Text

' в столбце D – содержимое поля TextBox2.

.Cells(Строка, 4) = TextBox2.Text

' в столбце E – содержимое поля TextBox3

.Cells(Строка, 5) = TextBox3.Text

' в столбце F – содержимое поля TextBox4

.Cells(Строка, 6) = TextBox4.Text

' в столбце G – содержимое надписи Label8

.Cells(Строка, 7) = Label8.Caption

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