Как установить размер шрифта с помощью vba (с примером)

Вы можете использовать свойство Font.Size в VBA, чтобы получить и установить размер шрифта определенных ячеек в Excel.

Например, вы можете использовать следующий макрос, чтобы создать окно сообщения, отображающее текущий размер шрифта ячейки A1 :

 SubGetFontSize ()
MsgBox Range(" A1 ").Font.Size
End Sub

Или вы можете создать следующий макрос, чтобы установить размер шрифта ячейки A1 равный 20 :

 Sub SetFontSize()
Range(“ A1 ”). Font.Size = 20
End Sub

Или вы можете создать следующий макрос, чтобы размер шрифта в каждой ячейке в диапазоне A1:C1 был равен 20 :

 Sub SetFontSize()
Range(" A1:C1 ").Font.Size = 20
End Sub

В следующих примерах показано, как получить и установить размер шрифта с помощью VBA со следующим набором данных в Excel:

Пример 1. Получение размера шрифта с помощью VBA

Мы можем создать следующий макрос, чтобы создать окно сообщения, отображающее текущий размер шрифта ячейки A1 :

 SubGetFontSize ()
MsgBox Range(" A1 ").Font.Size
End Sub

Когда мы запускаем этот макрос, мы получаем следующий вывод:

В окне сообщения сообщается, что в настоящее время ячейка A1 имеет размер шрифта 11 .

Это размер шрифта по умолчанию в Excel.

Пример 2. Установите размер шрифта определенной ячейки с помощью VBA

Мы можем создать следующий макрос, чтобы установить размер шрифта ячейки A1 равный 20 :

 Sub SetFontSize()
Range(" A1 ").Font.Size = 20
End Sub

Когда мы запускаем этот макрос, мы получаем следующий вывод:

Мы видим, что размер шрифта ячейки A1 был изменен на 20 , в то время как размер шрифта всех остальных ячеек остался неизменным.

Пример 3. Установка размера шрифта диапазона ячеек с помощью VBA

Мы можем создать следующий макрос, чтобы установить размер шрифта каждой ячейки в диапазоне от A1:C1 до 20 :

 Sub SetFontSize()
Range(" A1:C1 ").Font.Size = 20
End Sub

Когда мы запускаем этот макрос, мы получаем следующий вывод:

Мы видим, что размер шрифта каждой ячейки в диапазоне A1:C1 был изменен на 20 , в то время как размер шрифта всех остальных ячеек остался неизменным.

Примечание . Полную документацию по свойству VBA Font.Size можно найти здесь .

Дополнительные ресурсы

В следующих руководствах объясняется, как выполнять другие распространенные задачи в VBA:

VBA: как изменить цвет шрифта
VBA: как сделать шрифт жирным
VBA: как заменить символы в строке