See õpetus näitab, kuidas kasutada VBA -d lahtri teksti tsentreerimiseks nii horisontaalselt kui ka vertikaalselt.
Me saame Exceli avalehel asuva joondusrühma abil teksti lahtris horisontaalselt ja vertikaalselt tsentreerida. Kui kirjutame teksti vormindamiseks makro, saame selle funktsiooni VBA koodi abil uuesti luua.
Keskne tekst horisontaalselt
Teksti horisontaalseks tsentreerimiseks ühes lahtris saame kasutada järgmist koodi:
| 123 | Alamkeskuse tekst ()ActiveCell.HorizontalAlignment = xlCenterEnd Sub |
Teise võimalusena, kui soovite valitud lahtrivahemiku igas lahtris teksti horisontaalselt tsentreerida, saame kasutada objekti Valik ja teha järgmist.
| 123 | Alamkeskuse tekst ()Valik.HorizontalAlignment = xlCenterEnd Sub |
Samuti saame joondust paremale või vasakule muuta, kasutades nuppu xlVasak ja xlÕigus konstandid.
Lahtris oleva teksti paremaks joondamiseks saame seetõttu kasutada järgmist koodi:
| 123 | Sub RightAlignText ()ActiveCell.HorizontalAlignment = xlRightEnd Sub |
Keskendage tekst vertikaalselt
Teksti vertikaalne tsentreerimine sarnaneb horisontaalse tekstiga.
| 123 | AlamkeskusTextVertical ()ActiveCell.VerticalAlignment = xlCenterEnd Sub |
Nagu ka teksti vertikaalne tsentreerimine valikus:
| 123 | AlamkeskusTextVertically ()Valik.VerticalAlignment = xlCenterEnd Sub |
Samuti saame teksti muuta lahtri või valiku üla- või alaossa, kasutades klahvi xlTop või xlPõhi konstandid.
| 123 | Sub TopAlignVertically ()ActiveCell.VerticalAlignment = xlTopEnd Sub |
Keskendage tekst horisontaalselt ja vertikaalselt samal ajal
Kui tahame teksti tsentreerida korraga nii horisontaalselt kui ka vertikaalselt, saame seda teha paaril viisil.
| 1234 | Alamkeskus Mõlemad ()ActiveCell.HorizontalAlignment = xlCenterActiveCell.VerticalAlignment = xlCenterEnd Sub |
Teise võimalusena võime korduva koodi vähendamiseks kasutada lauset koos ja lõpuga.
| 123456 | AlamkeskusKumb2 ()Valikuga.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenterLõpetaEnd Sub |
Ülaltoodud kood kehtib kõigile Exceli lahtritele, mis on valitud sel ajal.
Kasutamine koos ja lõpetamine koos on väga tõhus, kui meil on valikus palju vormindamist, näiteks lahtrite ühendamine või orientatsiooni muutmine.
| 12345678 | Sub MergeAndCenter ()Valikuga.HorizontalAlignment = xlCenter.VerticalAlignment = xlPõhi.Suund = -36.MergeCells = TõsiLõpetaEnd Sub |
