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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

51
Рис. З.5. Форма для расчета по ипотечному кредиту
Программный код приложения.
3. Код модуля запуска приложения.
На рабочем листе Excel создайте элемент панели управления Кнопка
панели инструментов Visual Basic с надписью на ней “Расчет по ипотечно-
му кредиту”. С помощью этой кнопки будет запускаться приложение с вы-
водом на рабочий лист Excel пользовательского
диалогового окна. Для
процедуры обработки события Click этой кнопки запишите следующий
код:
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
4. Код модуля формы “Расчет по ипотечному кредиту”.
Код обработки события формы Initialize:
Private Sub UserForm_Initialize()
ListBox1.List = Array(3, 4, 5, 6, 7, 8, 9, _
10, 11, 12, 13, 14, 15)
SpinButton1.Min = 0
SpinButton1.Max = 1000
OptionButton1.Value = True
Label3.Caption = “Периодов” 
          Рис. З.5. Форма для расчета по ипотечному кредиту

     Программный код приложения.
      3. Код модуля запуска приложения.
      На рабочем листе Excel создайте элемент панели управления Кнопка
панели инструментов Visual Basic с надписью на ней “Расчет по ипотечно-
му кредиту”. С помощью этой кнопки будет запускаться приложение с вы-
водом на рабочий лист Excel пользовательского диалогового окна. Для
процедуры обработки события Click этой кнопки запишите следующий
код:

Private Sub CommandButton1_Click()
    UserForm1.Show
End Sub

     4. Код модуля формы “Расчет по ипотечному кредиту”.
     Код обработки события формы Initialize:

Private Sub UserForm_Initialize()
   ListBox1.List = Array(3, 4, 5, 6, 7, 8, 9, _
                   10, 11, 12, 13, 14, 15)
   SpinButton1.Min = 0
   SpinButton1.Max = 1000
   OptionButton1.Value = True
   Label3.Caption = “Периодов”
                                  51

Страницы