Denne vejledning viser, hvordan du bruger VBA til at centrere tekst i en celle både vandret og lodret.
Vi kan bruge gruppen Justering i hjemmebåndet i Excel til at centrere tekst både vandret og lodret i en celle. Hvis vi skriver en makro til formatering af tekst, kan vi genskabe denne funktionalitet ved hjælp af VBA-kode.
Centrer tekst horisontalt
For at centrere tekst vandret i en enkelt celle kan vi bruge følgende kode:
| 123 | Sub CenterText ()ActiveCell.HorizontalAlignment = xlCenterAfslut Sub |
Alternativt kan vi centrere tekst vandret i hver celle i et valgt cellecelle, og vi kan bruge markeringsobjektet og gøre følgende:
| 123 | Sub CenterText ()Selection.HorizontalAlignment = xlCenterAfslut Sub |
Vi kan også ændre justeringen til højre eller venstre ved hjælp af xlVenstre og xlRet konstanter.
For at højrejustere teksten i en celle kan vi derfor bruge følgende kode:
| 123 | Sub RightAlignText ()ActiveCell.HorizontalAlignment = xlRightAfslut Sub |
Centrer tekst lodret
Centrering af teksten lodret er stort set det samme som vandret.
| 123 | Sub CenterTextVertical ()ActiveCell.VerticalAlignment = xlCenterAfslut Sub |
Som det er at centrere tekst lodret på tværs af et udvalg:
| 123 | Sub CenterTextVertically ()Selection.VerticalAlignment = xlCenterAfslut Sub |
Vi kan også ændre teksten til toppen eller bunden af en celle eller markering ved hjælp af xlTop eller xlBundt konstanter.
| 123 | Sub TopAlignVertically ()ActiveCell.VerticalAlignment = xlTopAfslut Sub |
Centrer tekst horisontalt og lodret på samme tid
Hvis vi vil centrere teksten både vandret og lodret på samme tid, er der et par måder, vi kan gøre det på.
| 1234 | Sub CenterBåde ()ActiveCell.HorizontalAlignment = xlCenterActiveCell.VerticalAlignment = xlCenterAfslut Sub |
Alternativt kan vi for at skære ned på gentagende kode bruge en Med og slut med erklæring.
| 123456 | Sub CenterBoth2 ()Med markering.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenterAfslut medAfslut Sub |
Ovenstående kode gælder for alle de celler i Excel, der er valgt på det tidspunkt.
Brug af og slut med er meget effektivt, når vi har meget formatering at gøre inden for markeringen, f.eks. Sammenlægning af celler eller ændring af retning.
| 12345678 | Sub MergeAndCenter ()Med markering.HorizontalAlignment = xlCenter.VerticalAlignment = xlBottom.Orientation = -36.MergeCells = SandtAfslut medAfslut Sub |
