VBA Платежка

oBox1.ListIndex = -1 Then Exit Sub Else Windows("Клиенты" & Year(Date)).Activate Worksheets(№ПЛ).Select Rows(ComboBox1.ListIndex + 1).Select Selection.Delete Shift:=xlUp 'Удаляем запись о клиенте a = ComboBox1 ComboBox1.RemoveItem (ComboBox1.ListIndex) ActiveWorkbook.Save БОКС = MsgBox("Вы удалили Получателя : " & a, , BOX) ComboBox1.ListIndex = -1 Счёт = "" Банк = "" Клиент = "" КодБанка = "" УНН = "" ВидОперации = "" НазначПлатежа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(№ПЛ).Range("M" & Счётчик) = "Б/П" Then БП = True ElseIf Worksheets(№ПЛ).Range("M" & Счётчик) = "" Then БезПечати = True End If End Function