Предыдущая страница реферата | 13  14  15  16  17  18  19  20  21  22  23 | Следующая страница реферата

Банк.SetFocus
ПроверкаОБЩ = False

Exit Function
ElseIf Len(Счёт) = 0 Then

БОКС = MsgBox("Извините но в Строке Р/с Клиента пусто", , BOX)

Счёт.SetFocus
ПроверкаОБЩ = False

Exit Function
ElseIf Len(КодБанка) = 0 Then

БОКС = MsgBox("Извините но в Строке Код Банка Клиента пусто", , BOX)

КодБанка.SetFocus
ПроверкаОБЩ = False

Exit Function

Else
ПроверкаОБЩ = True

End If
End Function
Private Sub Счёт_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (Not (Chr(KeyAscii) Like "[0-9]")) Then KeyAscii = 0
End Sub
Private Sub Деньги_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (Not (Chr(KeyAscii) Like "[0-9]")) Then KeyAscii = 0
If Mid(Деньги, 1, 1) = "0" Then

Деньги = ""
Else
End If
End Sub
Private Sub КодБанка_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (Not (Chr(KeyAscii) Like "[0-9]")) Then KeyAscii = 0
End Sub
Private Sub УНН_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (Not (Chr(KeyAscii) Like "[0-9]")) Then KeyAscii = 0
End Sub
Private Sub ВидОперации_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (Not (Chr(KeyAscii) Like "[0-9]")) Then KeyAscii = 0
End Sub
Private Sub НомНазПл_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (Not (Chr(KeyAscii) Like "[0-9]")) Then KeyAscii = 0
End Sub
Private Sub НомерСТПЛ_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (Not (Chr(KeyAscii) Like "[0-9]")) Then KeyAscii = 0
End Sub

Private Function Впечать() As String
Sheets("Лист1").Select
If Счётчик2 = 1 Then

ActiveWorkbook.Save

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

ElseIf Счётчик2 = 2 Then

Range("A1:W28").Select

Selection.Copy

Range("A29").Select

ActiveSheet.Paste

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Rows("29:80").Select

Selection.Delete Shift:=xlUp

ActiveWorkbook.Save

ElseIf Счётчик2 = 3 Then

Range("A1:W28").Select

Selection.Copy

Range("A29").Select

ActiveSheet.Paste

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Rows("29:80").Select
Selection.Delete Shift:=xlUp

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

ActiveWorkbook.Save

End If
End Function
Private Function Вплатёжку() As String

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

Дата = Format(Дата, "Short Date")

Worksheets("Лист1").Range("D13") = Банк

Worksheets("Лист1").Range("Q11") = Счёт

Worksheets("Лист1").Range("E12") = Клиент

Worksheets("Лист1").Range("P14") = КодБанка

Worksheets("Лист1").Range("C12") = УНН

Worksheets("Лист1").Range("T7") = (Деньги & "=")

Worksheets("Лист1").Range("G4") = Format(Дата, "d mmmm yyyy")

Worksheets("Лист1").Range("L19") = ДатаУслуг

Worksheets("Лист1").Range("V19") = ВидОперации

Worksheets("Лист1").Range("B22") = НазначПлатежа1

Worksheets("Лист1").Range("O2") = НомерПл

Worksheets("Лист1").Range("V20") = НомНазПл

МестоПечати 'Функция работающая с параметрами места печати в платёжке

Worksheets("Лист1").Range("C27") = МП1
End Function

Private Function МестоПечати() As String

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



Предыдущая страница реферата | 13  14  15  16  17  18  19  20  21  22  23 | Следующая страница реферата

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