VBA Платежка
Информация - Экономика
Другие материалы по предмету Экономика
ws("Платёжка.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) = Банк
Workshee