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

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

Private Sub Принять_Click()
    If IsNumeric(Величина.Text) = False Then
        MsgBox "Ошибка в поле Суммы", _
               vbInformation, "БАНК"
        Exit Sub
    End If
    With ActiveSheet
        .Cells(Номер, 3) = CStr(CDbl(.Cells _
               (Номер, 3)) + CDbl(Величина.Text))
    End With
    Worksheets("Операции").Activate
    Количество = Application.CountA(Active _
               Sheet.Columns(1)) + 1
    With ActiveSheet
        .Cells(Количество, 1) = Фам.Text
        .Cells(Количество, 2) = Дата.Text
        .Cells(Количество, 3) = Получ.Text
        .Cells(Количество, 4) = Тип.Text
        .Cells(Количество, 6) = Величина.Text
        .Cells(Количество, 7) = Отделение
        .Cells(Количество, 8) = Прим.Text
        .Cells(Количество, 9) = Остаток.Text + _
               CDbl(Величина.Text)
    End With
End Sub

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

Private Sub Выдать_Click()
    If IsNumeric(Величина.Text) = False Then
        MsgBox "Ошибка в поле Суммы", _
               vbInformation, "БАНК"
        Exit Sub
    End If
    With ActiveSheet
        .Cells(Номер, 3) = CStr(CDbl(.Cells _
               (Номер, 3)) - CDbl(Величина.Text))
    End With
    Worksheets("Операции").Activate
    Количество = Application.CountA(Active _
               Sheet.Columns(2)) + 1
    With ActiveSheet
                           80