Visual Basic for Applications. Практика. Нагина Е.К - 78 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

78
Private Sub Операции_Click()
Опер.Show
End Sub
Рис. 4.12. Форма «Опер»
2. Код модуля формы “Опер”
Код обработки события формы Initialize:
Private Sub UserForm_Initialize()
With Опер
.Сев.Value = True
.Тип.ListRows = 3
.Тип.List = Array("Срочный", "Депозит", _
"Текущий")
.Найти.SetFocus
Application.Worksheets("База").Activate
End With
End Sub 
    Private Sub Операции_Click()
        Опер.Show
    End Sub




                         Рис. 4.12. Форма «Опер»


   2. Код модуля формы “Опер”
   Код обработки события формы Initialize:

Private Sub UserForm_Initialize()
    With Опер
        .Сев.Value = True
        .Тип.ListRows = 3
        .Тип.List = Array("Срочный", "Депозит", _
                   "Текущий")
        .Найти.SetFocus
        Application.Worksheets("База").Activate
    End With
End Sub


                                 78

Страницы