'Объявление данных
Dim Count1 As Integer 'Оценка по математике
Dim Count2 As Integer 'Оценка по информатике
Dim Count3 As Integer 'Оценка по белорусскому языку
Dim Number_row(8)  As Integer 
'Массив для номера строки - листа класса
Dim K As Integer 'Номер класса в списке

Private Sub CommandButton1_Click()
'Отмена
Unload frm6Init
End Sub

Private Sub CommandButton3_Click()
Dim Fio As String
'Заполнение листа активной книги
With frm6Init
'i - номер фамилии в списке
i = ListBox1.ListIndex
Fio = ListBox1.List(i)
'j - номер листа, соответствующего списку класса
j = ComboBox1.ListIndex
Sheet = ComboBox1.List(j)
'Sheet - имя листа (списка класса)
K = j
'Работаем с активной книгой
Workbooks("Exampl1-Form.xls").Activate
'Активизация требуемого листа
Worksheets(Sheet).Activate
With ActiveSheet
   Number_row(K) = Number_row(K) + 1
   If Number_row(K) = 1 Then
   'Формирование заголовка таблицы
     Cells(Number_row(K), 1) = Sheet
     Range("A1:E1").Select
     With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .ShrinkToFit = False
        .MergeCells = False
     End With
     Selection.Merge
     Selection.Font.Bold = True
     With Selection.Font
        .Name = "Arial Cyr"
        .Size = 14
     End With
     Range("A1").Select
     Number_row(K) = Number_row(K) + 1
     'Формирование шапки таблицы - списка класса
     Cells(Number_row(K), 1) = "№"
     Cells(Number_row(K), 2) = "ФИО"
     Cells(Number_row(K), 3) = "Оценка1"
     Cells(Number_row(K), 4) = "Оценка2"
     Cells(Number_row(K), 5) = "Оценка3"
     Range("A2:E2").Select
     Selection.Font.Bold = True
     Range("A1").Select
     Number_row(K) = Number_row(K) + 1
 End If
 'Заполнение очередной строки таблицы
 Cells(Number_row(K), 1) = Number_row(K) - 2
 Cells(Number_row(K), 2) = Fio
 Cells(Number_row(K), 3) = Count1
 Cells(Number_row(K), 4) = Count2
 Cells(Number_row(K), 5) = Count3
 Cells.Select
 Selection.Columns.AutoFit
 Range("A1").Select
End With
End With
End Sub

Private Sub CommandButton4_Click()
'Кнопка "Отмена" окна "Ввод оценки"
Unload frm6Init
End Sub

Private Sub CommandButton5_Click()
'Кнопка "Конец работы" окна "Запись в таблицу"
Unload frm6Init
End Sub

Private Sub SpinButton1_SpinUp()
'Формирование оценки по математике - увеличение
If Count1 < 5 Then
 Count1 = Count1 + 1
End If
TextBox1.Text = Count1
End Sub

Private Sub SpinButton1_SpinDown()
'Формирование оценки по математике - уменьшение
If Count1 > 1 Then
 Count1 = Count1 - 1
End If