Форматирование текста в ячейке при помощи кода 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» присвоим шрифты разных наименований:
|
1 2 3 4 5 6 7 8 |
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 к одной ячейке:
|
1 2 3 4 5 6 7 8 |
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
Форматирование диапазона из нескольких ячеек:
|
1 2 3 4 5 6 7 |
Sub Primer3() With Range("A9:C11") .Value = "Форматируем диапазон" .Font.Underline = True .Font.Color = 75962 End With End Sub |