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

End If

End Sub

Макрос клавіші “Очистити” на листі “Ввід”

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

•Вивід попереджувального вікна і отримання відповіді від користувача

•В випадку позитивної відповіді:

o заборона виводу прізвищ

oВідключення клавіш “Очистити” і “Зберегти”

oВключення елементів вибору групи і місяця та клавіші “Вивести”

Private Sub CommandButton2_Click()

but = MsgBox("Ви дійсно хочете очистити таблицю відвідування ?", vbQuestion _

+ vbOKCancel)

If but = 1 Then

Range("E7:AI100").Cells.Formula = ""

Range("E5").Value = ""

Лист1.ComboBox1.Enabled = True

Лист1.ComboBox2.Enabled = True

Лист1.CommandButton2.Enabled = False

Лист1.CommandButton1.Enabled = True

Лист1.CommandButton3.Enabled = False

Range("A1").Value = "No"

End If

End Sub

Макрос клавіші “Зберегти” на листі “Ввід”

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