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

If Len(Value) > 0 Then

For j = 0 To Objects.ListCount - 1

If Objects.List(j) = Value Then Exit For

Next j

If j = Objects.ListCount Then Objects.AddItem Value

i = i + 1

End If

Loop Until Len(Value) = 0

End With

ReDim ObjectList(Objects.ListCount - 1, 1)

LoadObject (Cursor)

End Sub

Private Sub LoadObject(Index As Integer)

With ActiveWorkbook.Sheets("Storage")

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

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

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

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

For i = 0 To Objects.ListCount - 1

ObjectList(i, 0) = Split(.Cells(Cursor + 2, i + 5), ":")(0)

ObjectList(i, 1) = Split(.Cells(Cursor + 2, i + 5), ":")(1)

Next i

If Objects.ListIndex = 0 Then Call Objects_Change

Objects.ListIndex = 0

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

End With

End Sub

Private Function GetListCount() As Integer

Dim i As Integer