Denna handledning kommer att visa hur du använder VBA för att centrera text i en cell både horisontellt och vertikalt.
Vi kan använda gruppen Justering i hembandet i Excel för att centrera text både horisontellt och vertikalt i en cell. Om vi skriver ett makro för att formatera text kan vi återskapa denna funktionalitet med VBA-kod.
Centrera text horisontellt
För att centrera text horisontellt i en enda cell kan vi använda följande kod:
| 123 | Sub CenterText ()ActiveCell.HorizontalAlignment = xlCenterAvsluta Sub |
Alternativt, för att centrera text horisontellt i varje cell i ett valt cellområde, kan vi använda markeringsobjektet och göra följande:
| 123 | Sub CenterText ()Selection.HorizontalAlignment = xlCenterAvsluta Sub |
Vi kan också ändra inriktningen till höger eller vänster med hjälp av xlVänster och xlRätt konstanter.
För att högerjustera texten i en cell kan vi därför använda följande kod:
| 123 | Sub RightAlignText ()ActiveCell.HorizontalAlignment = xlRightAvsluta Sub |
Centrera text vertikalt
Att centrera texten vertikalt är ungefär samma som horisontellt.
| 123 | Sub CenterTextVertical ()ActiveCell.VerticalAlignment = xlCenterAvsluta Sub |
Precis som att centrera text vertikalt över ett urval:
| 123 | Sub CenterTextVertically ()Selection.VerticalAlignment = xlCenterAvsluta Sub |
Vi kan också ändra texten till toppen eller botten av en cell eller markering med hjälp av xlTopp eller xlBottom konstanter.
| 123 | Sub TopAlignVertically ()ActiveCell.VerticalAlignment = xlTopAvsluta Sub |
Centrera text horisontellt och vertikalt samtidigt
Om vi vill centrera texten både horisontellt och vertikalt samtidigt, finns det ett par sätt att göra det.
| 1234 | Sub CenterBåda ()ActiveCell.HorizontalAlignment = xlCenterActiveCell.VerticalAlignment = xlCenterAvsluta Sub |
Alternativt, för att minska på upprepad kod, kan vi använda en Med och avsluta med uttalande.
| 123456 | Sub CenterBoth2 ()Med urval.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenterSluta medAvsluta Sub |
Koden ovan gäller för alla celler i Excel som väljs vid den tidpunkten.
Att använda med och avsluta med är mycket effektivt när vi har mycket formatering att göra inom markeringen, till exempel att slå samman celler eller ändra orientering.
| 12345678 | Sub MergeAndCenter ()Med urval.HorizontalAlignment = xlCenter.VerticalAlignment = xlBottom.Orientation = -36.MergeCells = SantSluta medAvsluta Sub |
