Ten samouczek pokaże, jak używać VBA do wyśrodkowania tekstu w komórce zarówno w poziomie, jak i w pionie.
Możemy użyć grupy Wyrównanie na Wstążce głównej w programie Excel, aby wyśrodkować tekst w komórce zarówno w poziomie, jak iw pionie. Jeśli piszemy makro do formatowania tekstu, możemy odtworzyć tę funkcjonalność za pomocą kodu VBA.
Wyśrodkuj tekst poziomo
Aby wyśrodkować tekst w poziomie w pojedynczej komórce, możemy użyć następującego kodu:
| 123 | Sub CenterText()ActiveCell.HorizontalAlignment = xlCenterNapis końcowy |
Alternatywnie, aby wyśrodkować tekst poziomo w każdej komórce wybranego zakresu komórek, możemy użyć obiektu Zaznaczenie i wykonać następujące czynności:
| 123 | Sub CenterText()Selection.HorizontalAlignment = xlCenterNapis końcowy |
Możemy również zmienić wyrównanie na prawo lub lewo za pomocą xlLeft oraz xlPrawo stałe.
Aby wyrównać tekst w komórce do prawej, możemy zatem użyć następującego kodu:
| 123 | Sub RightAlignText()ActiveCell.HorizontalAlignment = xlRightNapis końcowy |
Wyśrodkuj tekst pionowo
Wyśrodkowanie tekstu w pionie przebiega tak samo, jak w poziomie.
| 123 | Sub CenterTextPionowo()ActiveCell.VerticalAlignment = xlCenterNapis końcowy |
Podobnie jak wyśrodkowanie tekstu w pionie w zaznaczeniu:
| 123 | Sub CenterTextPionowo()Selection.VerticalAlignment = xlCenterNapis końcowy |
Możemy również zmienić tekst na górną lub dolną część komórki lub zaznaczenia za pomocą xlTop lub xlBottom stałe.
| 123 | Sub TopAlignVertical()ActiveCell.VerticalAlignment = xlTopNapis końcowy |
Wyśrodkuj tekst w poziomie i w pionie w tym samym czasie
Jeśli chcemy wyśrodkować tekst jednocześnie w poziomie i w pionie, możemy to zrobić na kilka sposobów.
| 1234 | Sub CenterBoth()ActiveCell.HorizontalAlignment = xlCenterActiveCell.VerticalAlignment = xlCenterNapis końcowy |
Alternatywnie, aby ograniczyć powtarzanie kodu, możemy użyć instrukcji With i End With.
| 123456 | Sub CenterBoth2()Z zaznaczeniem.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenterKończyć zNapis końcowy |
Powyższy kod zostanie zastosowany do wszystkich komórek w programie Excel, które są w danym momencie wybrane.
Używanie z i Zakończ na jest bardzo skuteczne, gdy mamy dużo do zrobienia w obrębie zaznaczenia, takie jak scalanie komórek lub zmiana orientacji.
| 12345678 | Sub MergeAndCenter()Z zaznaczeniem.HorizontalAlignment = xlCenter.VerticalAlignment = xlBottom.Orientacja = -36.MergeCells = PrawdaKończyć zNapis końcowy |
