Как центрировать текст с помощью vba (с примером)

Вы можете использовать свойства HorizontalAlignment и Вертикальное выравнивание в VBA для центрирования текста в определенных ячейках Excel по горизонтали и вертикали соответственно.

Вот три распространенных способа использования этих свойств на практике:

Метод 1: центрировать текст по горизонтали с помощью VBA

 SubCenterText ()
Range(" A2:A11 ").HorizontalAlignment = xlCenter
End Sub

Метод 2: центрирование текста по вертикали с помощью VBA

 SubCenterText ()
Range(" A2:A11 ").VerticalAlignment = xlCenter
End Sub

Метод 3: центрировать текст по горизонтали и вертикали с помощью VBA

 SubCenterText ()
Range(" A2:A11 ").HorizontalAlignment = xlCenter
Range(" A2:A11 ").VerticalAlignment = xlCenter
End Sub

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

Пример 1. Центрирование текста по горизонтали с использованием VBA

Мы можем создать следующий макрос, чтобы центрировать текст в каждой ячейке в диапазоне A2:A11 по горизонтали:

 SubCenterText ()
Range(" A2:A11 ").HorizontalAlignment = xlCenter
End Sub

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

Обратите внимание, что текст в каждой ячейке диапазона A2:A11 центрирован по горизонтали.

Пример 2. Центрирование текста по вертикали с использованием VBA

Мы можем создать следующий макрос для вертикального центрирования текста в каждой ячейке в диапазоне A2:A11 :

 SubCenterText ()
Range(" A2:A11 ").VerticalAlignment = xlCenter
End Sub

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

Обратите внимание, что текст в каждой ячейке диапазона A2:A11 центрирован по вертикали.

Пример 3. Центрирование текста по горизонтали и вертикали с использованием VBA

Мы можем создать следующий макрос, чтобы центрировать текст в каждой ячейке диапазона A2:A11 как по горизонтали, так и по вертикали:

 SubCenterText ()
Range(" A2:A11 ").HorizontalAlignment = xlCenter
Range(" A2:A11 ").VerticalAlignment = xlCenter 
End Sub

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

Обратите внимание, что текст в каждой ячейке диапазона A2:A11 центрирован по горизонтали и вертикали.

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

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

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