Контрольная работа: Проектирование информационно-аналитических систем в компьютерном салоне

UserForm1.TextBox28.Text = Label14.Caption

End If

А если написано «есть», то выполняются вышеуказанные действия.

UserForm3.Hide

End Sub

1.Список 1 «Модель» (ComboBox1):

Private Sub ComboBox1_Change()

ComboBox2.Clear

Очищения Списка 2 «Наименование».

i = 3

Do

If Лист1.Cells(i, 1) = ComboBox1.Text Then ComboBox2.AddItem Лист1.Cells(i, 2)

i = i + 1

Просмотр начинается с третьей строки таблицы с названием «Матплаты». Если в этой таблице данные первого столбца равняются данным Списка 1 «Модель», тогда в Список 2 «Наименование» записываются данные из таблицы из второго столбца.

Loop Until Лист1.Cells(i, 2) = ""

End Sub

2.Список 2 «Наименование» (ComboBox2):

Private Sub ComboBox2_Change()

i = 3

Do

If ComboBox1.Text = Лист1.Cells(i, 1) And ComboBox2.Text = Лист1.Cells(i, 2) Then

Label2.Caption = Лист1.Cells(i, 9)

В Label2 записываются данные из таблицы «Матплаты» из девятого столбца.

Label10.Caption = Лист1.Cells(i, 3)

Label11.Caption = Лист1.Cells(i, 4)

Label12.Caption = Лист1.Cells(i, 5)

Label13.Caption = Лист1.Cells(i, 6)

Label14.Caption = Лист1.Cells(i, 7)

Label15.Caption = Лист1.Cells(i, 8)