Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.52
Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.52

Л операторы 2 End If End Sub

Public Sub My_Work() Work__project (ToggleButtonl .Value) End Sub

Также можно поместить в форму полосу прокрутки ScrollBar и набор вкладок TabStrip.

12. Создание автоматизированного оглавления рабочей книги

В данном разделе приведены примеры создания автоматизированного оглавления рабочей книги с помощью объектов панели инструментов Элементы управления ([2]).

Создадим рабочую книгу с пятью рабочими листами с именами Оглавление, Май, Июнь, Июль и Вспомогательный.

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

12Л. Процедуры перелистывания рабочих листов с помощью кнопок

С помощью кнопки Кнопка создайте на ячейках С2, D3 и Е4 рабочего листа Оглавление три кнопки - Май, Июнь и Июль (рис. 12.1).

Рассмотрим подробнее создание кнопки Май. По умолчанию созданная кнопка и соответствующая ей процедура имеют имя CommandButtonl. Назначьте кнопке процедуру CommandBut-tonl_Click():

• выделите созданную кнопку, щелкнув в Режиме конструктора по созданной кнопке левой кнопкой мыши;

• щелкните правой кнопкой мыши по созданной кнопке и выберите в контекстном меню пункт Исходный текст; при этом откроется окно редактора VBA;

• введите текст следующей процедуры (при этом первая и последняя строки выводятся автоматически):

Private Sub CommandButtonl_Click()

Sheets("Май").Select End Sub

12. Создание автоматизированного оглавления рабочей книги 91

Кроме того, щелкнув по созданной кнопке правой кнопкой мыши, откройте окно свойств и установите свойству Caption значение Май. При этом на кнопке изменится надпись Сот-mandButtonl на надпись Май.

Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications

Рис. 12.1. Примеры автоматизированных оглавлений

По умолчанию создаваемые кнопки имеют имена Command-Buttonl(KHonKal), CommandButton2(KHonKa2) и CommandBut-ton3(KHonKa3), которые выводятся в поле имен и на поверхности кнопок. Изменяя свойство Caption, можно установить необходимую надпись на кнопке. Эта операция не изменяет имени кнопки (имя будет прежним - CommandButton (Кнопка), и именно оно будет выводиться в поле имен Name в окне свойств).


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta