VBA Excel. Форматирование текста в ячейке (объект Font)

Форматирование текста в ячейке при помощи кода VBA Excel. Объект Font и его основные свойства. Примеры изменения начертания строк в заданном диапазоне.

1. Формат отображаемого значения
2. Основные свойства объекта Font
3. Примеры форматирования текста

В этой статье рассмотрены свойства шрифта (объекта Font), определяющие внешнее оформление (начертание) видимого значения ячейки. Это касается не только текста (строк), но и визуального начертания отображаемых дат и числовых значений.

Формат отображаемого значения

Когда мы из кода VBA Excel записываем в ячейку текстовое или другое значение, оно отображается в формате, присвоенном данной ячейке. Это может быть формат:

• рабочего листа по умолчанию;
• установленный для диапазона пользователем;
• примененный к диапазону из кода VBA Excel.

Если ячейка содержит текстовое значение, его начертание можно форматировать по отдельным частям (подстрокам). Такое форматирование доступно как в ручном режиме на рабочем листе, так и из кода VBA Excel.

У объекта Range есть свойство Font (шрифт), которое отвечает за форматирование (начертание) визуально отображаемого текста в ячейках рабочего листа. Его применение вызывает объект Font, который в свою очередь обладает собственным набором свойств, отвечающих за конкретный стиль начертания отображаемого значения.

Основные свойства объекта Font

Свойство	Описание	Значения
Name	наименование шрифта	"Arial", "Calibri", "Courier New", "Times New Roman" и т.д.
Size	размер шрифта	от 1 до 409 пунктов
Bold	полужирное начертание	True, False
Italic	курсивное начертание	True, False
FontStyle	заменяет Bold и Italic	"обычный", "полужирный", "курсив", "полужирный курсив"
Superscript	надстрочный текст	True, False
Subscript	подстрочный текст	True, False
Underline	подчеркнутый текст	True, False
Color*	цвет текста	от 0 до 16777215

*Color - это не единственное свойство, отвечающее за цвет отображаемого текста в ячейке. Оно также может принимать и другие значения, кроме указанных в таблице. Смотрите подробности в статье Цвет текста (шрифта) в ячейке.

Примеры форматирования текста

Пример 1
В этом примере ячейкам диапазона «A1:A3» присвоим шрифты разных наименований:

Sub Primer1()
Range("A1").Font.Name = "Courier"
Range("A1") = "Шрифт «Courier»"
Range("A2").Font.Name = "Verdana"
Range("A2") = "Шрифт «Verdana»"
Range("A3").Font.Name = "Times New Roman"
Range("A3") = "Шрифт «Times New Roman»"
End Sub

Пример 2
В этом примере рассмотрим применение одного свойства объекта Font к одной ячейке:

Sub Primer2()
Range("A5").Font.Bold = True
Range("A5") = "Полужирное начертание"
Range("A6").Font.FontStyle = "полужирный курсив"
Range("A6") = "Полужирный курсив"
Range("A7").Font.Superscript = True
Range("A7") = "Надстрочное начертание"
End Sub

Пример 3
Форматирование диапазона из нескольких ячеек:

Sub Primer3()
  With Range("A9:C11")
    .Value = "Форматируем диапазон"
    .Font.Underline = True
    .Font.Color = 75962
  End With
End Sub