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

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

Можно объединить созданные переключатели в группу. Для этого с помощью кнопки Дополнительные элементы откройте список дополнительных элементов управления и выберите группу Microsoft Forms 2.0 Frame. Создайте на некотором диапазоне ячеек группу, присвойте группе имя с помощью кнопки Надпись (Label) и разместите в группе необходимые переключатели и кнопки.

Таким образом, на листе модуля будет содержаться текст следующих процедур, соответствующих созданным элементам управления:

процедура инициализации раскрывающегося списка Private Sub ComboBoxl Change()

Dim s As String s = ComboBoxl.Value

Worksheets(s).Activate End Sub

процедура инициализации кнопки Май Private Sub CommandButtonl Click()

Sheets("Май").Select End Sub

процедура инициализации кнопки Июнь Private Sub CominandButton2 Click ()

Sheets("Июнь").Select End Sub

процедура инициализации кнопки Р1юль Private Sub CominandButton3 Click ()

Sheets("Июль").Select End Sub

процедура инициализации кнопки OK Private Sub CominandButton4 Click ()

Dim s As String

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

Sheets(s).Activate End Sub

процедура инициализации кнопки Перейти на лист

Private Sub CommandButton5 Click()

Dim s As String

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

Sheets(s).Activate End Sub

процедура инициализации кнопки Перейти Private Sub CommandButton6 Click() Dim a As Integer

Worksheets("Вспомогательный").Activate

ActiveSheet.Range("Номер").Select

If OptionButtonl.Value Then a = 1

If 0ptionButton2.Value Then a = 2

If OptionButtonB.Value Then a = 3

ActiveCell.Value = a

ActiveSheet.Range("Лист").Select

s = ActiveCell.Value Worksheets(s).Activate End Sub

процедура инициализации кнопки Private Sub ListBoxl Click() Dim s As String

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

процедура инициализации переключателя 1 Private Sub OptionButtonl Click() End Sub

процедура инициализации переключателя 2 Private Sub OptionButton2 Click() End Sub

процедура инициализации переключателя 3 Private Sub OptionButton3 Click() End Sub

процедура инициализации полосы прокрутки Private Sub ScrollBarlChange() End Sub

процедура инициализации счетчика Private Sub SpinButtonlChange() End Sub