Форматирование текста в ячейке при помощи кода VBA Excel. Объект Font и его основные свойства. Примеры изменения начертания строк в заданном диапазоне.
В этой статье рассмотрены свойства шрифта (объекта 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