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

.ColorIndex = xlAutomatic

End With

With Selection.Borders(xlEdgeRight)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = xlAutomatic

End With

With Selection.Borders(xlInsideVertical)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = xlAutomatic

End With

With Selection.Borders(xlInsideHorizontal)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = xlAutomatic

End With

Row = Row + k + 5

End If

End If

j = j + 1

Loop Until Len(Value) = 0

Next i

End With

End Sub

Private Sub Down_Click()

Dim Index As Integer

Dim Value As String

Index = Queue.ListIndex