У цьому посібнику буде показано, як використовувати 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 |