Ez az oktatóanyag bemutatja, hogyan kell használni a VBA -t a szöveg központosítására egy cellában mind vízszintesen, mind függőlegesen.
Az Excel Kezdőlap szalagján lévő Igazítás csoport segítségével a szöveget vízszintesen és függőlegesen középre helyezhetjük a cellában. Ha makrót írunk a szöveg formázására, akkor ezt a funkciót újra létrehozhatjuk a VBA kód használatával.
Középső szöveg vízszintesen
A szöveg vízszintes középre helyezéséhez egyetlen cellában a következő kódot használhatjuk:
| 123 | Sub CenterText ()ActiveCell.HorizontalAlignment = xlCenterEnd Sub |
Alternatív megoldásként a szöveg vízszintes középre helyezéséhez a kiválasztott cellatartomány minden cellájában használhatjuk a Kiválasztás objektumot, és a következőket tehetjük:
| 123 | Sub CenterText ()Selection.HorizontalAlignment = xlCenterEnd Sub |
Az igazítást jobbra vagy balra is módosíthatjuk a xlLeft és xlJogos állandók.
A cella szövegének jobbra igazításához ezért a következő kódot használhatjuk:
| 123 | Sub RightAlignText ()ActiveCell.HorizontalAlignment = xlRightEnd Sub |
Szöveg függőleges középre állítása
A szöveg függőleges középre állítása nagyjából ugyanaz, mint a vízszintesé.
| 123 | Sub CenterTextVertical ()ActiveCell.VerticalAlignment = xlCenterEnd Sub |
Ahogyan a szöveg függőleges középre helyezése a kijelölésben:
| 123 | Sub CenterTextVertically ()Selection.VerticalAlignment = xlCenterEnd Sub |
A szöveget cella vagy kijelölés tetejére vagy aljára is megváltoztathatjuk a xlTop vagy xlAlsó állandók.
| 123 | Sub TopAlignVertically ()ActiveCell.VerticalAlignment = xlTopEnd Sub |
Szöveg középre állítása vízszintesen és függőlegesen egyszerre
Ha egyszerre szeretnénk vízszintesen és függőlegesen középre állítani a szöveget, akkor ezt néhány módon megtehetjük.
| 1234 | Sub CenterBoth ()ActiveCell.HorizontalAlignment = xlCenterActiveCell.VerticalAlignment = xlCenterEnd Sub |
Alternatív megoldásként a kódok ismétlődésének csökkentéséhez használhatunk egy With and End With Statement parancsot.
| 123456 | Sub CenterBoth2 ()Kiválasztással.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenterVége ezzelEnd Sub |
A fenti kód az Excel összes, akkor kiválasztott cellájára vonatkozik.
A With and End With használata nagyon hatékony, ha sok formázási feladatunk van a kijelölésen belül, például a cellák egyesítése vagy a tájolás megváltoztatása.
| 12345678 | Sub MergeAndCenter ()Kiválasztással.HorizontalAlignment = xlCenter.VerticalAlignment = xlBottom.Orientáció = -36.MergeCells = IgazVége ezzelEnd Sub |
