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

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

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

Private Sub ComboBoxl_Change ( )

Dim s As String

s = СошЬоВохІ.Value

Worksheets(s).Activate End Sub

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

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

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

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

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

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

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

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

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

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

Private Sub ListBoxl_Click() Dim s As String

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

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

ActiveCell.FormulaRICl = _ ListBoxl.Listlndex + 1

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

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


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