Часть 1. Создание форм «UserForm».

Цель: Создание и использование экранных форм для пользовательских диалоговых окон в приложениях MS Excel.

Темы: Создание пользовательских форм в редакторе Visual Basic. Свойства форм. Элементы управления форм и панель инструментов.

Задачи: Отобразить в табличной области наименование, цену и количество изделий первого или второго сорта, пользуясь табличными данными (Рис.1) и экранной формой, представленной на Рис.2.

1. Создайте таблицу, представленную на Рис.1. Дайте листу имя "Склад" и сохраните в файле «Формы».

Рис.1

2. Создайте макросы, необходимые для выполнения работы.

2.1. Создайте в автоматическом режиме два макроса СОРТ1 и СОРТ2, которые, используя расширенный фильтр, извлекут из списка (Рис.1) товары 1-го и 2-го сортов. Критерии для извлечения данных следует записать до начала записи макросов, расположив первый (для сорта 1) в диапазоне G1:G2, а второй (для сорта 2) в диапазоне H1:H2. Извлеченные данные разместите в диапазонах, начинающихся с ячеек А15 и А25 соответственно. Запись макроса следует начать с команды активизации листа (щелчком по ярлыку листа). Проверьте правильность работы макросов, пользуясь командой Разработчик – Код – Макросы - Выполнить. Повторно проверьте работу макросов, сделав предварительно активным Лист2 книги.

2.2. Создайте макрос под именем ОЧИСТКА, который очищает содержимое ячеек диапазона результатов выборки (А15:D35) и проверьте его работоспособность.

3. Создайте первую экранную (пользовательскую) форму.

3.1. С помощью команды Разработчик – Код – Visual Basic или сочетания клавиш Alt+F11 активизируйте окно редактора Visual Basic Editor (VBE) и ознакомьтесь с его составляющими:

В верхней левой части редактора расположено окно проекта Project Explorer, а в нижней - окно свойств Properties Window, отображающее свойства активного объекта. Каждый проект содержит совокупность кодов и объектов VBA, обеспечивающих работу данного проекта и принадлежащих книге Excel. Компоненты, содержащие коды представлены в виде иерархии папок – Microsoft Excel Objects. К ним относятся листы книги Excel, модули (Modules) и формы (Forms), создаваемые пользователем.

3.2. Просмотрите созданные в автоматическом режиме макросы в Модуле1, находящемся в папке Modules. Для этого раскройте папку Modules и дважды щелкните на Модуле1.

3.3. Создайте пользовательскую форму, пользуясь командой меню редактора Visual Basic Insert - UserForm. Новая форма по умолчанию имеет имя UserForm1 (свойство Name) и такой же заголовок (свойство Caption), который отображается в строке заголовка окна формы.

3.3.1. Познакомьтесь с содержанием окна свойств формы, предварительно выделив объект – форму (View – Properties Window). Свойства могут быть сгруппированы по категориям или по алфавиту. Замените значение свойства формы Caption, которое отображается в заголовке на "Выбор сорта". Обратите внимание на имя формы – свойство объекта Name, которое используется для обращения к объекту и пока остается прежним, но может быть изменено по желанию пользователя.

3.3.2. Используйте по собственному усмотрению свойства формы, устанавливающие ее фон (BackColor)и расположение на экране (StartUpPosition).

3.3.3. Сохраните файл и активизируйте форму, нажав клавишу F5 или выбрав команду Run - Run Sub/UserForm, предварительно выделив форму. Закройте окно формы и вернитесь в редактор VBE.

3.3.4. Активизируйте панель инструментов (Toolbox), содержащую элементы управления, которые могут быть размещены в окне формы, выбором команды View – Toolbox, если она не отображена на экране.

3.3.5. Выберите на панели инструментов кнопки (CommandButton) и расположите их на форме как показано на Рис.2. Используйте команду Format для изменения размеров кнопок и упорядочивания их расположения.

3.3.6. Активизируйте поочередно каждую кнопку и измените ее свойство Caption, которое обеспечивает вывод надписи на кнопке, в соответствии с Рис.2

3.3.7. Выполните двойной щелчок мыши на первой кнопке. При этом в правой части экрана появится область кодов данной формы и шаблон процедуры обработки события, которая выполняется при щелчке мыши на выбранной кнопке. Название процедуры стандартно и состоит из имени объекта - CommandButton1 и события, которое ее вызывает – Click, записанные через подчеркивание.

Private Sub CommandButton1_Click()

Код процедуры

End Sub

Рис.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

End Sub

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