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

Макрос клавіші “Створити” на листі “Звіт”

Реакція програми на натиснення клавіші “Створити”:

•Очистка листа від попереднього звіту

•Для кожного вибраного в ListBox листа:

oВивід «шапки»

oПерегляд даних і перевірка даних по кількості пропусків

oКопіювання відібраних даних на лист «Звіт»

•Створення узагальненого звіту

•Створення діаграми

Private Sub CommandButton1_Click()

RW = 17

GR = 0

Range("A17:AI5000").Clear

For I = 0 To ListBox1.ListCount - 1

If ListBox1.Selected(I) Then

'SH - Назва листа даних з поточною групою і місяцем

SH = Mid(ListBox1.List(I), 38, 6)

'Друкуємо шапку для групи і місяця

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

.Merge

.HorizontalAlignment = xlCenter

.Font.Bold = True

.Value = Mid(ListBox1.List(I), 1, 29)

.Interior.ColorIndex = 4

End With