Банк = (Worksheets(№ПЛ).Range("B" & (ComboBox1.ListIndex + 1)))
Клиент = (Worksheets(№ПЛ).Range("A" & (ComboBox1.ListIndex + 1)))
КодБанка = (Worksheets(№ПЛ).Range("D" & (ComboBox1.ListIndex + 1)))
УНН = (Worksheets(№ПЛ).Range("E" & (ComboBox1.ListIndex + 1)))
ВидОперации = Worksheets(№ПЛ).Range("f" & (ComboBox1.ListIndex + 1))
НазначПлатежа1 = Worksheets(№ПЛ).Range("g" & (ComboBox1.ListIndex + 1))
НомНазПл = Worksheets(№ПЛ).Range("H" & (ComboBox1.ListIndex + 1))
Else
Windows("Клиенты" & Year(Date)).Activate
Счёт = (Worksheets(№ПЛ).Range("C" & (ComboBox1.ListIndex + 1)))
Банк = (Worksheets(№ПЛ).Range("B" & (ComboBox1.ListIndex + 1)))
Клиент = (Worksheets(№ПЛ).Range("A" & (ComboBox1.ListIndex + 1)))
КодБанка = (Worksheets(№ПЛ).Range("D" & (ComboBox1.ListIndex + 1)))
УНН = (Worksheets(№ПЛ).Range("E" & (ComboBox1.ListIndex + 1)))
ВидОперации = Worksheets(№ПЛ).Range("f" & (ComboBox1.ListIndex + 1))
НазначПлатежа1 = Worksheets(№ПЛ).Range("g" & (ComboBox1.ListIndex + 1))
НомНазПл = Worksheets(№ПЛ).Range("H" & (ComboBox1.ListIndex + 1))
End If
End Sub
Private Sub Выход_Click()
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 UserForm_Activate()
Windows("Платёжка.xls").Activate
Платящий = "Текущий Плательщик : " & Worksheets("Лист1").Range("E7") & _
" УНН : " & Worksheets("Лист1").Range("C7") & _
" P/c : " & Worksheets("Лист1").Range("Q8") & _
" Банк : " & Worksheets("Лист1").Range("D8") & _
" Код Банка : " & Worksheets("Лист1").Range("P9")
№ПЛ = Worksheets("Лист1").Range("A1")
Windows("Клиенты" & Year(Date)).Activate
ComboBox1.Clear
МП = True
X = 1
Год = Year(Date)
While Len(Worksheets(№ПЛ).Range("A" & X)) <> 0
ComboBox1.AddItem (Worksheets(№ПЛ).Range("A" & X))
X = X + 1
Wend
End Sub
Private Sub ЗаПрошлыйГод_Click()
If Dir("C:\Program Files\Платёжка\Платёжки" & (Year(Date) - 1) & ".xls") = _
"Платёжки" & (Year(Date) - 1) & ".xls" Then
Workbooks.Open FileName:="C:\Program Files\Платёжка\Платёжки" & (Year(Date) - 1)
Windows("Платёжки" & (Year(Date) - 1)).Activate
Worksheets(№ПЛ).Select
Год = Year(Date) - 1
Else
БОКС = MsgBox("За прошлый год файл отчёта не найден", , BOX)
Exit Sub
End If
Вконец = True
End Sub
Private Sub Плательщики_Click()
UserForm1.Hide
UserForm3.Show
End Sub
Private Sub Отчёты_Click()
UserForm1.Hide
UserForm2.Show
End Sub
Private Sub Минус_Click() ' отнимает 1 день от даты
If IsDate(Дата) = True Then
Дата = CDate(Дата) - 1
Else
End If
End Sub
Private Sub Плюс_Click() ' прибавляет один день к дате
If IsDate(Дата) = True Then
Дата = CDate(Дата) + 1
Else
End If
End Sub
Private Sub Предосмотр_Click() ' активизирует окно просмотра Excel
Windows("Платёжка.xls").Activate
Application.Visible = True
UserForm1.Hide
ActiveWindow.SelectedSheets.PrintPreview
Application.Visible = False
UserForm1.Show
End Sub
Private Sub UserForm_Initialize()
If Dir("C:\Program Files\Платёжка\Клиенты" & Year(Date) & ".xls") <> _
"Клиенты" & Year(Date) & ".xls" Then
Workbooks.Open FileName:="C:\Program Files\Платёжка\Клиенты" & (Year(Date) - 1)
Windows("Клиенты" & (Year(Date) - 1)).Activate
ActiveWorkbook.SaveAs FileName:="C:\Program Files\Платёжка\Клиенты" & Year(Date)
Workbooks.Open FileName:="C:\Program Files\Платёжка\Платёжки" & (Year(Date) - 1)
Windows("Платёжки" & (Year(Date) - 1)).Activate
ActiveWorkbook.SaveAs FileName:="C:\Program Files\Платёжка\Платёжки" & Year(Date)
Workbooks.Open FileName:="C:\Program Files\Платёжка\Плательщики.xls"
Windows("Плательщики.xls").Activate
X = 1
Do While Len(Worksheets("Лист1").Range("A" & X)) <> 0
X = X + 1
Loop
X = X - 1
Do While X <> 0
Windows("Клиенты" & Year(Date)).Activate
Worksheets(CStr(X)).Select
Worksheets(CStr(X)).Range("L1:L65535").Select
Selection.ClearContents
Windows("Платёжки" & Year(Date)).Activate
Worksheets(CStr(X)).Select
Worksheets(CStr(X)).Columns("A:AG").Select
Selection.ClearContents
X = X - 1
Loop
Windows("Клиенты" & Year(Date)).Activate
ActiveWorkbook.Save
Windows("Платёжки" & Year(Date)).Activate
ActiveWorkbook.Save
Workbooks.Open FileName:="C:\Program Files\Платёжка\Платёжка.xls"
Windows("Плательщики.xls").Activate
Worksheets("Года").Select
X = 1
While Len(Worksheets("Года").Range("A" & X)) <> 0
X = X + 1
Wend
'Worksheets("Года").Range("A" & X) = CStr((Year(Date) - 1))
Worksheets("Года").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" & НомерПл) = Клиент