Tämä opetusohjelma osoittaa, kuinka VBA: ta käytetään tekstin keskittämiseen soluun sekä vaaka- että pystysuunnassa.
Voimme käyttää Excelin Koti -valintanauhan Tasaus -ryhmää tekstin keskittämiseen sekä vaaka- että pystysuoraan soluun. Jos kirjoitamme makroa tekstin muotoilua varten, voimme luoda tämän toiminnon uudelleen käyttämällä VBA-koodia.
Keskitä teksti vaakasuoraan
Jos haluat keskittää tekstin vaakasuoraan yhteen soluun, voimme käyttää seuraavaa koodia:
| 123 | Sub CenterText ()ActiveCell.HorizontalAlignment = xlCenterEnd Sub |
Vaihtoehtoisesti voit keskittää tekstin vaakasuoraan valitun solualueen jokaiseen soluun käyttämällä valintaobjektia ja toimimalla seuraavasti:
| 123 | Sub CenterText ()Selection.HorizontalAlignment = xlCenterEnd Sub |
Voimme myös muuttaa kohdistuksen oikealle tai vasemmalle käyttämällä xlVasen ja xlAivan vakioita.
Voit tasata solun tekstin oikealle käyttämällä seuraavaa koodia:
| 123 | AlaoikeaAlignText ()ActiveCell.HorizontalAlignment = xlRightEnd Sub |
Keskitä teksti pystysuoraan
Tekstin keskittäminen pystysuunnassa on pitkälti sama kuin vaakasuunnassa.
| 123 | Sub CenterTextVertical ()ActiveCell.VerticalAlignment = xlCenterEnd Sub |
Kuten tekstin keskittäminen pystysuunnassa valinnan poikki:
| 123 | Sub CenterTextVertically ()Selection.VerticalAlignment = xlCenterEnd Sub |
Voimme myös muuttaa tekstin solun tai valinnan ylä- tai alareunaksi käyttämällä xlTop tai xlAla vakioita.
| 123 | Sub TopAlignVertically ()ActiveCell.VerticalAlignment = xlTopEnd Sub |
Keskitä teksti vaakasuoraan ja pystysuoraan samaan aikaan
Jos haluamme keskittää tekstin samanaikaisesti sekä vaaka- että pystysuunnassa, voimme tehdä sen kahdella tavalla.
| 1234 | AlikeskusMolemmat ()ActiveCell.HorizontalAlignment = xlCenterActiveCell.VerticalAlignment = xlCenterEnd Sub |
Vaihtoehtoisesti koodin toistamisen vähentämiseksi voimme käyttää With ja End With Statement.
| 123456 | AlikeskusKumpikin2 ()Valinnan kanssa.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenterLopetaEnd Sub |
Yllä oleva koodi koskee kaikkia Excel -soluja, jotka on valittu tuolloin.
With and End With -toiminnon käyttö on erittäin tehokasta, kun valinnassa on paljon muotoilua, kuten solujen yhdistäminen tai suunnan muuttaminen.
| 12345678 | Sub MergeAndCenter ()Valinnan kanssa.HorizontalAlignment = xlCenter.VerticalAlignment = xlBottomSuunta = -36.MergeCells = TottaLopetaEnd Sub |
