Заливка диапазона

Выполнив несложный трюк, можно быстро залить любой диапазон ячеек требуемым цветом (или комбинацией разных цветов). Для этого следует использовать, например, такой макрос (листинг 2.34).

Листинг 2.34. Создание заливки диапазона

Sub FillRange()

' Заливка диапазона

With Range(«B1:E10»)

' Задаем узор – сетчатый

.Interior.Pattern = xlPatternChecker

' Цвет узора – синий

.Interior.PatternColor = RGB(0, 0, 255)

' Цвет ячейки – красный

.Interior.Color = RGB(255, 0, 0)

End With

End Sub

В результате применения данного макроса диапазон В1:Е10 будет залит красным цветом с синим сетчатым узором.