Функция ИНДЕКС возвращает значение ячейки диапазона массив с заданными номерами строки и столбца. Таким образом, при введении в ячейку Номер целого числа от 1 до 3 функция ИНДЕКС будет возвращать в ячейку Лист содержимое соответствующей ячейки диапазона Список. Например, если в ячейку Номер ввести число 3, то в ячейке Лист будем иметь Июль (см. рис. 12.2).

С помощью кнопки Раскрывающийся список создайте раскрывающийся список на ячейках D6 и Е6 рабочего листа Оглавление (см. рис. 12.1). Назначьте этому списку процедуру ComboBoxl Click():

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

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

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

Private Sub ComboBoxl Change()

Dim s As String

s = ComboBoxl.Value

Worksheets(s).Activate End Sub

Кроме того, щелкнув список правой кнопкой мыши по созданному раскрывающемуся списку, выберите в раскрывшемся контекстном меню пункт Свойства. В открывшемся окне свойств списка установите значения свойств: в поле свойства ListFillRange введите Список, в поле ListRows (Количество строк списка) установите значение 3 (рис. 12.3).

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

soft Visual Basi

1Ж!и"11и1йЁ1П11ау1

Файл Правка Вид Вставка Формат Отладка Запуск Сервис Qkho 2

В Вид

(Name) SpinButtonl

BackColor □ &H8000000F& ControlTipText

ForeColor &H80000012&

Orientation -1 - fmOrientationAuto

Value 2

Visible True

El Данные

ControlSource El Поведение

Enabled El Прокрутка

Delay

True

50 3 1

SmallChange El Размещенж

Рис. 12.3. Окно свойств для счетчика

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

С помощью кнопки Список создайте список на ячейках D10:E12 рабочего листа Оглавление (рис. 12.1). Назначьте этому списку процедуру ListBox 1 СНск():

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

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

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

Private Sub ListBoxl Click() Dim s As String

Worksheets("Вспомогательный").Activate ActiveSheet.Range("Номер").Select

ActiveCell.FormulaRlCl = ListBoxl.Listlndex + 1

Worksheets("Вспомогательный").Activate ActiveSheet.Range("Лист").Select s = ActiveCell.Value Worksheets(s).Activate End Sub

Кроме того, щелкнув список правой кнопкой мыши по созданному списку, выберите в раскрывшемся контекстном меню пункт Свойства. В открывшемся окне свойств списка установите значения свойств: в поле свойства ListFillRange введите Список, в поле MultiSelect (Переключатель) установите положение FmMultiSelectSingle (Только одно значение).

Теперь список ListBoxl выведет значения, записанные в диапазон Список, а номер выбранного элемента из этого списка -в ячейку Номер. Таким образом, данная конструкция будет обеспечивать переход на страницу с именем, выбранным в списке.

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

Присвойте ячейке С6 рабочего листа Вспомогательный имя Первыйлист. Войдите в Режим конструктора, щелкнув по соответствующей кнопке в Панели элементов. С помощью кнопки Кнопка создайте на диапазоне 14:16 рабочего листа Оглавление кнопку (по умолчанию кнопка и соответствующая ей процедура называются CommandButton4), установите свойство Caption этой кнопки равным ОК. В результате на поверхности кнопки появится надпись ОК (см. рис. 12.1).

С помощью кнопки Счетчик создайте счетчик на диапазоне G4:G6 (см. рис. 12.1). Ячейке Н5 рабочего листа Оглавление присвойте имя Первый и введите в нее формулу

=ИНДЕКС (Список; Первый лист;1)

Назначьте кнопке ОК процедуру: выделите созданную кнопку; щелкните правой кнопкой мыши на ней и выберите в контекстном меню пункт Исходный текст для открытия среды VBA. На листе модуля введите следующую процедуру (при этом 1-я и 3-я строка выводятся автоматически).