Технология выполнения. 1. Запустите приложение Excel и сохраните книгу под соответствующим именем.

1. Запустите приложение Excel и сохраните книгу под соответствующим именем.

2. Создайте форму аналогично приведенному рис. 100.

3. Пропишите работу кнопки «Вычислить»:

Private Sub CommandButton1_Click()

Dim timeall As Integer

Рис. 100. Разработанная форма примера 52 в рабочем состоянии

Dim amort As Double

With ComboBox1

If.ListIndex = 0 Then

timeall = Textbox3.Value * 365

ElseIf.ListIndex = 1 Then

timeall = Textbox3.Value * 12

Else

timeall = Textbox3.Value

End If

End With

amort = DDB(TextBox1.Value, TextBox2.Value, timeall,

TextBox4.Value)

TextBox5.Value = amort

CommandButton2.Enabled = True

End Sub

Обратите внимание на вычисление значений параметра timeall в зависимости от выбора пункта в раскрывающемся списке (день, месяц, год) и использования функции DDB.

4. Заполнение поля со списком происходит в процедуре инициализации формы:

Private Sub UserForm_initialize()

With ComboBox1

AddItem «день»

AddItem «месяц»

AddItem «год»

ListIndex = 0

End With

End Sub

Эта процедура запускается при использовании известного вам оператора Show.

5. Нажатие кнопки «Вывести отчет» должно приводить к выводу отчета на рабочий лист Excel в следующем формате (рис. 101):

Рис. 101. Вывод вычислений на лист excel в примере 52