VBA Платежка
Информация - Экономика
Другие материалы по предмету Экономика
ент = ""
КодБанка = ""
УНН = ""
ВидОперации = ""
НазначПлатежа1 = ""
НомНазПл = ""
НомерПл = ""
Деньги = ""
ДатаУслуг = ""
End If
End Sub
Private Sub Вконец_Click()
Windows("Платёжки" & Год).Activate
X = 1
While Len(Worksheets(№ПЛ).Range("A" & (X))) <> 0
X = X + 1
Wend
Счётчик.Value = X - 1
End Sub
Private Sub ПоНомеру_Click()
If Len(номерСТПЛ) = 0 Then
БОКС = MsgBox("Вы забыли ввести номер платёжки", , BOX)
номерСТПЛ.SetFocus
Exit Sub
ElseIf номерСТПЛ > 0 And номерСТПЛ < 65501 Then
Счётчик.Value = номерСТПЛ
номерСТПЛ = ""
номерСТПЛ.SetFocus
Else
Вконец = True
БОКС = MsgBox("Был введён № несуществующей платёжки... Поэтому выполнен переход к концу списка платёжек ", , BOX)
номерСТПЛ.SetFocus
Exit Sub
End If
If Len(НомерПл) = 0 Then
Вконец = True
БОКС = MsgBox("Был введён № несуществующей платёжки... Поэтому выполнен переход к концу списка платёжек ", , BOX)
номерСТПЛ.SetFocus
Else
End If
End Sub
Private Function TRIMF()
Клиент = TRIM(Клиент)
Банк = TRIM(Банк)
Счёт = TRIM(Счёт)
КодБанка = TRIM(КодБанка)
Счёт = TRIM(Счёт)
КодБанка = TRIM(КодБанка)
УНН = TRIM(УНН)
ВидОперации = TRIM(ВидОперации)
НомНазПл = TRIM(НомНазПл)
Дата = TRIM(Дата)
ДатаУслуг = TRIM(ДатаУслуг)
НазначПлатежа1 = TRIM(НазначПлатежа1)
Деньги = TRIM(Деньги)
End Function
Private Function Проверка() As String
TRIMF
If ПроверкаОБЩ = False Then
Проверка = False
Exit Function
Else
Проверка = True
End If
End Function
Private Function ПроверкаПЛ() As String
TRIMF
If ПроверкаОБЩ = False Then
ПроверкаПЛ = False
Exit Function
Else
End If
If Len(НазначПлатежа1) = 0 Then
MsgBox "Извините но в Строке Введите Назначение Платежа пусто"
НазначПлатежа1.SetFocus
ПроверкаПЛ = False
Exit Function
ElseIf IsDate(Дата) = False Then
MsgBox "Извините но в Строке Дата ошибка или Вы забыли её ввести"
Дата.SetFocus
ПроверкаПЛ = False
Exit Function
ElseIf Len(Деньги) = 0 Or Деньги = "0" Then
БОКС = MsgBox("Извините но в Строке Введите Сумму пусто", , BOX)
Деньги.SetFocus
Деньги = ""
ПроверкаПЛ = False
Exit Function
Else
ПроверкаПЛ = True
End If
End Function
Private Function ПроверкаОБЩ() As String
If Len(Клиент) = 0 Then
БОКС = MsgBox("Извините но в Строке Наименование Клиента пусто", , BOX)
Клиент.SetFocus
ПроверкаОБЩ = False
Exit Function
ElseIf Len(Банк) = 0 Then
БОКС = MsgBox("Извините но в Строке Банк Клиента пусто", , BOX)
Банк.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
If МП = True Then
МП1 = "М/П"
ElseIf БП = True Then
МП1 = "Б/П"
ElseIf БезПечати = True Then
МП1 = ""
End If
End Function
Private Function МестоПечати1() As String
If Worksheets(№ПЛ).Range("M" & Счётчик) = "М/П" Then
МП = True
ElseIf Worksheets(№П?/p>