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

        КогдаПлатим = "В начале месяца"
        .TogType.Caption = "В начале месяца"
      End If
      'Определяем размер платежей
      Платежи = Pmt(Ставка / 12, Срок, -Кредит, _
                    0, Тип)
      'Определяем текущую дату и время
      Дата = Now
   End With
   'Записываем в ячейки текущей строки значения
    переменных
   With ActiveSheet
      .Cells(НомерСтроки, 1).Value = Фамилия
      'Формируем примечание
      .Cells(НомерСтроки, 1).AddComment
      .Cells(НомерСтроки, 1).Comment.Visible = _
                    False
      .Cells(НомерСтроки, 1).Comment.Text Text:= _
            "Заложил " & ВидЗалог & " на сумму " _
             & СуммаЗалог & " " & " " & Дата & _
            " " & Пол
      .Cells(НомерСтроки, 2).Value = Имя
      .Cells(НомерСтроки, 3).Value = Адрес
      .Cells(НомерСтроки, 4).Value = Срок
      .Cells(НомерСтроки, 5).Value = Ставка
      .Cells(НомерСтроки, 6).Value = Кредит
      .Cells(НомерСтроки, 7).Value = Платежи
      .Cells(НомерСтроки, 8).Value = КогдаПлатим
   End With
End Sub

6. Для процедуры обработки события Click кнопки Отмена запишите сле-
   дующий код:
Private Sub CancelButton_Click()
    Dim НомерСтроки As Integer
    'Вычисляем номер последней заполненной строки
    НомерСтроки = Application.CountA(ActiveSheet _
                     .Columns(1))
    With ActiveSheet
        .Cells(НомерСтроки, 1).Value = ""
        'Удаляем примечание
        .Cells(НомерСтроки, 1).ClearComments
        .Cells(НомерСтроки, 2).Value = ""
        .Cells(НомерСтроки, 3).Value = ""
                                62