2.3. Создание меню пользователя

Создадим меню для курсовой работы следующего вида:

Рис. 14

Здесь лишь пункт меню «Титульный лист» не имеет подменю. Для создания меню используем следующий алгоритм.

1. Выберите команду Сервис\Настройка. В появившемся диалоге Настройка Вы увидите три закладки: Панель инструментов, Команды и Параметры.

2. Находясь на закладке Панели инструментов, щелкните по кнопке Создать и введите новое имя для Вашей панели инструментов - MYMenu. При этом новая панель тут же отобразиться в рабочей области окна листа.

3. Перейдя на закладку Команды, выберите в списке Категорий категорию Макросы и из списка Команды, расположенного правее, перетащите левой кнопкой мыши на панель MYMenu команду Настраиваемая команда меню.

4. Щелкните по ней правой кнопкой мыши и измените имя на Титульный лист.

5. Из списка Категорий на закладке Команды выберите категорию Новое меню и из списка Команды перетащите левой кнопкой мыши на панель MYMenu команду Новое меню. Особенностью этой команды является то, что она предназначена для построения вложенного меню.

6. Измените имя этой команды на Задание 1.

7. Щелкните по вновь созданной команде левой кнопкой мыши, при этом появится пустое подменю. Это подменю следует заполнить командами Описание, Решение средствами Excel, Решение на языке VBA, График, используя категорию Макросы и команду Настраиваемая команда меню, как это было уже рассмотрено для команды Титульный лист в пунктах 3 и 4.

8. По аналогии с пунктом меню Задание 1 создайте пункт меню Выход с командой В режим конструктора.

9. Команду Из приложения свяжем со стандартным методом Quit (Выход из приложения Excel). Для этого на закладке Команды выберите категорию Файл. Отыщите в списке Команд команду Выход и перетащите ее в подменю. После чего правой кнопкой мыши измените имя команды.

10. Чтобы созданные команды меню что-то выполняли, необходимо создать макросы (пользовательские процедуры) и связать их с созданными командами. Закройте окно Настройки.

11. Пусть титульный лист курсовой работы будет располагаться на Листе 1, а все решения из пункта меню Задание 1 – на Листе 2.

12. Создадим макрос для команды Титульный лист. Перейдите на Лист 3. (С него мы будем осуществлять процесс записи макросов для переходов на Лист 1 и Лист 2).

13. Выберите команду Сервис\Макрос\Начать запись. Введите имя макроса Titul. После чего появится панель с кнопкой Останов. Щелчком мыши активизируйте Лист 1 и нажмите кнопку Останов.

14. Создадим макрос для команды Описание. Перейдите вновь на Лист 3. Выберите команду Сервис\Макрос\Начать запись. Введите имя макроса Opus. Щелчком мыши активизируйте Лист 2 и выделите ячейки описания задания, далее нажмите кнопку Останов.

15. Аналогично создайте макросы для остальных команд меню Задание 1 с именами Resh1, Resh2 и Graphic.

16. Выполните команду Сервис\Макрос\Редактор Visual Basic, и Вы увидите окно программного кода VB, как на рис. 15. Все макросы, записанные системой Visual Basic, представлены в виде подпрограмм и размещены в модуле с именем Module1.

Рис. 15

17. Создайте подпрограмму с именем Выход для команды В режим конструктора. В окне программного кода макросов запишите:

Public Sub Выход()

With Application

.Caption = Empty

.Worksheets("Лист1").Activate

.ActiveWindow.DisplayGridlines = True

.ActiveWindow.DisplayHeadings = True

.ActiveWindow.DisplayHorizontalScrollBar = True

.ActiveWindow.DisplayVerticalScrollBar = True

.ActiveWindow.DisplayWorkbookTabs = True

.CommandBars("Worksheet Menu Bar").Enabled = True

.CommandBars("MYmenu").Visible = False

End With

With ActiveSheet.Range("a1:n36").Interior

.ColorIndex = 6 ´ Желтый цвет фона

End With

End Sub

18. Активизируйте двумя щелчками мыши объект «Эта книга» в окне Project-VBA Project и запишите следующий программный код, который будет всегда выполняться при загрузке книги в память.

Private Sub Workbook_Activate()

Application.Caption = "Курсовая работа" ' Заголовок приложения

With Application 'Убираем все панели инструментов с экрана

.CommandBars("Worksheet Menu Bar").Enabled = False

.DisplayFormulaBar = False 'Строка формул

.DisplayNoteIndicator = False 'Индикатор

.DisplayStatusBar = False 'Статус-строка

'Скрываем панели Standart, Formating, WordArt и отображаем MYmenu

.CommandBars("WordArt").Visible = False

.CommandBars("Standard").Visible = False

.CommandBars("Formatting").Visible = False

.CommandBars("MYmenu").Visible = True

.Worksheets("Лист1").Activate

With ActiveSheet.Range("a1:n36").Interior

.ColorIndex = 2 'Белый цвет фона

End With

With ActiveWindow

.DisplayGridlines = False 'Убирать сетку с листа

.DisplayHorizontalScrollBar = False 'Убирать HScrollBar

.DisplayVerticalScrollBar = False 'Убирать VScrollBar

.DisplayFormulas = False 'Убирать строку формул

End With

End With

Range("a1").Select

End Sub

19. Активизируйте двумя щелчками мыши объект «Лист1» в окне Project-VBA Project и запишите следующий программный код, который будет всегда выполняться при активизации данного листа:

Private Sub Worksheet_Activate()

With Application.ActiveWindow

.DisplayHorizontalScrollBar = False 'Убирать HScrollBar

.DisplayVerticalScrollBar = False 'Убирать VScrollBar

End With

End Sub

20. Для остальных листов запишите свой программный код:

Private Sub Worksheet_Activate()

With Application.ActiveWindow

.DisplayHorizontalScrollBar = True 'Установить HScrollBar

.DisplayVerticalScrollBar = True 'Установить VScrollBar

End With

End Sub

21. Теперь свяжем каждую команду меню со своим макросом. Эту операцию следует выполнять при активном диалоге Настройка, поэтому выберите команду Сервис\Настройка.

22. Щелкните правой кнопкой мыши по команде меню Титульный лист и в появившемся контекстном меню выберите команду Назначить макрос, а в появившемся списке - макрос Titul.

23. Аналогично свяжите оставшиеся команды меню, кроме команды Из приложения, поскольку она уже связана с методом Quit.

24. В диалоге Настройка снимите все флажки с панелей инструментов, кроме панели MYMenu и нажмите кнопку Вложить. В открывшемся диалоге Управление панелями инструментов выберите панель MYMenu и нажмите кнопку Копировать в панели книги.

25. Закройте диалог Настройка, сохраните документ на диске и выйдите из приложения.

26. Теперь, когда Вы будете запускать выше приложение с диска, оно будет отображать лишь созданное вами меню MYMenu и активизировать Титульный лист.