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

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

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

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

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

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

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

Private Sub CommandButton5_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()

End Sub

HB

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

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

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

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

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


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