Центр тексту VBA - вирівнювання комірок (горизонтальне та вертикальне)

У цьому посібнику буде показано, як використовувати VBA для центрування тексту в осередку як по горизонталі, так і по вертикалі.

Ми можемо використовувати групу Вирівнювання на домашній стрічці в Excel для центрування тексту як по горизонталі, так і по вертикалі в комірці. Якщо ми пишемо макрос для форматування тексту, ми можемо заново створити цю функціональність за допомогою коду VBA.

Центр тексту по горизонталі

Щоб відцентрувати текст горизонтально в одній клітинці, ми можемо використовувати такий код:

123 Sub CenterText ()ActiveCell.HorizontalAlignment = xlCenterEnd Sub

Крім того, для горизонтального центрування тексту в кожній клітинці вибраного діапазону клітинок ми можемо використовувати об’єкт «Виділення» і виконати наступне:

123 Sub CenterText ()Selection.HorizontalAlignment = xlCenterEnd Sub

Ми також можемо змінити вирівнювання вправо або вліво за допомогою xlЛіворуч та xlВправо константи.

Для вирівнювання тексту в комірці праворуч ми можемо використовувати такий код:

123 Sub RightAlignText ()ActiveCell.HorizontalAlignment = xlRightEnd Sub

Центр тексту по вертикалі

Центрування тексту по вертикалі майже так само, як і по горизонталі.

123 Sub CenterTextVertical ()ActiveCell.VerticalAlignment = xlCenterEnd Sub

Як і центрування тексту вертикально по виділенню:

123 ПідцентрТекстВертикально ()Selection.VerticalAlignment = xlCenterEnd Sub

Ми також можемо змінити текст у верхній або нижній частині комірки або виділення за допомогою xlTop або xlBottom константи.

123 Sub TopAlignVertical ()ActiveCell.VerticalAlignment = xlTopEnd Sub

Центрувати текст по горизонталі та вертикалі одночасно

Якщо ми хочемо відцентрувати текст по горизонталі та вертикалі одночасно, це можна зробити кількома способами.

1234 Sub CenterBoth ()ActiveCell.HorizontalAlignment = xlCenterActiveCell.VerticalAlignment = xlCenterEnd Sub

Крім того, щоб скоротити повторюваний код, ми можемо використовувати оператор With та End With.

123456 Sub CenterBoth2 ()З виділенням.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenterЗакінчити зEnd Sub

Наведений вище код застосовуватиметься до всіх клітинок Excel, вибраних у той час.

Використання з та закінчення з дуже ефективне, коли у нас є багато форматування, наприклад, об’єднання клітинок або зміна орієнтації.

12345678 Sub MergeAndCenter ()З виділенням.HorizontalAlignment = xlCenter.VerticalAlignment = xlBottom.Орієнтація = -36.MergeCells = ІстинаЗакінчити зEnd Sub
wave wave wave wave wave