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

.HorizontalAlignment = xlCenter

End With

Range("AH" + Mid(Str(RW), 2) + ":AG" + Mid(Str(RW), 2)) _

.FormulaR1C1 = "=SUM(R[-" + Mid(Str(PN), 2) + "]C:R[-1]C)"

Range("AI" + Mid(Str(RW), 2) + ":AG" + Mid(Str(RW), 2)) _

.FormulaR1C1 = "=SUM(R[-" + Mid(Str(PN), 2) + "]C:R[-1]C)"

If GR > 2 Then

Range("AH" + Mid(Str(RW - PN), 2) + ":AI" + Mid(Str(RW - 1), 2)).Activate

Charts.Add

ActiveChart.SetSourceData Source:=Sheets("Звіт").Range("AH" + Mid(Str(RW - PN), 2) + ":AI" + Mid(Str(RW - 1), 2))

ActiveChart.Location Where:=xlLocationAsNewSheet

ActiveChart.Axes(xlValue).MajorGridlines.Select

ActiveChart.ChartArea.Select

ActiveChart.SeriesCollection(1).XValues = "=Звіт!R" + Mid(Str(RW - PN), 2) + "C2:R" + Mid(Str(RW - 1), 2) + "C33"

ActiveChart.SeriesCollection(1).Name = "=""Б"""ActiveChart.SeriesCollection(2).XValues = "=Звіт!R" + Mid(Str(RW - PN), 2) + "C2:R" + Mid(Str(RW - 1), 2) + "C33"

ActiveChart.SeriesCollection(2).Name = "=""П"""

With ActiveChart

.HasTitle = True

.ChartTitle.Characters.Text = "Діаграма відвідування"

.Axes(xlValue, xlPrimary).HasTitle = True

.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Дні"

End With

ActiveChart.HasLegend = True

ActiveChart.Legend.Position = xlTop

ActiveChart.SeriesCollection(1).ApplyDataLabels Type:=xlDataLabelsShowValue, _