Часть 2: Настройка пользовательского интерфейса.

1.Создание настраиваемых команд меню.

1.1.Воспользовавшись меню "Сервис"-"Настройка", вызвать окно "Настройка", в котором выбрать вкладку "Команды". Среди команд категории "Макросы" выбрать команду "Настраиваемая команда меню" (рис.П.14.6).

Рис.П.14.6

1.2.Открыть меню "Сервис" и с помощью мыши поместить эту команду как один из пунктов меню "Сервис" (рис.П.14.8). Пользуясь кнопкой "Изменить выделенный объект" вкладки "Команды" или контекстным меню, дать ей имя "СтарАдрМакрос" и назначить ей макрос "СтарыйАдрес".

1.3.Повторить п.1.2 для создания аналогичного пункта меню "Сервис" с названием "НовАдрМакрос", который позволит обращаться к макросу "НовыйАдрес".

1.4.Проверить наличие новых пунктов в меню "Сервис". Очистить рабочий лист ("Лист1"). Поочередно выполнить макросы "СтарыйАдрес" и "НовыйАдрес", используя созданные пункты меню.

2.Создание нового меню.

2.1.Воспользовавшись меню "Сервис"-"Настройка", вызвать окно "Настройка", в котором выбрать вкладку "Команды". Среди команд категории "Новое меню" выбрать команду "Новое меню".

2.2.С помощью мыши поместить новое меню после пункта "Окно" главного меню Excel. Дать этому меню название "Адреса", пользуясь кнопкой "Изменить выделенный объект" вкладки "Команды" или контекстным меню.

2.3.Активизировать меню "Адреса" и на панели меню разместить две команды, как показано в п.п.1.2 и 1.3, назначив им созданные ранее макросы и дав им соответствующие имена (рис.П.14.7).

Рис.П.14.7

2.4.Проверить наличие нового пункта в главном меню. Очистить рабочий лист ("Лист1"). Поочередно выполнить макросы "СтарыйАдрес" и "НовыйАдрес", используя созданные команды меню.

3.Создание меню с кнопками-командами.

3.1.Воспользовавшись меню "Сервис"-"Настройка", вызвать окно "Настройка", в котором выбрать вкладку "Команды". Среди команд категории "Новое меню" выбрать команду "Новое меню".

3.2.С помощью мыши разместить эту команду как один из пунктов меню "Сервис" и, воспользовавшись контекстным меню, дать ей имя "Мои макросы".

3.3.Вызвать окно "Настройка". В соответствующей вкладке среди команд категории "Макросы" выбрать команду "Настраиваемая кнопка" (рис.П.14.6). С помощью мыши поместить эту кнопку в панель меню "Мои макросы", назначить ей макрос "СтарыйАдрес" и имя "Старый адрес" (рис.П.14.8).

3.4.Аналогично п.3.3 разместить в меню "Мои макросы" еще одну кнопку и назначить ей макрос "НовыйАдрес", дать ей имя "Новый адрес" и изменить ее внешний вид (рис.П.14.8).

Рис.П.14.8

3.5.Просмотреть меню "Сервис". Проверить наличие нового пункта меню и выполнить соответствующие макросы посредством вновь созданных кнопок-команд.

4.Создание новой панели инструментов.

4.1.Щелкнув правой кнопкой мыши на свободной поверхности панели инструментов, вызвать контекстное меню и активизировать диалоговое окно "Настройка".

4.2.Используя вкладку "Панели инструментов" и кнопку "Создать", создать новую панель инструментов, присвоив ей имя "Мои макросы" (рис.П.14.9). Перейти на вкладку "Команды" в категорию "Макросы". Перетащить с помощью мыши на панель "Мои макросы" две кнопки, пользуясь командой "Настраиваемая кнопка" (рис.П.14.6). Созданная панель представлена на рис.П.14.9. Связать с этими кнопками два созданных ранее Вами макроса и дать им имена по аналогии с п.п. 3.3 и 3.4.

Рис.П.14.9

4.3.Выполнить макросы, вызывая их с помощью кнопок вновь созданной панели.

5.Назначение макросов объектам в листе.

5.1.Назначение макросов кнопкам в листе.

5.1.1.Щелкнув на поверхности панели инструментов правой кнопкой мыши, активизировать контекстное меню и выбрать пункт "Формы".

5.1.2.Выбрав на панели "Формы" элемент типа "Кнопка", разместить на поверхности рабочего листа две кнопки. С помощью автоматически открывающегося окна "Назначить макрос объекту" связать каждую кнопку с одним из двух созданных Вами макросов.

5.1.3.Отформатировать объекты (кнопки) таким образом, чтобы их размеры не превышали 2 ячеек в ширину и 2 ячеек в высоту. На каждой кнопке должна быть надпись, поясняющая назначение кнопки и оформленная жирным шрифтом размером 10 пунктов (рис.П.14.10).

5.1.4.Проверить правильность выполнения макросов с помощью созданных кнопок.

Рис.П.14.10

5.2.Назначение макросов графическим объектам.

5.2.1.С помощью панели инструментов "Рисование" создать на рабочем листе два объекта, подобные приведенным на рис.П.14.11.

5.2.2.Используя контекстное меню, для каждого объекта назначить макрос, который будет выполняться при активизации объекта.

5.2.3.Проверить правильность выполнения макросов с помощью созданных графических объектов.

Рис.П.14.11

6.Предъявить полученные результаты преподавателю, а затем тщательно удалить все созданные Вами объекты.

Для удаления команд меню и кнопок использовать команду "Удалить", вызываемую кнопкой "Изменить выделенный объект" вкладки "Команды" пункта меню "Сервис"-"Настройка" или соответствующим контекстным меню. Созданную Вами панель инструментов можно удалить следующим образом:

а) пользуясь контекстным меню для созданной панели, открыть диалоговое окно "Настройка";

б) активизировать вкладку "Панели инструментов" диалогового окна "Настройка" и удалить созданную панель. Если в результате выполнения заданий были созданы несколько панелей, то удалить все Ваши панели.

7.Задание для самостоятельной работы.

7.1.Перейти в режим ручного пересчета.

Рис.П.14.12

7.2.Создать таблицу, приведенную на рис.П.14.12. Для этой таблицы создать макрос с именем "Расчеты", который будет вычислять средние значения роста и веса, записывая их в соответствующие ячейки. Для вызова этого макроса создать элемент управления типа "Кнопка", при выборе (нажатии) которой будет выполняться расчет средних значений.

8.Предъявить результаты преподавателю.

Упражнение № 2

Цель работы: Создание и использование диалоговых окон.

1.Создать таблицу, представленную на рис.П.15.1. Дать листу имя "Склад" и сохранить в файле Имя_15_1.

Рис.П.15.1

2.Научитья создавать пользовательские диалоговые окна.

2.1.С помощью команд "Добавить"-"Окно диалога Excel 5.0" контекстного меню ярлычков добавить в книгу Имя_15_1 лист диалога (Диалог1). Сохранить книгу под именем Имя_15_2.

2.1.1.Создать в автоматическом режиме два макроса, которые, используя расширенный фильтр, извлекут из списка (рис.П.15.1) товары 1-го и 2-го сортов (критерии для извлечения данных записать до начала записи макросов, расположив их в диапазоне G1:Н2). Извлеченные данные разместить в диапазонах, начинающихся с ячеек К4 и К13 соответственно. Дать создаваемым макросам имена СОРТ1 и СОРТ2. Запись макроса начать с команды активизации листа (щелчком по ярлыку листа). Проверить правильность работы макросов, пользуясь командой "Сервис"-"Макрос"-"Макросы"-"Выполнить". Повторно проверить работу макросов, сделав предварительно активным Лист2 книги.

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

2.1.3.Пользуясь панелью инструментов "Формы", создать макет диалогового окна, показанный на рис.П.15.2.

Рис.П.15.2

2.1.4.Вернуться к макету диалогового окна (лист Диалог1) и, поочередно выделяя объекты окна (кнопки), назначить им созданные макросы, пользуясь контекстным меню.

2.1.5.Проверить работоспособность диалогового окна в отладочном режиме, пользуясь кнопкой "Отобразить окно" панели "Формы".

2.1.6.Перейти на лист модуля, пользуясь командой "Сервис"-"Макрос"-"Макросы"-"Изменить" или "Сервис"-"Макрос"-"Редактор Visual Basic", и записать на этом листе макрос, активизирующий созданное диалоговое окно. Текст такого макроса приведен ниже:

Sub Диалог1()

DialogSheets(1).Show

End Sub

2.1.7.Создать на листе "Склад" произвольный графический объект и назначить ему макрос "Диалог1". Проверить работоспособность макроса и диалогового окна.

2.1.8.Сохранить книгу с диалоговым листом "Диалог1" под именем Имя_15_2.

2.2.Добавить в книгу Имя_15_2 один лист диалога (Диалог2), выполнив действия, указанные в п.2.1. Сохранить книгу с диалоговым листом "Диалог2" под именем Имя_15_3.

2.2.1.Создать с помощью панели инструментов "Формы" макет диалогового окна, представленный на рис.П.15.3.

Рис.П.15.3

С помощью данного диалогового окна пользователь может выбрать из списка (рис.П.15.1) интересующий его товар и указать с помощью флажков те характеристики товара, которые он желает увидеть в соответствующих полях диалогового окна.

2.2.2.С помощью кнопки "Свойства элементов управления" панели инструментов "Формы" указать для раскрывающегося списка диапазон ячеек, по которому формируется список, а также ссылку на ячейку, в которую помещается результат выбора (например, ячейку А10 листа "Склад").

2.2.3.С помощью кнопки "Свойства элементов управления" панели инструментов "Формы" указать для флажков ссылки на ячейки, с которыми они будут связаны (например, ячейки А11:А13 листа "Склад"). В этих ячейках будет помещен результат – логическое значение ИСТИНА, если флажок установлен, и логическое значение ЛОЖЬ - если не установлен.

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

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

2.2.5.На листе модуля создать макрос с именем "Результат", который позволит отобразить значения цены, количества и сорта из диапазона ячеек С11:С13 в текстовых полях EditBox(1), EditBox(2) и EditBox(3). Текст макроса приведен ниже:

Sub Результат()

DialogSheets(2).EditBoxes(1).Text=Sheets("Склад").Cells(11,3).Value

DialogSheets(2).EditBoxes(2).Text=Sheets("Склад").Cells(12,3).Value

DialogSheets(2).EditBoxes(3).Text=Sheets("Склад").Cells(13,3).Value

End Sub

2.2.6.Вернуться на лист диалога (Диалог2) и с помощью контекстного меню назначить кнопке "Результат" одноименный макрос.

2.2.7.Проверить работоспособность диалогового окна в отладочном режиме с помощью кнопки "Отобразить окно" панели инструментов "Формы".

2.2.8.Создать в рабочем листе произвольный графический объект и назначить ему макрос "Диалог2", созданный по аналогии с макросом "Диалог1" (см. п.2.1.6).

2.3.Создать окно сообщений, приведенное на рис.П.15.4.

Рис.П.15.4

2.3.1.На листе модуля создать макрос "Выход", один из вариантов текста которого приведен на рис.П.15.5.

Рис.П.15.5

2.3.2.Создать в листе "Склад" произвольный графический объект и назначить ему макрос "Выход". Проверить работоспособность макроса.

2.4.Создать в главном меню пункт "Диалоги", который содержит три настраиваемые команды "Диалог1", "Диалог2" и "Выход", как показано на рис.П.15.6. Назначить им одноименные макросы и проверить работоспособность созданной конструкции.

Рис.П.15.6

2.5.Создать новую панель инструментов "Диалоги" и расположить на ней три кнопки, присоединив к ним макросы "Диалог1", "Диалог2" и "Выход", как показано на рис.П.15.7. Проверить работоспособность созданной инструментальной панели.

Рис.П.15.7

3.Предъявить результаты преподавателю.