Курсовая работа: Успеваемость студентов

If (Len(First.Value) = 0) Then

MsgBox "Необходимо ввести имя студента!"

Exit Sub

End If

If (Len(Middle.Value) = 0) Then

MsgBox "Необходимо ввести отчество студента!"

Exit Sub

End If

.Cells(Cursor + 2, 1) = Group.Value

.Cells(Cursor + 2, 2) = Last.Value

.Cells(Cursor + 2, 3) = First.Value

.Cells(Cursor + 2, 4) = Middle.Value

For i = 0 To Objects.ListCount - 1

.Cells(Cursor + 2, i + 5) = Trim(Str(ObjectList(i, 0))) + ":" + Trim(Str(ObjectList(i, 1)))

Next i

End With

If Cursor = Count Then

Count = Count + 1

ItemCount.Caption = "Элемент " + Str(Cursor + 1) + " из " + Str(Count)

End If

End Sub

Private Sub UserForm_Initialize()

Dim i As Integer

Dim Value As String

Cursor = 0

i = 5

Count = GetListCount()

With ActiveWorkbook.Sheets("Storage")

Do