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

Синтаксис

СЧЁТЗ(значение1; значение2; ...)

Значение1, значение2, ... – це від 1 до 30 аргументів, кількість яких потрібно підрахувати. В даному випадку значеннями вважається значення любого типу, включаючи порожній рядок (""), але не включаючи порожні комірки. Якщо аргументом є масив чи ссилка, то порожні комірки в масиві чи ссилці ігноруються.

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

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

•Перегляд комірок в діапазоні С3:IV3 і виправлення в них номерів груп (контроль за їх довжиною)

•Сортування списків студентів по номеру групи

•Підбір ширини колонок із списками груп

•Установка списку вибору номерів груп в ComboBox1 на листі «Ввід»

Private Sub CommandButton1_Click()

For Each w In Range("C3:IV3")

If w.Value <> "" Then

w.Value = Mid(w.Value, 1, 3)

If Len(w.Value) < 3 Then w.Value = String(3 - Len(w.Value), "0") + Mid(Str(w.Value), 2)

End If

Next

Range("C3:IV100").Sort Key1:=Range("C3"), Order1:=xlAscending, Header:=xlGuess, _

OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight

Range("C3:IV3").Copy

Range("A4").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=True

Лист1.ComboBox1.ListFillRange = "Списки!A4:A" + Mid(Str(Range("E1").Value + 3), 2)

Columns("C:IV").Columns.AutoFit

End Sub