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

Можно объединить созданные переключатели в группу. Для этого с помощью кнопки Дополнительные элементы откройте список дополнительных элементов управления и выберите группу 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

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

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

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

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

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

Л процедура инициализации кнопки OK Private Sub CommandButton4_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 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

x процедура инициализации кнопки 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


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