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

.Pattern = xlSolid

End With

Range("C19:D27").Select

With Selection.Interior

.ColorIndex = 40

.Pattern = xlSolid

End With

End Sub