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

        .Cells(Количество, 1) = Фам.Text
        .Cells(Количество, 2) = Дата.Text
        .Cells(Количество, 3) = Получ.Text
        .Cells(Количество, 4) = Тип.Text
        .Cells(Количество, 5) = Величина.Text
        .Cells(Количество, 7) = Отделение
        .Cells(Количество, 8) = Прим.Text
        .Cells(Количество, 9) = Остаток.Text _
               - CDbl(Величина.Text)
    End With
End Sub

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

Private Sub Отменить_Click()
    With ActiveSheet
        '.Cells(Номер, 3) = Остаток.Text
    End With
    Worksheets("Операции").Activate
    With ActiveSheet
        .Cells(Количество, 1) = ""
        .Cells(Количество, 2) = ""
        .Cells(Количество, 3) = ""
        .Cells(Количество, 4) = ""
        .Cells(Количество, 6) = ""
        .Cells(Количество, 7) = ""
        .Cells(Количество, 8) = ""
        .Cells(Количество, 9) = ""
    End With
End Sub

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

Private Sub Выход_Click()
    Worksheets("Меню").Activate
    End
End Sub

   Порядок и демонстрация выполнения приложения следующие:

1. Запустите приложение путем нажатия на кнопку «Операции», располо-
   женную на рабочем листе «Операции» табличного процессора Excel
   (рис. 4.13).

                                81