VBA Платежка
| Категория реферата: Рефераты по экономико-математическому моделированию
| Теги реферата: реферат машины, рефераты бесплатно скачать
| Добавил(а) на сайт: Konrad.
Предыдущая страница реферата | 13 14 15 16 17 18 19 20 21 22 23 | Следующая страница реферата
If МП = True Then
МП1 = "М/П"
ElseIf БП = True Then
МП1 = "Б/П"
ElseIf БезПечати = True Then
МП1 = ""
End If
End Function
Private Function МестоПечати1() As String
If Worksheets(№ПЛ).Range("M" & Счётчик) = "М/П" Then
МП = True
ElseIf Worksheets(№ПЛ).Range("M" & Счётчик) = "Б/П" Then
БП = True
ElseIf Worksheets(№ПЛ).Range("M" & Счётчик) = "" Then
БезПечати = True
End If
End Function
-----------------------
Продолжение на стр. 14
Продолжение на стр. 13
конец
Windows("Платёжки" & ГодАктивПл).Activate
Worksheets("Лист2").Range("a1") = Список
Worksheets("Лист2").Range("b" & (Y + 2)) = "Итого:"
Worksheets("Лист2").Range("c" & (Y + 2)) = Сумма
Range("A3:I" & Y + 1).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
††††?????????????†††††?????††?????????????????††††????? .LineStyle =
xlContinuous
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
End With
'ActiveWorkbook.Save
Range("A1").Select
Мас = Сумма & " рублей."
Просмотр.Enabled = True
Печать.Enabled = True
Счётчик.Enabled = True
Windows("Клиенты" & ГодАктивПл).Activate
Label4.Caption = "Отчёт по Получателю : " & Список _
& ", Р/С: " & Worksheets(PP).Range("c" & Список.ListIndex + 1) _
& ", Банк: " & Worksheets(PP).Range("b" & Список.ListIndex + 1) _
& ", Код Банк: " & Worksheets(PP).Range("d" & Список.ListIndex + 1) _
& " сформирован." _
& " Всего было за выбранный период " & Сумма2 & " платёжек."
Windows("Платёжки" & ГодАктивПл).Activate
X = X + 1
Loop
Сумма = Сумма + S
Сумма2 = Сумма2 + 1
Столбец
да
нет
If (R1 = Пянварь & Год) Or (R1 = Пфевраль & Год) Or (R1 = Пмарт & Год) _
Or (R1 = Папрель & Год) Or (R1 = Пмай & Год) Or (R1 = Пиюнь & Год) _
Or (R1 = Пиюль & Год) Or (R1 = Павгуст & Год) Or (R1 = Псентябрь & Год) _
Or (R1 = Поктябрь & Год) Or (R1 = Пноябрь & Год) Or (R1 = Пдекабрь & Год)
Then
Windows("Платёжки" & ГодАктивПл).Activate
N = Worksheets(PP).Cells(XX, 1)
D = Worksheets(PP).Cells(XX, 8)
S = Worksheets(PP).Cells(XX, 7)
K = Worksheets(PP).Cells(XX, 12)
R1 = Month(D) & Year(D)
Exit Do
нет
да
Len(XX) = 0
XX = dhExtractString(SS, X, ".")
Рекомендуем скачать другие рефераты по теме: доклад по биологии, шпоры.
Категории:
Предыдущая страница реферата | 13 14 15 16 17 18 19 20 21 22 23 | Следующая страница реферата
Главная