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

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

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

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

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

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

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

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

Private Sub CorranandButton4_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() - по щелчку на кнопке OK осуществлять переход на лист с именем, введенным в ячейку Первый.


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