Private Sub CommandButton1_Click()

Сорт1

End Sub

3.3.14. Проверьте работоспособность формы.

Задание № 15 (Часть 2). Обработка событий.

Цель:Знакомство с методами управления формами (обработка событий) средствами VBA.

Темы: Использование полей форм для ввода и обработки данных. Обработка событий.

Задачи:Отобразить в текстовых полях экранной формы (рис.15.3) характеристики (цену, количество и сорт) товара, наименование которого выбрано пользователем в раскрывающемся списке. Установка флажка указывает на те характеристики товара, которые пользователь желает увидеть в соответствующих текстовых полях экранной формы. Форма основана на данных таблицы, представленной на рис.15.1.

1. Создайте вторую экранную форму со свойством Name, имеющим значение UserForm2 и свойством Caption со значением СКЛАД

1.1. Расположите элементы управления в форме так, как показано на рис.15.3.

1.2. Поместите результат выбора элемента раскрывающегося списка ComboBox1 в ячейку A10 листа «склад».

Для этого сформируйте процедуру обработки события для объекта ComboBox1. Двойной щелчок на объекте активизирует окно его кодов. Выберите в левом раскрывающемся списке окна кодов объект ComboBox1, а в правом – событие Change, при котором элемент, выбранный из списка, будет помещен в ячейку А10 листа «склад». Эта процедура имеет вид:

 

Private Sub ComboBox1_Change()

Sheets("склад").Range("A10").Value = UserForm2.ComboBox1.Value