VBA Платежка

ts("Года").Range("A" & X) = CStr(Year(Date)) ActiveWorkbook.Save Else Workbooks.Open FileName:="C:\Program Files\Платёжка\Клиенты" & Year(Date) Workbooks.Open FileName:="C:\Program Files\Платёжка\Платёжки" & Year(Date) Workbooks.Open FileName:="C:\Program Files\Платёжка\Платёжка.xls" Workbooks.Open FileName:="C:\Program Files\Платёжка\Плательщики.xls" End If

Год = Year(Date) Счётчик2.List = Array(1, 2, 3) Счётчик2 = 1 Дата = Date МП = True ComboBox1.Visible = True НомерПл.Visible = False Label1.Visible = True Создать.Visible = False Label14.Visible = False Счётчик.Visible = False КСтарПл.Visible = False Предосмотр.Visible = False Счётчик2.Visible = False ИзмененияСТ.Visible = False Вконец.Visible = False номерСТПЛ.Visible = False ПоНомеру.Visible = False ЗаПрошлыйГод.Visible = False Сегодня.Caption = "Сегодня : " & Date BOX = "Платёжка" Windows("Платёжка.xls").Activate №ПЛ = Worksheets("Лист1").Range("a1") Windows("Клиенты" & Year(Date)).Activate X = 1 While Len(Worksheets(№ПЛ).Range("A" & X)) <> 0 ComboBox1.AddItem (Worksheets(№ПЛ).Range("A" & X)) X = X + 1 Wend End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Windows("Платёжки" & Year(Date)).Activate ActiveWorkbook.Save ActiveWindow.Close Windows("Клиенты" & Year(Date)).Activate ActiveWorkbook.Save ActiveWindow.Close Windows("Платёжка.xls").Activate ActiveWorkbook.Save ActiveWindow.Close Application.Quit 'ActiveWorkbook.RunAutoMacros Which:=xlAutoClose End Sub

Private Sub Измениния_Click() Windows("Клиенты" & Year(Date)).Activate If Проверка = False Then ' Проверка на правильность ' функция находится в конце программы Exit Sub ' введённой информац Else ' функция находится в конце программы End If X = 1 Do While X < ComboBox1.ListCount + 1 If Клиент = Worksheets(№ПЛ).Range("A" & X) _ And Банк = Worksheets(№ПЛ).Range("b" & X) _ And Счёт = Worksheets(№ПЛ).Range("c" & X) _ And КодБанка = Worksheets(№ПЛ).Range("d" & X) _ And УНН = Worksheets(№ПЛ).Range("e" & X) _ And ВидОперации = Worksheets(№ПЛ).Range("f" & X) _ And НомНазПл = Worksheets(№ПЛ).Range("H" & X) _ And НазначПлатежа1 = Worksheets(№ПЛ).Range("g" & ComboBox1.ListIndex + 1) _ Then БОКС = MsgBox("Извените но : " & Клиент & " уже есть в списке Получателей." _ & Chr(10) & "Попробуйте выбрать Получателя из списка.", , BOX) Exit Sub Else X = X + 1 End If Loop

Worksheets(№ПЛ).Range("A" & (ComboBox1.ListIndex + 1)) = Клиент Worksheets(№ПЛ).Range("b" & (ComboBox1.ListIndex + 1)) = Банк Worksheets(№ПЛ).Range("c" & (ComboBox1.ListIndex + 1)) = Счёт Worksheets(№ПЛ).Range("d" & (ComboBox1.ListIndex + 1)) = КодБанка Worksheets(№ПЛ).Range("e" & (ComboBox1.ListIndex + 1)) = УНН Worksheets(№ПЛ).Range("f" & (ComboBox1.ListIndex + 1)) = ВидОперации Worksheets(№ПЛ).Range("g" & (ComboBox1.ListIndex + 1)) = НазначПлатежа1 Worksheets(№ПЛ).Range("H" & (ComboBox1.ListIndex + 1)) = НомНазПл ActiveWorkbook.Save БОКС = MsgBox("Изменения в данные о Клиенте : " & Клиент & " успешно внесёны в список клиентов", , BOX) Клиент.SetFocus End Sub Private Sub ДобавитьПол_Click() Windows("Клиенты" & Year(Date)).Activate If Проверка = False Then ' Проверка на правильность ' функция находится в конце программы Exit Sub ' введённой информац Else ' функция находится в конце программы End If X = 1 Do While X < ComboBox1.ListCount + 1 If Клиент = Worksheets(№ПЛ).Range("A" & X) _ And Банк = Worksheets(№ПЛ).Range("b" & X) _ And Счёт = Worksheets(№ПЛ).Range("c" & X) _ And КодБанка = Worksheets(№ПЛ).Range("d" & X) _ And УНН = Worksheets(№ПЛ).Range("e" & X) _ And ВидОперации = Worksheets(№ПЛ).Range("f" & X) _ And НомНазПл = Worksheets(№ПЛ).Range("H" & X) _ Then БОКС = MsgBox("Извените но : " & Клиент & " уже есть в списке Получателей." _ & Chr(10) & "Попробуйте выбрать Получателя из списка.", , BOX) Exit Sub Else X = X + 1 End If Loop

X = 1 While Len(Worksheets(№ПЛ).Range("A" & X)) <> 0 X = X + 1 Wend Worksheets(№ПЛ).Range("A" & X) = Клиент Worksheets(№ПЛ).Range("b" & X) = Банк Worksheets(№ПЛ).Range("c" & X) = Счёт Worksheets(№ПЛ).Range("d" & X) = КодБанка Worksheets(№ПЛ).Range("e" & X) = УНН Worksheets(№ПЛ).Range("f" & X) = ВидОперации Worksheets(№ПЛ).Range("g" & X) = НазначПлатежа1 Worksheets(№ПЛ).Range("H" & X) = НомНазПл ComboBox1.Visible = True ComboBox1.AddItem (Worksheets(№ПЛ).Range("A" & (ComboBox1.ListCount + 1))) ComboBox1.ListIndex = X - 1 ActiveWorkbook.Save БОКС = MsgBox("Новый Клиент : " & Клиент & " внесён в список клиентов", , BOX) Клиент.SetFocus

End Sub

Private Sub КСтарПл_Click() Windows("Платёжка.xls").Activate If Len(НомерПл) = 0 Then БОКС = MsgBox("Вы не выбрали платёжку...", , BOX) Exit Sub Else End If

If ПроверкаПЛ = False Then ' Проверка на правильность Exit Sub ' введённой информации Else ' функция находится в конце программы End If

Вплатёжку 'функция сохраняющая данные в платёжке ActiveWorkbook.Save Windows("Платёжки" & Year(Date)).Activate Worksheets(№ПЛ).Range("A" & НомерПл) = НомерПл Worksheets(№ПЛ).Range("c" & НомерПл) = Банк Worksheets(№ПЛ).Range("d" & НомерПл) = Счёт Worksheets(№ПЛ).Range("b" & НомерПл) = Клиент 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 Windows("Платёжки" & Год).Activate Worksheets(№ПЛ).Range("A" & НомерПл) = НомерПл Worksheets(№ПЛ).Range("c" & НомерПл) = Банк Worksheets(№ПЛ).Range("d" & НомерПл) = Счёт Worksheets(№ПЛ).Range("b" & НомерПл) = Клиент Worksheets(№ПЛ).Range("e" & НомерПл) = КодБанка Worksheets(№ПЛ).Range("f" & НомерПл) = УНН Worksheets(№ПЛ).Range("g" & НомерПл) = CDbl(Деньги) Worksheets(№ПЛ).Range("h" & НомерПл) = Дата Worksheets(№ПЛ).Range("I" & НомерПл) = ДатаУслуг Worksheets(№ПЛ).Range("J" & НомерПл) = ВидОперации Worksheets(№ПЛ).Range("K" & НомерПл) = НазначПлатежа1 Worksheets(№ПЛ).Range("L" & НомерПл) = НомНазПл Worksheets(№ПЛ).Range("M" & НомерПл) = МП1 ActiveWorkbook.Save БОКС = MsgBox("Изменения в платёжку