Лабораторная работа №9

Создание элементов управления на листах книг Excel и в пользовательских формах VBA

1. Создание элементов управления на листах книг Excel

Элементы управления (ЭУ), входящие в комплекс интерактивных инструментов VBA, находятся в поле выпадающего меню кнопки Вставить на ленте Разработчика.

Впрограмме Excel ЭУ могут быть созданы на листах книги или

вокнах пользовательских форм, разрабатываемых при реализации приложений в среде VBA.

Для организации удобного для пользователя интерфейса при работе с книгой Excel, в которой реализованы лабораторные работы необходимо выполнить следующие операции:

1. Вставим в книгу новый лист, на котором разместим кнопки коммутатора. При нажатии на какую-либо кнопку, находящуюся на этом листе, выполняется переход на лист книги с соответствующей лабораторной работой, название которой записано на кнопке.

2. Переименуем этот лист, назвав его "Работы 1-го семестра" 3. Нарисуем в поле листа кнопку CommandButton.

4.Изменим её свойство Name на CmdLR3 и свойство Caption на название лабораторной работы. Например, вместо текста

CommandButton введём текст "Переход на Прайс-лист".

5.Для создания процедуры, выполняемой при нажатии кнопки CmdLR3, делаем 2ЩЛК после чего записываем в заготовку текста оператор, выполняющий переход на лист книги с реализацией лабораторной работы "Построение Прайс-листа".

Private Sub CmdLR3_Click() Sheets("Прайс-лист").Select

End Sub

или

Private Sub CmdLR3_Click() Worksheets("Прайс-лист").Activate

End Sub

Более подробно выполнение работы по созданию кнопок на листе "Работы 1-го семестра" рассматривался на лекции.

1

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

Вставим в книгу ещё один лист, на котором разместим кнопки, нажатие на которые вызывает выполнение различных процедур.

Изменение свойств приложения

Первой кнопкой, которую следует поместить на этот лист, создадим кнопку при нажатии которой изменяются название приложения Microsoft Excel, создаётся новая книга и изменяется стиль ссылок (вместо стиля А1 устанавливается стиль R1C1).

При закрытии книги выполняется обратное переименование приложения и восстанавливается традиционный стиль ссылок.

Тексты процедур workbook_open() и Workbook_BeforeClose(Cancel As Boolean), выполняемых при нажатии этой кнопки и при закрытии созданной книги, рассматривались на лекции.

Задание по выполнению лабораторной работе (Резюме)

1.Вставить в книгу с лабораторными работами три дополнительных листа:

а) титульный лист, на котором помещается объект "Документ Microsoft Word" оформленный как титульный лист лабораторной работы №2: "Создание документа Microsoft Word";

б) лист коммутатора обращений к лабораторным работам. выполняемым в среде Microsoft Excel;

в) лист "Кнопки", на котором размещаются кнопки, при нажатии которых вызывается на выполнение некая процедура.

2.Оформить лист коммутатора, на поле которого следует поместить кнопки перехода на листы лабораторных работ и тексты с полными названиями работ.

3.На каждом листе книги создать кнопки, возвращающие активность на лист коммутатора.

4.На листе "Кнопки" реализовать кнопку для вызова процедуры, создающей новую книгу и изменяющую её свойства Name и Caption.

2

Программные тексты процедур

1.Процедура, выполняемая при нажатии кнопки, реализующей создание новой книги Excel.

-На листе "Кнопки" создаём новую кнопку.

-Изменяем свойство Name вновь созданной кнопки, например, на новое имя AddOne.

-Изменяем свойство Caption на текст "AddOne - создание новой книги".

-Введём текст процедуры:

Sub AddOne()_Click()

MsgBox "Заголовок (Caption) этой кнопки : " & vbCrLf & _

AddOne.Caption & vbCrLf & " Имя кнопки (Name) : " & _

2.Процедуры, выполняемые при открытии и закрытии книги Excel. Процедуры записываются в модуле "Эта книга", входящем в структуру объектов проекта VBA.

Используя меню Insert, создадим две процедуры

Workbook_open() и Workbook_BeforeClose().

Private Sub workbook_open()

'ОпределимзначениесвойстваCaption длязаголовка

'рабочейкниги"Лабораторныеработы" вместоMicrosoft Excel Application.Caption = "Лабораторные работы"

'определяем стиль ссылок R1C1

Application.ReferenceStyle = xlR1C1

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

'Восстанавливается значение свойства Caption для

'заголовка рабочей книги

With Application

.Caption = "Microsoft Excel" 'Восстанавливается стиль ссылок A1

.ReferenceStyle = xlA1

End With End Sub

3