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

      .Range(“A6”).Value = “Результаты вычислений”
      .Range(“A7”).Value = “Сумма кредита”
      .Range(“A8”).Value = “Величина платежа”
      .Range(“A9”).Value = “Полная сумма выплат”
      .Range(“A10”).Value = “Комиссионные”
      .Range(“B1”).Value = TextBox2.Text
      .Range(“B2”).Value = TextBox3.Text
      If OptionButton1.Value = True Then
         .Range(“B3”).Value = TextBox1.Text + “ _
             Месяцев”
      Else
         .Range("B3").Value = TextBox1.Text + “ _
             Лет”
      End If
      .Range(“B4”).Value = ListBox1.Value
      If ToggleButton1.Value = True Then
         .Range(“B5”).Value = “В начале периода”
      Else
         .Range("B5").Value = “В конце периода”
      End If
      .Range(“B6”).Value = “”
      .Range(“B7”).Value = Label9.Caption
      .Range(“B8”).Value = Label7.Caption
      .Range(“B9”).Value = Label8.Caption
      .Range(“B10”).Value = Label11.Caption
   End With
End Sub

    Код процедуры обработки события Click кнопки Закрыть (в програм-
ме CommandButton2):

Private Sub CommandButton2_Click()
    End
End Sub

   Код процедуры обработки события Click элемента ToggleButton1 (на
форме это кнопка с надписью “В начале периода”):

Private Sub ToggleButton1_Click()
    ToggleButton1.Value = True
End Sub

   Код процедуры обработки события Change элемента SpinButton1:
Private Sub SpinButton1_Change()
                               53