Реферат: VBA Платежка
Worksheets(№ПЛ).Range("e" & НомерПл) = КодБанка
Worksheets(№ПЛ).Range("f" & НомерПл) = УНН
Worksheets(№ПЛ).Range("g" & НомерПл) = Деньги
Worksheets(№ПЛ).Range("h" & НомерПл) = Дата
Worksheets(№ПЛ).Range("I" & НомерПл) = ДатаУслуг
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