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

RW = RW + 1

End If

End If

Next

'ВСЬОГО

Range("B" + Mid(Str(RW), 2)).Value = "ВСЬОГО"

Range("A" + Mid(Str(RW), 2) + ":" + "AI" + Mid(Str(RW), 2)).Font.Bold = True

If PN > 1 Then Range("AH" + Mid(Str(RW), 2)).FormulaR1C1 = "=SUM(R[-" + Mid(Str(PN - 1), 2) + "]C:R[-1]C)" _

Else Range("AH" + Mid(Str(RW), 2)).Value = 0

If PN > 1 Then Range("AI" + Mid(Str(RW), 2)).FormulaR1C1 = "=SUM(R[-" + Mid(Str(PN - 1), 2) + "]C:R[-1]C)" _

Else Range("AI" + Mid(Str(RW), 2)).Value = 0

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

.Merge

.Value = ListBox1.List(I)

.Font.ColorIndex = 2

End With

RW = RW + 1

GR = GR + 1

End If

Next I

'ЗВЕДЕНИЙ ЗВІТ

'(Заголовок)

PN = 0

With Range("A" + Mid(Str(RW), 2) + ":AI" + Mid(Str(RW), 2))

.Merge