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

.Cells(Row + 3 + k, 2).Value = Split(Worksheets("Storage").Cells(j, k + 5).Value, ":")(0)

.Cells(Row + 3 + k, 3).Value = Split(Worksheets("Storage").Cells(j, k + 5).Value, ":")(1)

Next k

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

With Selection

.HorizontalAlignment = xlCenter

.Interior.ColorIndex = 35

.Interior.Pattern = xlSolid

End With

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

With Selection.Interior

.ColorIndex = 40

.Pattern = xlSolid

End With

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

Selection.Borders(xlDiagonalDown).LineStyle = xlNone

Selection.Borders(xlDiagonalUp).LineStyle = xlNone

With Selection.Borders(xlEdgeLeft)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = xlAutomatic

End With

With Selection.Borders(xlEdgeTop)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = xlAutomatic

End With

With Selection.Borders(xlEdgeBottom)

.LineStyle = xlContinuous