VBA Платежка

вид операции. Допускаются только цифровые значения." End Sub

Private Sub НомНазПл_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Label16.Caption = "НЕ обязательное поле. В это поле вносят число отражающее код назначения платежа. Допускаются только цифровые значения." End Sub

Private Sub Деньги_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Label16.Caption = "Обязательное поле. В это поле вносят сумму платежа. Допускаются только цифровые значения." End Sub

Private Sub Минус_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Label16.Caption = "Отнимает один день от текущей даты." End Sub

Private Sub Плюс_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Label16.Caption = "Добавляет один день к текущей дате." End Sub

Private Sub СохранитьНов_Click() If Year(Дата) <> Year(Date) Then БОКС = MsgBox("Извините но в строке 'Дата' ошибка. Укажите текущий Год", , BOX) Дата.SetFocus Exit Sub End If Windows("Платёжка.xls").Activate If ПроверкаПЛ = False Then ' Проверка на правильность Exit Sub ' введённой информации Else ' функция находится в конце программы End If If ComboBox1.ListIndex = -1 Then БОКС = MsgBox("Извините но Вы забыли внести Получателя : " & Клиент & " в список Получателей ", , BOX) Exit Sub Else End If

Windows("Клиенты" & Year(Date)).Activate If Клиент <> ComboBox1 _ Or Счёт <> Worksheets(№ПЛ).Range("c" & ComboBox1.ListIndex + 1) _ Or Банк <> Worksheets(№ПЛ).Range("b" & ComboBox1.ListIndex + 1) _ Or КодБанка <> Worksheets(№ПЛ).Range("d" & ComboBox1.ListIndex + 1) _ Or УНН <> Worksheets(№ПЛ).Range("e" & ComboBox1.ListIndex + 1) _ Or ВидОперации <> Worksheets(№ПЛ).Range("f" & ComboBox1.ListIndex + 1) _ Or НомНазПл <> Worksheets(№ПЛ).Range("H" & ComboBox1.ListIndex + 1) _ Then БОКС = MsgBox("Извините но Вы забыли внести Получателя : " & Клиент & " в список Получателей ", , BOX) Exit Sub Else End If Счётчик2.Visible = True Предосмотр.Visible = True Вплатёжку 'функция сохраняющая данные в платёжке ActiveWorkbook.Save Windows("Платёжки" & Year(Date)).Activate СохранитьНов.Visible = False Создать.Visible = True

X = 1 While Len(Worksheets(№ПЛ).Range("A" & X)) <> 0 X = X + 1 Wend Worksheets(№ПЛ).Select Range("A" & X).Select Selection.NumberFormat = "#,##0" Worksheets(№ПЛ).Range("A" & X) = X Range("g" & X).Select Selection.NumberFormat = "#,##0" Worksheets(№ПЛ).Range("g" & X) = CDbl(Деньги) Worksheets(№ПЛ).Range("c" & X) = Банк Worksheets(№ПЛ).Range("d" & X) = Счёт Worksheets(№ПЛ).Range("b" & X) = Клиент Worksheets(№ПЛ).Range("e" & X) = КодБанка Worksheets(№ПЛ).Range("f" & X) = УНН Worksheets(№ПЛ).Range("h" & X) = Дата Worksheets(№ПЛ).Range("I" & X) = ДатаУслуг Worksheets(№ПЛ).Range("J" & X) = ВидОперации Worksheets(№ПЛ).Range("K" & X) = НазначПлатежа1 Worksheets(№ПЛ).Range("L" & X) = НомНазПл Worksheets(№ПЛ).Range("M" & X) = МП1

Windows("Платёжка.xls").Activate Worksheets("Лист1").Range("O2") = X

Windows("Клиенты" & Year(Date)).Activate Worksheets(№ПЛ).Range("L" & ComboBox1.ListIndex + 1).NumberFormat = "@"

Worksheets(№ПЛ).Range("L" & ComboBox1.ListIndex + 1) = _ Worksheets(№ПЛ).Range("L" & ComboBox1.ListIndex + 1) + "" & X & "." ActiveWorkbook.Save Windows("Платёжки" & Year(Date)).Activate ActiveWorkbook.Save End Sub

Private Sub СтарыеПл_Click() If СтарыеПл.Value = True Then ComboBox1.Visible = False НомерПл.Visible = True Label1.Visible = False Label14.Visible = True Счётчик.Visible = True Счётчик.SetFocus КСтарПл.Visible = True Создать.Visible = False Измениния.Visible = False ДобавитьПол.Visible = False УбитьКлиента.Visible = False СохранитьНов.Visible = False ЗаПрошлыйГод.Visible = True Счётчик2.Visible = True Предосмотр.Visible = True ИзмененияСТ.Visible = True Вконец.Visible = True номерСТПЛ.Visible = True ПоНомеру.Visible = True СтарыеПл.Caption = "Вернуться к созданию платёжек"

Счётчик = 0 Счёт = "" Банк = "" Клиент = "" КодБанка = "" УНН = "" ВидОперации = "" НазначПлатежа1 = "" НомНазПл = "" НомерПл = "" Дата = "" Деньги = "" ДатаУслуг = ""

Else If Год <> Year(Date) Then Windows("Платёжки" & Год).Activate ActiveWindow.Close Год = Year(Date) Else End If Дата = Date Счёт = "" Банк = "" Клиент = "" КодБанка = "" УНН = "" ВидОперации = "" НазначПлатежа1 = "" НомНазПл = "" Деньги = "" ДатаУслуг = "" ComboBox1.ListIndex = True НомерПл.Visible = False Label1.Visible = True Label14.Visible = False Счётчик.Visible = False КСтарПл.Visible = False Измениния.Visible = True ДобавитьПол.Visible = True УбитьКлиента.Visible = True СохранитьНов.Visible = True ЗаПрошлыйГод.Visible = False ComboBox1.Visible = True Счётчик2.Visible = False Предосмотр.Visible = False ИзмененияСТ.Visible = False Вконец.Visible = False номерСТПЛ.Visible = False ПоНомеру.Visible = False СтарыеПл.Caption = "Посмотреть старые платёжки" End If End Sub

Private Sub Создать_Click() Windows("Платёжка.xls").Activate Впечать 'функция печати Создать.Visible = False Счётчик2.Visible = False End Sub

Private Sub Счётчик_Change() Windows("Платёжки" & Год).Activate If Счётчик = 0 Then Exit Sub Else Клиент = Worksheets(№ПЛ).Range("B" & Счётчик) Счёт = Worksheets(№ПЛ).Range("D" & (Счётчик)) Банк = Worksheets(№ПЛ).Range("C" & (Счётчик)) НомерПл = Worksheets(№ПЛ).Range("A" & (Счётчик)) КодБанка = Worksheets(№ПЛ).Range("E" & (Счётчик)) УНН = Worksheets(№ПЛ).Range("F" & (Счётчик)) Деньги = Worksheets(№ПЛ).Range("g" & Счётчик) ДатаУслуг = Worksheets(№ПЛ).Range("I" & Счётчик) ВидОперации = Worksheets(№ПЛ).Range("J" & Счётчик) НазначПлатежа1 = Worksheets(№ПЛ).Range("K" & Счётчик) НомНазПл = Worksheets(№ПЛ).Range("L" & Счётчик) Дата = Worksheets(№ПЛ).Range("h" & Счётчик) МестоПечати1 'функция работающая с МП,БП, БезПечати 'задаёт значения этим компонентам Windows("Платёжка.xls").Activate Вплатёжку 'функция сохраняющая данные в платёжке End If End Sub

Private Sub УбитьКлиента_Click() Windows("Клиенты" & Year(Date)).Activate If Len(ComboBox1) = 0 Then БОКС = MsgBox("Вы не выбрали не одного Получателя для удаления...", , BOX) Exit Sub 'ElseIf ComboBox1.ListIndex = -1 Then End If Dim a a = ComboBox1 БОКС = MsgBox("Вы действительно хотите удалить Получателя : " & a, vbYesNo, BOX) If БОКС <> vbYes Then Exit Sub ElseIf Len(Worksheets(№ПЛ).Range("L" & ComboBox1.ListIndex + 1)) <> 0 Then БОКС = MsgBox("Извините, но Вы не можете удалить Получателя : " & a _ & Chr(10) & "так-как по нему производились платежи. " _ & Chr(10) & "Удалить этого Получателя Будет можно лишь УДАЛИВ ПЛАТЕЛЬЩИКА !!! " _ & Chr(10) & "В форме ПЛАТЕЛЬЩИКИ !!!" & Chr(10) & Chr(10) & _ Платящий, vbCritical, BOX) Exit Sub End If If Comb