Методические рекомендации для лабораторно-практических работ по ЕН. 02 Информационные технологии в профессиональной деятельности

ия переменных
Dim Фамилия As String
Dim ТипВклада As String
Dim СуммаВклада As Double
Dim Отделение As String
Dim Примечание As String
Dim НомерСтроки As Integer
Вычисление номера первой свободной строки
НомерСтроки
Application. CountA (ActiveSheet. Columns(1)) 1
With Вклад
If . Фамилия. Text "" Then
MsgBox "Вы забыли указать фамилию", vbExclamation
Exit Sub
End If
If . ТипВклада. Value "" Then
MsgBox "Вы забыли указать тип вклада", vbExclamation
Exit Sub
End If
TextBox1 . Фамилия. Text
ТипВклада . ТипВклада. Value
If . Северное. Value True Then Отделение "Северное"
If . Центральное. Value True Then Отделение "Центральное"
If . Восточное. Value True Then Отделение "Восточное"
If IsNumeric(. СуммаВклада. Text) False Then
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(ActiveSheet. Columns(1))
Удаляем содержимое ячеек строки
With ActiveSheet
. Cells(НомерСтроки, 1). Value ""
. Cells(НомерСтроки, 2). Va