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

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

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

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

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

Private Sub CommandButton6_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:

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

OptionButtons (номер)

Объект управления - кнопка переключателя с указанным номером

Свойство Value объекта OptionButtons

Описывает положение переключателя: выбрана данная кнопка или нет

Постоянная xlOn, равная единице

Используется, чтобы описать ситуацию, когда кнопка переключателя выбрана

По мере создания элементов управления (поля, списки, переключатели и т. д.) Excel по умолчанию присваивает им порядковые номера, которые входят в имена, отображаемые в поле имени, например Кнопка1 (CommandButtonl), Полоса прокрутки! (ScrolBar2), ПереключательЗ (OptionButton3). Внося изменения в поле имен, можно изменить имена объектов управления.

Таким образом, процедура CommandButton6_Click(), в зависимости от включенного переключателя, присваивает переменной «а» одно из возможных значений Май, Июнь или Июль, а кнопка Перейти активизирует лист с соответствующим именем.


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