АВТОМАТИЗАЦIЯ КОНТРОЛЮ ВIДВIДУВАННЯ СТУДЕНТАМИ ЗАНЯТЬ

.Interior.ColorIndex = 4

.HorizontalAlignment = xlCenter

.Font.Bold = True

.Font.Size = 18

.Value = "Зведений звіт відвідування"

End With

'(Дані по групам за місяць)

RW = RW + 1

For Each CL In Range("B17:B" + Mid(Str(RW), 2))

If CL.Value = "ВСЬОГО" Then

PN = PN + 1

With Range("B" + Mid(Str(RW), 2) + ":AG" + Mid(Str(RW), 2))

.Merge

.Value = Mid(Range("C" + Mid(Str(CL.Row), 2)).Value, 1, 29)

End With

Range("AH" + Mid(Str(RW), 2)).Value = Range("AH" + Mid(Str(CL.Row), 2)).Value

Range("AI" + Mid(Str(RW), 2)).Value = Range("AI" + Mid(Str(CL.Row), 2)).Value

RW = RW + 1

End If

Next CL

'(Всього)

With Range("B" + Mid(Str(RW), 2) + ":AG" + Mid(Str(RW), 2))

.Merge

.Value = "ВСЬОГО"

.Font.Bold = True