End Sub. 1.4. Перейдите в режим отображения кодов формы и для объекта UserForm выберите из правого раскрывающегося списка событий событие Initialize

1.4. Перейдите в режим отображения кодов формы и для объекта UserForm выберите из правого раскрывающегося списка событий событие Initialize, которое происходит при отображении формы на экране.

При инициализации формы сформируйте раскрывающийся список ComboBox1 с помощью метода AddItem, а также установите исходные значения в ячейках листа «склад», связанных с флажками так как показано далее:

Private Sub UserForm_Initialize()

' формирование раскрывающегося списка

ComboBox1.AddItem "бетон"

ComboBox1.AddItem "двери"

ComboBox1.AddItem "доски"

ComboBox1.AddItem "кирпич"

ComboBox1.AddItem "плитка"

ComboBox1.AddItem "рамы"

ComboBox1.AddItem "трубы"

' первоначально в списке отображается первый элемент с индексом (ListIndex) =0

ComboBox1.ListIndex = 0

' установка исходных значений False в ячейки листа, связанные с флажками

Sheets("склад").Range("A11").Value = False

Sheets("склад"). Range("A12").Value = False

Sheets("склад"). Range("A13").Value = False

End Sub

1.5. Сформируйте в рабочем листе «склад»в ячейках С11:С13 формулы, которые позволят по известному названию товара из списка и известному значению флажка вывести значения цены, количества и сорта выбранного товара. Формулы должны содержать функции ЕСЛИ и ПРОСМОТР. Например, формула, записанная в клетку С11 для определения цены товара, будет выглядеть следующим образом:

ЕСЛИ(А11;ПРОСМОТР(А10;А2:А8;В2:В8);" ")

1.6. Сформируйте процедуру обработки события для кнопки «результат». В этой процедуре необходимо отобразить значения цены, количества и сорта из диапазона ячеек С11:С13 в текстовых полях TextBox1, TextBox2 и TextBox3. Процедура имеет вид:

Private Sub CommandButton1_Click()

TextBox1.Value = Sheets("склад"). Range("C11").Value

TextBox2.Value = Sheets("склад"). Range("C12").Value

TextBox3.Value = Sheets("склад"). Range("C13").Value

End Sub

1.7. Сформируйте процедуру обработки события для кнопки «закрыть». Процедура имеет вид:

Private Sub CommandButton2_Click()

Me.Hide

End Sub

1.8. Проверьте работоспособность экранной формы в отладочном режиме с помощью клавиши F5 или команды Run Sub/UserForm.

1.9. Создайте в листе модуля процедуру Show_form. Тело процедуры должно содержать код

UserForm2.Show.