In diesem Tutorial wird gezeigt, wie Sie mit VBA Text in einer Zelle sowohl horizontal als auch vertikal zentrieren.
Wir können die Ausrichtungsgruppe im Home-Menüband in Excel verwenden, um Text sowohl horizontal als auch vertikal in einer Zelle zu zentrieren. Wenn wir ein Makro zum Formatieren von Text schreiben, können wir diese Funktionalität mit VBA-Code neu erstellen.
Text horizontal zentrieren
Um Text horizontal in einer einzelnen Zelle zu zentrieren, können wir den folgenden Code verwenden:
| 123 | UntermitteText()ActiveCell.HorizontalAlignment = xlCenterEnd Sub |
Um Text in jeder Zelle eines ausgewählten Zellbereichs horizontal zu zentrieren, können wir alternativ das Selection-Objekt verwenden und Folgendes tun:
| 123 | UntermitteText()Selection.HorizontalAlignment = xlCenterEnd Sub |
Wir können die Ausrichtung auch nach rechts oder links ändern, indem wir die xlLinks und xlRechts Konstanten.
Um den Text in einer Zelle rechtsbündig auszurichten, können wir daher den folgenden Code verwenden:
| 123 | Unter rechtsAlignText()ActiveCell.HorizontalAlignment = xlRightEnd Sub |
Text vertikal zentrieren
Das vertikale Zentrieren des Textes entspricht weitgehend dem horizontalen.
| 123 | Sub CenterTextVertical()ActiveCell.VerticalAlignment = xlCenterEnd Sub |
Ebenso wie das vertikale Zentrieren von Text über eine Auswahl:
| 123 | Sub CenterTextVertically()Selection.VerticalAlignment = xlCenterEnd Sub |
Wir können den Text auch an den oberen oder unteren Rand einer Zelle oder Auswahl ändern, indem wir die Taste verwenden xlTop oder xlBottom Konstanten.
| 123 | Sub TopAlignVertically()ActiveCell.VerticalAlignment = xlTopEnd Sub |
Text gleichzeitig horizontal und vertikal zentrieren
Wenn wir den Text gleichzeitig horizontal und vertikal zentrieren möchten, gibt es mehrere Möglichkeiten, dies zu tun.
| 1234 | UntermitteBeide()ActiveCell.HorizontalAlignment = xlCenterActiveCell.VerticalAlignment = xlCenterEnd Sub |
Um die Wiederholung von Code zu reduzieren, können wir alternativ eine With- und End With-Anweisung verwenden.
| 123456 | UntermitteBeide2()Mit Auswahl.HorizontalAlignment = xlCenter.Vertikale Ausrichtung = xlCenterEnde mitEnd Sub |
Der obige Code gilt für alle Zellen in Excel, die zu diesem Zeitpunkt ausgewählt sind.
Die Verwendung von With und End With ist sehr effektiv, wenn wir innerhalb der Auswahl viel formatieren müssen, wie z. B. das Zusammenführen von Zellen oder das Ändern der Ausrichtung.
| 12345678 | Sub MergeAndCenter()Mit Auswahl.HorizontalAlignment = xlCenter.VerticalAlignment = xlBottom.Ausrichtung = -36.MergeCells = TrueEnde mitEnd Sub |
