Лекция: Бытовая техника, аудио аппаратура, видеоаппаратура

Для командных кнопок CommandButton1 и CommandButton2 зададим заголовки ЗаказатьиОтменасоответственно и запишем коды процедур обработки события Click для них.

Private Sub CommandButton1_Click()

' Кнопка Заказать

Dim nom As Integer, d As Integer

Dim d1 As Date, d2 As Date

Worksheets(«Заказы»).Select

Range(«b3»).Activate

nom = Range(«b4:b30»).CurrentRegion.Rows.Count

' nom – количество заполненных строк на Листе «Заказы»

nom = nom + 1

' находим пустую строку и заполняем ее значениями из формы

Cells(nom, 1).Value = ListBox1.Value

Cells(nom, 2).Value = ListBox2.Value

Cells(nom, 4).Value = TextBox2.Value

Cells(nom, 5).Value = TextBox1.Value

Cells(nom, 6).Value = TextBox3.Value

Cells(nom, 7).Value = TextBox4.Value

Cells(nom, 8).Value = TextBox1.Value * TextBox2.Value

If OptionButton1.Value Then

Cells(nom, 3).Value = «бытовая техника»

End If

If OptionButton2.Value Then

Cells(nom, 3).Value = «аудио аппаратура»

End If

If OptionButton3.Value Then

Cells(nom, 3).Value = «видео аппаратура»

End If

Cells(nom, 1).Select

' расчет штрафов

d1 = Cells(nom, 7).Value

d2 = Cells(nom, 6).Value

d = d1 — d2

Cells(nom, 9).Value = Cells(nom, 8).Value + Cells(nom, 8).Value * pen(d)

UserForm2.Hide

End Sub

Private Sub CommandButton2_Click()

' Кнопка Отмена

UserForm2.Hide

UserForm1.Show

End Sub