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

                       Отделение = "Северное"
        If .Центральное.Value = True Then _
                       Отделение = "Центральное"
        If .Восточное.Value = True Then _
                       Отделение = "Восточное"
        If IsNumeric(.СуммаВклада.Text) = False _
                  Then
             If .СуммаВклада.Text = "" Then
                 MsgBox "Вы забыли указать сумму _
                    вклада", vbExclamation
                 Exit Sub
             End If
             MsgBox "Введена неверная сумма", _
                    vbExclamation
             Exit Sub
        End If
        СуммаВклада = CDbl(.СуммаВклада.Text)
        Примечание = .Примечание.Text
    End With
    With ActiveSheet
        .Cells(НомерСтроки, 1).Value = Фамилия
        .Cells(НомерСтроки, 2).Value = ТипВклада
        .Cells(НомерСтроки, 3).Value = СуммаВклада
        .Cells(НомерСтроки, 4).Value = Отделение
        .Cells(НомерСтроки, 5).Value = Примечание
    End With
End Sub

   Код процедуры обработки события Click кнопки «Отмена»:

Private Sub Отмена_Click()
    Dim НомерСтроки As Integer
    НомерСтроки = Application.CountA(Active- _
         Sheet.Columns(1))
    With ActiveSheet
        .Cells(НомерСтроки, 1).Value = ""
        .Cells(НомерСтроки, 2).Value = ""
        .Cells(НомерСтроки, 3).Value = ""
        .Cells(НомерСтроки, 4).Value = ""
        .Cells(НомерСтроки, 5).Value = ""
    End With
End Sub


                               74