Як центрувати текст за допомогою vba (з прикладом)

Ви можете використовувати властивості HorizontalAlignment і VerticalAlignment у 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: Як замінити символи в рядку