Acest tutorial va arăta cum să utilizați VBA pentru a centra textul într-o celulă atât pe orizontală, cât și pe verticală.
Putem folosi grupul Alignment din panglica Home în Excel pentru a centra textul atât pe orizontală, cât și pe verticală într-o celulă. Dacă scriem o macro pentru formatarea textului, putem recrea această funcționalitate folosind codul VBA.
Centrați textul pe orizontală
Pentru a centra textul orizontal într-o singură celulă, putem folosi următorul cod:
| 123 | Sub CenterText ()ActiveCell.HorizontalAlignment = xlCenterSfârșitul Sub |
Alternativ, pentru a centra textul pe orizontală în fiecare celulă dintr-un interval selectat de celule, putem folosi obiectul Selecție și putem face următoarele:
| 123 | Sub CenterText ()Selection.HorizontalAlignment = xlCenterSfârșitul Sub |
De asemenea, putem schimba alinierea la dreapta sau la stânga folosind xlLeft și xlDrept constante.
Prin urmare, pentru a alinia textul într-o celulă, putem folosi următorul cod:
| 123 | Sub RightAlignText ()ActiveCell.HorizontalAlignment = xlRightSfârșitul Sub |
Centrați textul pe verticală
Centrarea textului pe verticală este la fel ca pe orizontală.
| 123 | Sub CenterTextVertical ()ActiveCell.VerticalAlignment = xlCenterSfârșitul Sub |
Așa cum se centrează textul vertical pe o selecție:
| 123 | Sub CenterTextVertically ()Selection.VerticalAlignment = xlCenterSfârșitul Sub |
De asemenea, putem schimba textul în partea de sus sau de jos a unei celule sau a unei selecții folosind xlTop sau xlBottom constante.
| 123 | Sub TopAlignVertically ()ActiveCell.VerticalAlignment = xlTopSfârșitul Sub |
Centrați textul orizontal și vertical în același timp
Dacă dorim să centrăm textul atât pe orizontală, cât și pe verticală în același timp, există câteva moduri în care putem face acest lucru.
| 1234 | Sub CenterBoth ()ActiveCell.HorizontalAlignment = xlCenterActiveCell.VerticalAlignment = xlCenterSfârșitul Sub |
Alternativ, pentru a reduce codul care se repetă, putem folosi o declarație With and End With.
| 123456 | Sub CenterBoth2 ()Cu Selecție.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenterSe termina cuSfârșitul Sub |
Codul de mai sus se va aplica tuturor celulelor din Excel care sunt selectate în acel moment.
Folosirea cu și Încheierea cu este foarte eficientă atunci când avem o mulțime de formate de făcut în selecție, cum ar fi îmbinarea celulelor sau schimbarea orientării.
| 12345678 | Sub MergeAndCenter ()Cu Selecție.HorizontalAlignment = xlCenter.VerticalAlignment = xlBottom.Orientare = -36.MergeCells = AdevăratSe termina cuSfârșitul Sub |
