Предыдущая страница реферата | 5  6  7  8  9  10  11  12  13  14  15 | Следующая страница реферата

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) _

Рекомендуем скачать другие рефераты по теме: доклад по биологии, шпоры.





Предыдущая страница реферата | 5  6  7  8  9  10  11  12  13  14  15 | Следующая страница реферата