Реферат: VBA Платежка

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