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

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

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

•Перегляд назв всіх листів у книзі з метою встановлення наявності вибраного листа

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

oСтворення заголовка таблиці

oВибір кольору

oПідбір ширини комірок

oЗапис формул в лист•Копіювання даних з заданого листа на лист “Ввід” і включення виводу списка студентів на листі

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

Private Sub CommandButton1_Click()

Found = False

Find = Range("A3").Value2 + "-" + Range("A2").Value2

For Each Wh In Worksheets

If Wh.Name = Find Then Found = True

Next

If Found = False Then

' СТВОРЕННЯ НОВОГО ЛИСТА

Sheets.Add after:=Sheets(Sheets.Count)

ActiveSheet.Name = Find

Sheets("Ввід").Activate

Sheets(Find).Rows("1:2").Font.Bold = True

'№ п/п

Sheets(Find).Range("A2").FormulaR1C1 = "№ п/п"

Sheets(Find).Columns("A:A").HorizontalAlignment = xlCenter

Sheets(Find).Range("A3").FormulaR1C1 = _