Предыдущая страница реферата | 9  10  11  12  13  14  15  16  17  18  19 | Следующая страница реферата

Worksheets(№ПЛ).Range("J" & НомерПл) = ВидОперации

Worksheets(№ПЛ).Range("K" & НомерПл) = НазначПлатежа1

Worksheets(№ПЛ).Range("L" & НомерПл) = НомНазПл

Worksheets(№ПЛ).Range("M" & НомерПл) = МП1

Windows("Платёжка.xls").Activate

Впечать 'функция печати
End Sub
Private Sub ИзмененияСТ_Click()
If Year(Дата) Год Then
БОКС = MsgBox("В дате должен стоять " & Год & " год", , BOX)
Exit Sub
End If

Windows("Платёжка.xls").Activate
If Len(НомерПл) = 0 Then

БОКС = MsgBox("Вы не выбрали платёжку...", , BOX)

Exit Sub

Else
End If

If ПроверкаПЛ = False Then ' Проверка на правильность

Exit Sub ' введённой информации

Else ' функция находится в конце программы
End If

Вплатёжку 'функция сохраняющая данные в платёжке

ActiveWorkbook.Save

Windows("Платёжки" & Год).Activate

Worksheets(№ПЛ).Range("A" & НомерПл) = НомерПл

Worksheets(№ПЛ).Range("c" & НомерПл) = Банк

Worksheets(№ПЛ).Range("d" & НомерПл) = Счёт

Worksheets(№ПЛ).Range("b" & НомерПл) = Клиент

Worksheets(№ПЛ).Range("e" & НомерПл) = КодБанка

Worksheets(№ПЛ).Range("f" & НомерПл) = УНН

Worksheets(№ПЛ).Range("g" & НомерПл) = CDbl(Деньги)

Worksheets(№ПЛ).Range("h" & НомерПл) = Дата

Worksheets(№ПЛ).Range("I" & НомерПл) = ДатаУслуг

Рекомендуем скачать другие рефераты по теме: доклад по биологии, шпоры.



Предыдущая страница реферата | 9  10  11  12  13  14  15  16  17  18  19 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки