Перейти к содержимому

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

Добавить комментарий

Ваш комментарий будет опубликован после прохождения обязательной модерации. Исходящие ссылки не допускаются. Время модерации составит от нескольких минут до нескольких часов в зависимости от времени суток и занятости модератора.