Предыдущая страница реферата | 28  29  30  31  32  33  34  35  36  37  38 | Следующая страница реферата

Cells(n + 2; 1).Font.Bold = True

Cells(n + 3; 1).Font.Bold = True

Cells(n + 5; 1).Font.Size = 12

Cells(n + 5; 1) = "Ответственное лицо Дилера " + _

"
_________________________ "

Cells(n + 3; BumNum + 1) = 0

Cells(n + 3; BumNum + 1).Font.Bold = True

If DialogPrint("ОтчетНедельный"; 2) Then Exit Sub

End Sub

'-------------------------------- Печать Отчеты Месячные -----------

Sub PrintOtchMonth()

Dim DateBegin; DateEnd; DateMas() As Date

Dim i; k; m; NumberClients; kk As Long

Dim Sign; BumNum; Row; Col; Num; sum As Integer

Dim DateFlag; Flag; CliInput(); BumInput() As Boolean

Dim Bum(ConstMaxBum) As Long

Dim mas() As Integer

Dim Sheet As Object

Dim Str As String

With DialogSheets("ДиалогМесОтчет")

.EditBoxes(1).InputType = xlDate

.EditBoxes(2).InputType = xlDate

.Show

If Not Button Then Exit Sub

If IsDate(.EditBoxes(1).Text) = False Or _

IsDate(.EditBoxes(2).Text) = False Then

MsgBox "Неверно введены даты"

Exit Sub

End If

DateBegin = CDate(.EditBoxes(1).Text)

DateEnd = CDate(.EditBoxes(2).Text)

If DateBegin >= DateEnd Then

MsgBox "Даты не пересекаются"

Exit Sub

End If

End With

Set Sheet = Worksheets("Бумаги") i = 2

BumNum = 0

While Sheet.Cells(i; 1) Empty

If (Sheet.Cells(i; 2) < DateBegin And Sheet.Cells(i; 3) > DateBegin)
Or _

(Sheet.Cells(i; 2) < DateEnd And Sheet.Cells(i; 3) > DateEnd) Or
_

(Sheet.Cells(i; 2) > DateBegin And Sheet.Cells(i; 3) < DateEnd)
Then

Bum(BumNum + 1) = Sheet.Cells(i; 1)

BumNum = BumNum + 1

End If i = i + 1

Wend

Set Sheet = Worksheets("Клиенты") i = 2 k = 0

While Sheet.Cells(i; 1) Empty

If Sheet.Cells(i; 2) > k And Sheet.Cells(i; 2) FilialConst Then k = Sheet.Cells(i; 2)

End If i = i + 1

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



Предыдущая страница реферата | 28  29  30  31  32  33  34  35  36  37  38 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки