Предыдущая страница реферата | 19  20  21  22  23  24  25  26  27  28  29 | Следующая страница реферата

If Sheet.Cells(i; 4) Empty Then

Cells(m; 4) = Sheet.Cells(i; 4)

Else

Cells(m; 4) = Sheet.Cells(i; 5)

End If

Cells(m; 4).NumberFormat = "0,00"

Cells(m; 5) = Sheet.Cells(i; 6) m = m + 1

If CliNum Sheet.Cells(i + 1; 2) Or Sheet.Cells(i + 1; 1)
CurDate Then s = 0

Col = 0

For a = MM To m - 1

Cells(a; 6) = Cells(a; 4) * Cells(a; 5) * 10

If Cells(a; 4) 100 Then

SumCom = SumCom + Cells(a; 4) * Cells(a; 5) * 10

ComBirga = ComBirga + _

CDbl(Format(Cells(a; 4) * Cells(a; 5) * 0,1 *
Worksheets("Инфо").Cells(1; 2) + 0,001; "0,00"))

Else

Погашение = True

End If

Cells(a; 6).NumberFormat = "# ###,00" s = s + Cells(a; 6)

Col = Col + Cells(a; 5)

Next a sum = sum + s

If FlagCell Then SumBuy = s

Cells(m; 6) = s

Cells(m; 6).NumberFormat = "# ###,00"

Cells(m; 5) = Col

Cells(m; 2) = "Итого"

Cells(5; 4) = CliNum

If CliNum = FilialConst Then Cells(5; 4) = DilerConst k = 2

While Worksheets("Клиенты").Cells(k; 1) Empty

If Worksheets("Клиенты").Cells(k; 2) = CliNum Then

Cells(4; 4) = Worksheets("Клиенты").Cells(k; 1)

End If k = k + 1

Wend

Range(Cells(NN - 1; 2); Cells(m; 6)).Borders(xlLeft).Weight = xlThin

Range(Cells(NN - 1; 2); Cells(m; 6)).Borders(xlRight).Weight = xlThin

Range(Cells(NN - 1; 2); Cells(m; 6)).Borders(xlTop).Weight = xlThin

Range(Cells(NN - 1; 2); Cells(m; 6)).Borders(xlBottom).Weight = xlThin

Range(Cells(NN - 1; 2); Cells(m; 6)).BorderAround
Weight:=xlMedium

For b = 1 To BumNum

BumArray(b) = 0

BumArrayV(b) = 0

Next b = 2

While Worksheets("Сделки").Cells(b; 1) Empty

If CurDate >= Worksheets("Сделки").Cells(b; 1) And _

CliNum = Worksheets("Сделки").Cells(b; 2) Then z = 0

For z1 = 1 To BumNum

If Worksheets("Врем").Cells(z1; 1) =
Worksheets("Сделки").Cells(b; 3) Then z = z1

Exit For

End If

Next

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



Предыдущая страница реферата | 19  20  21  22  23  24  25  26  27  28  29 | Следующая страница реферата

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