Denne opplæringen vil demonstrere hvordan du bruker VBA til å sentrere tekst i en celle både horisontalt og vertikalt.
Vi kan bruke justeringsgruppen i hjemmebåndet i Excel til å sentrere tekst både horisontalt og vertikalt i en celle. Hvis vi skriver en makro for å formatere tekst, kan vi gjenopprette denne funksjonaliteten ved hjelp av VBA-kode.
Midttekst horisontalt
For å sentrere tekst horisontalt i en enkelt celle, kan vi bruke følgende kode:
| 123 | Sub CenterText ()ActiveCell.HorizontalAlignment = xlCenterSlutt Sub |
Alternativt, for å sentrere tekst horisontalt i hver celle i et valgt celleområde, kan vi bruke markeringsobjektet og gjøre følgende:
| 123 | Sub CenterText ()Selection.HorizontalAlignment = xlCenterSlutt Sub |
Vi kan også endre justeringen til høyre eller venstre ved hjelp av xlVenstre og xlRett konstanter.
For å høyrejustere teksten i en celle, kan vi derfor bruke følgende kode:
| 123 | Sub RightAlignText ()ActiveCell.HorizontalAlignment = xlRightSlutt Sub |
Midttekst vertikalt
Sentrering av teksten vertikalt er omtrent det samme som horisontalt.
| 123 | Sub CenterTextVertical ()ActiveCell.VerticalAlignment = xlCenterSlutt Sub |
Som å sentrere tekst vertikalt over et utvalg:
| 123 | Sub CenterTextVertically ()Selection.VerticalAlignment = xlCenterSlutt Sub |
Vi kan også endre teksten til toppen eller bunnen av en celle eller et utvalg ved å bruke xlTopp eller xlBunn konstanter.
| 123 | Sub TopAlignVertically ()ActiveCell.VerticalAlignment = xlTopSlutt Sub |
Sentrer tekst horisontalt og vertikalt på samme tid
Hvis vi vil sentrere teksten både horisontalt og vertikalt samtidig, er det et par måter vi kan gjøre det på.
| 1234 | Sub CenterBåde ()ActiveCell.HorizontalAlignment = xlCenterActiveCell.VerticalAlignment = xlCenterSlutt Sub |
Alternativt, for å kutte ned på gjentagende kode, kan vi bruke en med og avslutte med erklæring.
| 123456 | Sub CenterBoth2 ()Med utvalg.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenterSlutt medSlutt Sub |
Koden ovenfor gjelder for alle cellene i Excel som er valgt den gangen.
Bruk av og avslutt med er veldig effektivt når vi har mye formatering å gjøre i utvalget, for eksempel sammenslåing av celler eller endring av retning.
| 12345678 | Sub MergeAndCenter ()Med utvalg.HorizontalAlignment = xlCenter.VerticalAlignment = xlBottom.Oriasjon = -36.MergeCells = TrueSlutt medSlutt Sub |
