Курсовая работа: Основы программирования на VBA модель объектов Exel

UserForm1.TextBox5.SetFocus

GoTo s

End If

Zena = UserForm1.TextBox6

If Potr = "" Then

B = MsgBox("Введите цену 1 л. бензина", vbCritical, "")

UserForm1.TextBox6.SetFocus

GoTo s

End If

Zena = ""

On Error Resume Next

Zena = CDbl(UserForm1.TextBox6)

If Potr = "" Then

B = MsgBox("Введите число!!!", vbCritical, "")

UserForm1.TextBox6.SetFocus

GoTo s

End If

'Расчёт общей стоимости

O_stoim = Potr / 100 * Zena * O_prob

'Поиск пустой строки

i = 3

While (ActiveSheet.Cells(i, 1) <> "")

E = ActiveSheet.Cells(i, 1)

i = i + 1

E = ""

Wend

'Заполнение ячеек таблицы данными

If E = "" Then

ActiveSheet.Cells(i, 1) = CStr(N_auto)