96 Программирование в среде Visual Basic for Applications

Private Sub CoiranandButton4 Click{)

Dim s As String

s = Range("Первый").Value

Sheets(s).Activate End Sub

Щелкните левой кнопкой мыши в Режиме конструктора по созданному счетчику, щелкните правой кнопкой и выберите пункт Свойства. Установите следующие значения свойств для кнопки Счетчик: в поле Value (Начальное значение) введите 2, в поле Min (Минимальное значение) - 1, в поле Мах (Максимальное значение) - 3, в поле Step Value (Шаг изменения) - 1 и в поле LinkedCell (Связанная ячейка)- Первый лист (см. рис. 12.3). Процедура для счетчика имеет вид:

Private Sub SpinButtonl Change() End Sub

Таким образом, счетчик будет изменять значения ячейки Первый лист в диапазоне от 1 до 3, функция ИНДЕКС - выводить соответствующее значение диапазона Список в ячейку Первый, а процедура CommandButton4 Click() - по щелчку на кнопке ОК осуществлять переход на лист с именем, введенным в ячейку Первый.

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

Присвойте ячейке С7 рабочего листа Вспомогательный имя Второй лист. С помощью кнопки Кнопка создайте на ячейках G15:H15 рабочего листа Оглавление кнопку, назначьте ее свойству Caption значение Перейти на лист (для отображения окна свойств нажмите кнопку F4). При этом на кнопке появится надпись Перейти на лист. С помощью кнопки Полоса прокрутки создайте полосу прокрутки на ячейках GllrHll (см. рис. 12.1). Ячейке G13 рабочего листа Оглавление присвойте имя Второй и введите в нее формулу

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

Назначьте созданной кнопке процедуру: выделите созданную кнопку; щелкните правой кнопкой мыши на ней и выберите

End Sub

1мш»1и1жип11а1и

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

I SpinButton 1 SpinButton

По алфавиту [По категориям

В Вид

(Name) SpinButton 1

BackColor □ &H8000000F8t ControlTlpText

ForeCoIor &H800000l28t

Orientation -1 - fmOrientationAuto

Value 2

Visible True

В Данные

ControlSource □ Поведение

Enabled True

В Прокрутка

Delay 50

Max 3

SmallChange В Размещение

Рис. 12.4. Окно свойств для полосы прокрутки

в контекстном меню пункт Исходный текст для открытия среды VBA. На листе модуля введите следующую процедуру (при этом 1-я и 3-я строка выводятся автоматически, по умолчанию процедура называется CommandButton5 Click).

Private Sub CominandButton5 Click ()

Dim s As String

s = Range("Первый").Value

Sheets(s).Activate End Sub

Щелкните левой кнопкой мыши в Режиме конструктора по созданной полосе прокрутки, щелкните правой кнопкой и выберите пункт Свойства. Установите следующие значения свойств для кнопки Полоса прокрутки: в поле Начальное значение (Value) введите 2, в поле Минимальное значение (Min) -1, в поле Максимальное значение (Мах) - 3, в поле Шаг изменения (Step Value)- 1 и в поле Связанная ячейка (LinkedCell)- Вто-рой лист (рис. 12.4). Процедура для счетчика имеет вид:

Private Sub ScrollBarl Change()

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

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

С помощью кнопки Кнопка создайте на ячейках С13:С15 рабочего листа Оглавление кнопку CommandButton6, назначьте свойству Caption этой кнопки значение Перейти. При этом на поверхности кнопки вместо надписи CommandButton6 появится надпись Перейти.

С помощью кнопки Переключатель создайте на ячейках В13, В14 и В15- три положения переключателя (см. рис. 12.1). Установите значения свойства Caption этих переключателей равными Май, Июнь и Июль соответственно.

Установите для каждого переключателя значение свойства GroupName равным Оглавление (для объединения их в группу). Установите значение свойства Value одного из переключателей, например Май, равным True, а двух других - False.

Назначьте кнопке Перейти следующую процедуру:

Private Sub CominandButton6 Click () Dim a As Integer

Worksheets ("Вспомогательный") .Activate ActiveSheet.Range("Номер").Select If OptionButtonl.Value Then a = 1 If OptionButton2.Value Then a = 2 If OptionButton3.Value Then a = 3 ActiveCell.Value = a ActiveSheet.Range("Лист").Select s = ActiveCell.Value Worksheets(s).Activate End Sub

В этой процедуре учитываются такие особенности элемента управления OptionButton: