Този урок ще покаже как да използвате VBA за центриране на текст в клетка, хоризонтално и вертикално.
Можем да използваме групата Подравняване в началната лента в Excel, за да центрираме текста както хоризонтално, така и вертикално в клетка. Ако пишем макрос за форматиране на текст, можем да създадем отново тази функционалност, използвайки VBA Code.
Центрирайте текста хоризонтално
За да центрираме текста хоризонтално в една клетка, можем да използваме следния код:
| 123 | Sub CenterText ()ActiveCell.HorizontalAlignment = xlCenterEnd Sub |
Като алтернатива, за да центрираме хоризонтално текста във всяка клетка от избран диапазон от клетки, можем да използваме обекта Selection и да направим следното:
| 123 | Sub CenterText ()Selection.HorizontalAlignment = xlCenterEnd Sub |
Можем също да променим подравняването на дясно или наляво с помощта на xlЛяво и xlRight константи.
За да подравним надясно текста в клетка, следователно можем да използваме следния код:
| 123 | Sub RightAlignText ()ActiveCell.HorizontalAlignment = xlRightEnd Sub |
Центриране на текста вертикално
Центрирането на текста вертикално е почти същото като хоризонталното.
| 123 | Sub CenterTextVertical ()ActiveCell.VerticalAlignment = xlCenterEnd Sub |
Както е центрирането на текст вертикално върху селекция:
| 123 | Sub CenterTextVertical ()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 |
