Выполнение лабораторной работы. 1. Загрузить EXCEL. Сохранить рабочую книгу с именем Lab5.xls

1. Загрузить EXCEL. Сохранить рабочую книгу с именем Lab5.xls.

2. Перейти в редактор VBA. (Сервис\Макрос\Редактор Visual Basic).

3. Добавить 5 форм в проект. (Вставка\UserForm).

4. Переименовать формы в "Форма1", " Форма2", " Форма3", " Форма4" и " Форма5", используя окно свойств каждой формы.

5. Вставить процедуру создания новой панели инструментов, нового меню, скрытия панелей инструментов Стандартная и Форматирование при открытии рабочей книги и процедуры вывода этих панелей при закрытии рабочей книги.

Процедура создания новой панели инструментов и новое меню при открытии рабочей книги

Private Sub Workbook_WindowActivate(ByVal Wn As Excel.Window)

' При открытии рабочей книги панели инструментов Форматирование и Стандартная скрываются и отображается новый заголовок окна приложения

With Application

.Caption = "С нами не соскучишься"

.DisplayAlerts = False

.CommandBars("Formatting").Visible = False

.CommandBars("Standard").Visible = False

End With

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

' Рабочая панель инструментов, которая будет

' удаляться при закрытии приложения

With Application.CommandBars.Add(Name:="Первая панель инструментов", Position:=msoBarTop, MenuBar:=False, Temporary:=True)

.Visible = True

With.Controls

' Первая кнопка

With.Add(Type:=msoControlButton, ID:=1)

.Caption = "Первая кнопка"

.TooltipText = "Это первая кнопка"

.Style = msoButtonCaption

.OnAction = "Модуль1.Форма1_Initialize"

End With

' Вторая кнопка

With.Add(Type:=msoControlButton, ID:=1)

.Caption = "Вторая кнопка"

.TooltipText = "Это вторая кнопка"

.Style = msoButtonCaption

.OnAction = "Модуль1. Форма2_Initialize"

End With

' Третья кнопка

With.Add(Type:=msoControlButton, ID:=1)

.Caption = "Третья кнопка"

.TooltipText = "Это третья кнопка"

.Style = msoButtonCaption

.OnAction = "Модуль1. Форма3_Initialize"

End With

' Четвертая кнопка

With.Add(Type:=msoControlButton, ID:=1)

.Caption = "Четвертая кнопка"

.TooltipText = "Это четвертая кнопка"

.Style = msoButtonCaption

.OnAction = "Модуль1. Форма4_Initialize"

End With

' Пятая кнопка

With.Add(Type:=msoControlButton, ID:=1)

.Caption = "Пятая кнопка"

.TooltipText = "Это пятая кнопка"

.Style = msoButtonCaption

.OnAction = "Модуль1. Форма5_Initialize"

End With

End With

End With

' Вторая панель инструментов с именем «Вторая панель инструментов»

With Application.CommandBars.Add(Name:="Вторая панель инструментов", Position:=msoBarTop, MenuBar:=False, Temporary:=True)

.Visible = True

With.Controls

' Первая кнопка

With.Add(Type:=msoControlButton, ID:=1)

.Caption = "Первая кнопка"

.TooltipText = "Это первая кнопка"

.Style = msoButtonCaption

.OnAction = "Модуль1.Действие_Первой_Кнопки"

End With

' Вторая кнопка

With.Add(Type:=msoControlButton, ID:=3)

.TooltipText = "Сохранить"

.OnAction = "Модуль1.Запись"

End With

With.Add(Type:=msoControlButton, ID:=1175)

.TooltipText = "Сохранить как"

.OnAction = "Модуль1.СохранитьКак"

End With

End With

End With

With Application.CommandBars.Add(Name:="МоеМеню", MenuBar:=True, Temporary:=True)

.Visible = True

With.Controls

' Создание строки меню Файл

With.Add(Type:=msoControlPopup)

.Caption = "&Файл"

With.Controls

With.Add(Type:=msoControlButton)

.Caption = "Сохранить"

.OnAction = "Модуль1.Запись"

End With

With.Add(Type:=msoControlButton)

.Caption = "Сохранить как"

.OnAction = "Модуль1.СохранитьКак"

End With

With.Add(Type:=msoControlButton)

.Caption = "Закрыть"

.OnAction = "Модуль1.Закрыть"

End With

End With

End With

End With

End With

End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Excel.Window)

' Процедура, отображающая панели инструментов Форматирование

' и Стандартная при закрытии приложения

' Кроме того, она устанавливает заголовок окна приложения, используемые

' по умолчанию

With Application

.CommandBars("Formatting").Visible = True

.CommandBars("Standard").Visible = True

.Caption = Empty