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

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

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

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

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

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

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

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

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

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

Private Sub CoinmandButtonl Click ()

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

Перейга

9 "шй 10

13 14 15J 16

i ► и\оглавление/май/июнь/июль/ вспомогательь И

\<\ II 1>

июнь

Перейти на лист

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

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

Создайте кнопки Июнь и Июль и назначьте им следующие процедуры:

Private Sub CominandButton2 Click ()

Sheets("Июнь").Select End Sub

Private Sub CominandButton3 Click ()

Sheets("Июль").Select End Sub

Назначьте свойствам Caption этих кнопок значения Июнь и Июль соответственно.

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

В этих процедурах использовался метод Activate. Это метод активизирует объект, в данном случае рабочий лист. Теперь, например, кнопке Mail назначена процедура, активизирующая рабочий лист с именем Maii, т. е. нажатие этой кнопки будет приводить к переходу на лист с именем Maii.

При необходимости можно изменить названия и самих процедур на Maii, Июнь и Июль.

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

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

На рабочем листе Вспомогательньш в ячейки А1, А2 и A3 введете:

Июнь

Июль

С помощью команды Вставка/Имя/Присвоить присвойте диапазону А1:АЗ имя Список, ячейке А6 - имя Номер, а ячейке А7 - имя Лист (рис. 12.2).

Рис. 12.2. Данные на рабочем листе «Вспомогательный» В ячейку А7 введите формулу

= ИНДЕКС (Список;Номер;1)

В общем случае синтаксис функции ИНДЕКС (INDEX) имеет следующий вид:

ИНДЕКС (массив; номер строки; номер столбца)