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

ActiveSheet.Cells(i, 3) = CStr(M_benz)

ActiveSheet.Cells(i, 4) = CStr(O_prob)

ActiveSheet.Cells(i, 5) = CStr(Potr)

ActiveSheet.Cells(i, 6) = CStr(Zena)

ActiveSheet.Cells(i, 7) = CStr(O_stoim)

End If

If N_auto = E Then

B = MsgBox("Такой номер автомобиля есть в базе данных", vbCritical, "")

UserForm1.TextBox1.SetFocus

GoTo s

End If

B = MsgBox("Запись внесена", vbInformation, "")

For rwIndex = 3 To i - 1

For colIndex = 1 To 6

Next colIndex

Next rwIndex

'Сортировка по полю "Марка автомобиля"

Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:= _

xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _

xlSortNormal

'Заполнение формы пустыми значениями

UserForm1.TextBox1.Text = ""

UserForm1.TextBox2.Text = ""

UserForm1.TextBox3.Text = ""

UserForm1.TextBox4.Text = ""

UserForm1.TextBox5.Text = ""

UserForm1.TextBox6.Text = ""

UserForm1.TextBox1.SetFocus