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

Dim i As Integer

Dim Value As String

i = 2

Student.Clear

With ActiveWorkbook.Sheets("Storage")

Do

Value = .Cells(i, 1).Value

If Value = Group.Value Then

Student.AddItem .Cells(i, 2).Value + " " + .Cells(i, 3).Value + " " + .Cells(i, 4).Value

End If

i = i + 1

Loop Until Len(Value) = 0

End With

Student.ListIndex = 0

End Sub

Private Sub Spring_Click()

Spring.Value = True

Autumn.Value = False

End Sub

Private Sub UserForm_Initialize()

Dim i As Integer

Dim Value As String

i = 2

With ActiveWorkbook.Sheets("Storage")

Do

Value = .Cells(i, 1).Value

If Len(Value) > 0 Then

For j = 0 To Group.ListCount - 1

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