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

AutoText:=True, LegendKey:=False

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

AutoText:=True, LegendKey:=False

End If

End Sub

Текст макроса радіо-клавіші “Сортувати по групах” на листі “Звіт”

Private Sub OptionButton1_Click()

ListBox1.Clear

M = 1

For Each Wh In Worksheets

If Mid(Wh.Name, 3, 1) = "-" Then

A(M) = "Група " + Mid(Wh.Name, 4) + Mid(Wh.Name, 1, 2) + Sheets(Wh.Name).Range("C1")

A(M) = A(M) + Space(30 - Len(A(M))) + "(Лист " + Wh.Name + ")"

M = M + 1

End If

Next

Sort

For I = 1 To M - 1

A(I) = Mid(A(I), 1, 9) + " - " + Mid(A(I), 12)

ListBox1.AddItem (A(I))

Next I

End Sub

Текст макроса радіо-клавіші “Сортувати по місяцях” на листі “Звіт”

Private Sub OptionButton2_Click()

ListBox1.Clear