End Sub

Рис.15.2

3.3.8. Скопируйте код макроса Сорт1 из Модуля1 и вставьте его в тело процедуры CommandButton1_Click (на место, обозначенное "Код процедуры").

3.3.9. Повторите п.3.3.7.-3.3.8 для кнопок Сорт2 и Очистка.

Переключиться между окнами объектов и кодов можно с помощью кнопок View Code и View Object панели инструментов окна проектов.

3.3.10. Проверьте работоспособность кнопок в режиме отладки (F5).

3.3.11. Для кнопки Закрыть введите код Me. Hide. Проверьте работоспособность кнопки.

3.3.12. Активизируйте форму с помощью элемента управления – кнопки с листа Лист1 (склад). Для этого вернитесь на лист "склад" и с помощью команды Разработчик – Элементы управления – Вставить – Элементы ActiveX поместите кнопку на листе. Активизируйте окно ее свойств с помощью команды Разработчик – Элементы управления – Свойства и свойству Caption присвойте значение "Выбор сорта". После двойного щелчка на кнопке впишите в шаблон предложенной процедуры обработки события код UserForm1.Show. Обратите внимание на то, что код при этом сохраняется в объекте Лист1 (склад). Вернитесь на лист “склад”, выйдите из режима Конструктора и запустите форму с листа "склад" с помощью кнопки "Выбор сорта". Проверьте ее работу.

3.3.13. Замените код в процедурах событий кнопок Сорт1, Сорт2 и Очистка на вызов соответствующих процедур, записанных в виде макросов в Модуле1. Для этого в теле процедур событий запишите названия вызываемых процедур. Например, код кнопки Сорт1 будет выглядеть следующим образом:

Private Sub CommandButton1_Click()

Сорт1

Дата добавления: 2015-10-21