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

End With

With Selection.Borders(xlInsideHorizontal)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = xlAutomatic

End With

Range("C16:D17").Select

With Selection

.HorizontalAlignment = xlLeft

.VerticalAlignment = xlBottom

.WrapText = False

.Orientation = 0

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

End With

Range("B16:B27").Select

With Selection.Interior

.ColorIndex = 36

.Pattern = xlSolid

End With

Range("C16:D17").Select

With Selection.Interior

.ColorIndex = 35

.Pattern = xlSolid

End With

Range("C18:D18").Select

With Selection.Interior