Объект Font

Свойство Font объекта Range возвращает объект Font, представляющий собой шрифт. В табл. 5.23 приведены свойства объекта Font.

Таблица 5.23. Свойства объекта Font

Свойство	Описание
Bold	Определяет, является ли шрифт полужирным
Color	Задает цвет шрифта в соответствии с RGB-моделью
Colorlndex	Задает индексированный цвет в соответствии с текущей палитрой цветов
FontStyle	Задает стиль шрифта, заданный в словесной форме. Допустимы значения: Regular (обычный), Bold (полужирный), Italic (курсив), Bold Italic (полужирный курсив)

Таблица 5.23. Свойства объекта Font(Продолжение)

Italic	Определяет, является ли шрифт курсивным
Name	Строка, указывающая имя шрифта, например, "Arial Cyr"
Size	Размер шрифта
Strikethrough	Устанавливает, имеется ли линия по центру, как-будто текст перечеркнут
Superscript	Устанавливает, используется ли текст как верхний индекс
Subscript	Устанавливает, используется ли текст как нижний индекс
Underline	Задает тип подчеркивания. Допустимы значения: xlNone (нет подчеркивания), xlSingle (одинарное, по значению), xlDouble (двойное, по значению), xlSingleAccounting (одинарное, по ячейке), xlDoubleAccounting (двойное, по ячейке)

Например, в следующем примере для диапазона А1:В2 устанавливается по­лужирный шрифт красного цвета с высотой символов 14.

With Range("A1:B2").Font

.Size = 14

.Bold = True

.Color = RGB(255, 0, 0)

End With

Объект Interior

Свойство Interior объекта Range возвращает объект Interior, представляющий собой объект, инкапсулирующий данные о заливке диапазона. В табл. 5.24 приведены свойства объекта Interior.

Таблица 5.24. Свойства объекта Interior

Свойство	Описание
Color	Цвет заливки в соответствии с RGB-моделью
Colorlndex	Индексированный цвет заливки в соответствии с текущей палитрой цветов
Pattern	Узор заливки. Допустимыми являются следующие значения: xlPatternAutomatic, xlPatternChecker, xlPatternCrissCross, xlPatternDown, xlPatternGrayl6, xlPatternGray25, xlPatternGray50, xlPatternGray75, xlPatternGray8, xlPatternGrid, xlPatternHorizontal, xlPatternLightDown, xlPatternLightHorizontal, xlPatternLightUp, xlPatternLightVertical, xlPatternNone, xlPatternSemiGray75, xlPatternSolid, xlPatternUp, xlPatternVertical
PatternColor	Цвет узора в соответствии с RGB-моделью
PatternColorIndex	Индексированный цвет узора в соответствии с текущей палитрой цветов

Например, в следующем примере для диапазона A1:D5 устанавливается красная заливка с синим клетчатым узором.

With Range("A1:D5")

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

.Interior.Pattern = xlPatternChecker

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

End With

В коде листинга 5.48 выводится таблица цветов и соответствующих значений свойства Colorlndex.

Листинг 5.48. Таблица цветов

Sub ListOfColorlndex()

Dim c As Long

Range("A1").Value = "Цвет"

Range("B1").Value = "Значение свойства Colorlndex"

Range("A2").Select

For с = 1 To 56

With ActiveCell.Interior

.Colorlndex = с

.Pattern = xlSolid

.PatternColorlndex = xlAutomatic

End With

ActiveCell.Offset(0, 1).Value = с

ActiveCell.Offset(1, 0).Activate

Next

Range("Al").Select

ActiveWindow.ScrollRow = 1

End Sub

В качестве еще одной иллюстрации приведем код, который изменяет цвет выбранного диапазона с серого на заданный (листинг 5.49).

Листинг 5.49. Выделение цветом выбранного диапазона.

Модуль рабочего листа

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Cells.Interior.Colorlndex = xlColorlndexNone

Target.Interior.Color = RGB(243, 167, 242)

End Sub

Разрешение редактирования содержимого ячеек на защищенном рабочем листе свойство Locked объекта Range, установленное равным значению False, обеспечивает пользователю возможность редактирования содержимого ячеек даже на защищенном рабочем листе. Например, следующая процедура из модуля ЭтаКнига, обрабатывающая событие Open объекта Workbook, вводит в ячейку С1 формулу =a1+b1 и защищает по паролю stop все ячейки листа, кроме ячеек А1 и В1, в которые пользователь может вводить любые значения (листинг 5,50).

Листинг 5.50. Разрешение редактирования содержимого ячеек на защищенном рабочем листе.

Модуль ЭтаКнига

Private Sub Workbook_Open()

On Error Resume Next

Worksheets(1).Range("CI").Formula = "=A1+B1"

Worksheets(1).Range("A1:B1").Locked = False

Worksheets(1).Protect "stop"

End Sub