Ta vadnica bo pokazala, kako uporabiti VBA za centriranje besedila v celici tako vodoravno kot navpično.
Skupino Poravnava na traku Domov v Excelu lahko uporabimo za centriranje besedila tako vodoravno kot navpično v celici. Če pišemo makro za oblikovanje besedila, lahko to funkcijo znova ustvarimo s kodo VBA.
Besedilo centriraj vodoravno
Če želite besedilo vodoravno centrirati v eno celico, lahko uporabite naslednjo kodo:
| 123 | Pod CenterText ()ActiveCell.HorizontalAlignment = xlCenterEnd Sub |
Druga možnost je, da vodoravno centriramo besedilo v vsaki celici izbranega obsega celic, lahko uporabimo objekt Izbira in naredimo naslednje:
| 123 | Pod CenterText ()Izbor.HorizontalAlignment = xlCenterEnd Sub |
Poravnavo lahko spremenimo tudi v desno ali levo s pomočjo xlLevo in xlRight konstante.
Če želite besedilo v celici poravnati desno, lahko zato uporabimo naslednjo kodo:
| 123 | Sub RightAlignText ()ActiveCell.HorizontalAlignment = xlRightEnd Sub |
Besedilo na sredino navpično
Centriranje besedila navpično je skoraj enako vodoravno.
| 123 | Pod CenterTextVertical ()ActiveCell.VerticalAlignment = xlCenterEnd Sub |
Tako kot je besedilo centrirano navpično čez izbor:
| 123 | Pod CenterTextVertikalno ()Selection.VerticalAlignment = xlCenterEnd Sub |
Besedilo lahko spremenimo tudi v zgornji ali spodnji del celice ali izbor z uporabo xlTop ali xlBottom konstante.
| 123 | Sub TopAlignVertical ()ActiveCell.VerticalAlignment = xlTopEnd Sub |
Besedilo centrirajte vodoravno in navpično hkrati
Če želimo besedilo centrirati hkrati vodoravno in navpično, lahko to storimo na nekaj načinov.
| 1234 | Pod CenterBoth ()ActiveCell.HorizontalAlignment = xlCenterActiveCell.VerticalAlignment = xlCenterEnd Sub |
Druga možnost je, da za zmanjšanje ponavljajoče se kode uporabimo stavek With in End With.
| 123456 | Pod CenterBoth2 ()S selekcijo.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenterKončaj sEnd Sub |
Zgornja koda bo veljala za vse celice v Excelu, ki so bile takrat izbrane.
Uporaba Z in Končaj z je zelo učinkovita, če imamo v okviru izbire veliko oblikovanja, na primer združevanje celic ali spremembo orientacije.
| 12345678 | Sub MergeAndCenter ()S selekcijo.HorizontalAlignment = xlCenter.VerticalAlignment = xlBottom.Orijentacija = -36.MergeCells = ResKončaj sEnd Sub |
