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

For i = 0 To Queue.ListCount - 1

GroupVal = Split(Queue.List(i), " - ")(0)

StudentVal = Split(Queue.List(i), " - ")(1)

j = 2

Do

Value = Worksheets("Storage").Cells(j, 1).Value

If Len(Value) > 0 Then

If Worksheets("Storage").Cells(j, 1) = GroupVal And Worksheets("Storage").Cells(j, 2) + " " + Worksheets("Storage").Cells(j, 3) + " " + Worksheets("Storage").Cells(j, 4) = StudentVal Then

.Cells(Row, 1).Value = "Группа"

.Cells(Row, 2).Value = GroupVal

Range(.Cells(Row, 2), .Cells(Row, 3)).MergeCells = True

.Cells(Row + 1, 1).Value = "Студент"

.Cells(Row + 1, 2).Value = StudentVal

Range(.Cells(Row + 1, 2), .Cells(Row + 1, 3)).MergeCells = True

Range(.Cells(Row, 2), .Cells(Row + 1, 2)).Select

With Selection.Interior

.ColorIndex = 36

.Pattern = xlSolid

End With

.Cells(Row + 2, 1).Value = "Оценки по предметам"

.Cells(Row + 2, 2).Value = "1-ый семестр"

.Cells(Row + 2, 3).Value = "2-ой семестр"

Range(.Cells(Row + 2, 2), .Cells(Row + 2, 3)).Select

With Selection

.HorizontalAlignment = xlCenter

.Interior.ColorIndex = 37

.Interior.Pattern = xlSolid

End With

For k = 0 To 8