В этом руководстве будет показано, как использовать VBA для центрирования текста в ячейке как по горизонтали, так и по вертикали.
Мы можем использовать группу «Выравнивание» на главной ленте в Excel для центрирования текста как по горизонтали, так и по вертикали в ячейке. Если мы пишем макрос для форматирования текста, мы можем воссоздать эту функциональность с помощью кода VBA.
Центрировать текст по горизонтали
Чтобы центрировать текст по горизонтали в одной ячейке, мы можем использовать следующий код:
| 123 | Подцентртекст ()ActiveCell.HorizontalAlignment = xlCenterКонец подписки |
В качестве альтернативы, чтобы центрировать текст по горизонтали в каждой ячейке выбранного диапазона ячеек, мы можем использовать объект Selection и сделать следующее:
| 123 | Подцентртекст ()Selection.HorizontalAlignment = xlCenterКонец подписки |
Мы также можем изменить выравнивание вправо или влево, используя xlLeft а также xlRight константы.
Чтобы выровнять текст в ячейке по правому краю, мы можем использовать следующий код:
| 123 | Sub RightAlignText ()ActiveCell.HorizontalAlignment = xlRightКонец подписки |
Центрировать текст по вертикали
Центрирование текста по вертикали почти такое же, как и по горизонтали.
| 123 | Sub CenterTextVertical ()ActiveCell.VerticalAlignment = xlCenterКонец подписки |
Как и центрирование текста по вертикали по выделенному фрагменту:
| 123 | ПодцентрТекстВертикально ()Selection.VerticalAlignment = xlCenterКонец подписки |
Мы также можем изменить текст на верхнюю или нижнюю часть ячейки или выделения, используя xlTop или xlBottom константы.
| 123 | Sub TopAlignVertical ()ActiveCell.VerticalAlignment = xlTopКонец подписки |
Центрировать текст по горизонтали и вертикали одновременно
Если мы хотим центрировать текст одновременно по горизонтали и вертикали, есть несколько способов сделать это.
| 1234 | Sub CenterBoth ()ActiveCell.HorizontalAlignment = xlCenterActiveCell.VerticalAlignment = xlCenterКонец подписки |
В качестве альтернативы, чтобы сократить повторяющийся код, мы можем использовать инструкции With и End With.
| 123456 | ПодцентрBoth2 ()С выделением.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenterКонец сКонец подписки |
Приведенный выше код будет применяться ко всем ячейкам Excel, выбранным в данный момент.
Использование With и End With очень эффективно, когда у нас есть много форматирования внутри выделения, например, слияние ячеек или изменение ориентации.
| 12345678 | Sub MergeAndCenter ()С выделением.HorizontalAlignment = xlCenter.VerticalAlignment = xlBottomОриентация = -36.MergeCells = ИстинаКонец сКонец подписки |
