Ovaj će vodič pokazati kako koristiti VBA za centriranje teksta u ćeliji vodoravno i okomito.
Možemo koristiti grupu Poravnanje na početnoj vrpci u Excelu za centriranje teksta vodoravno i okomito u ćeliju. Ako pišemo makro za oblikovanje teksta, možemo ponovno stvoriti ovu funkcionalnost pomoću VBA koda.
Centrirajte tekst vodoravno
Za vodoravno centriranje teksta u jednoj ćeliji možemo upotrijebiti sljedeći kôd:
| 123 | Podcentralni tekst ()ActiveCell.HorizontalAlignment = xlCenterKraj podm |
Alternativno, za vodoravno centriranje teksta u svakoj ćeliji odabranog raspona ćelija možemo koristiti objekt Odabir i učiniti sljedeće:
| 123 | Podcentralni tekst ()Odabir.HorizontalAlignment = xlCenterKraj podm |
Također možemo promijeniti poravnanje udesno ili ulijevo pomoću xlLijevo i xlDobro konstante.
Da bismo desno poravnali tekst u ćeliji, možemo koristiti sljedeći kôd:
| 123 | Sub RightAlignText ()ActiveCell.HorizontalAlignment = xlRightKraj podm |
Centar teksta okomito
Centriranje teksta okomito gotovo je isto kao i vodoravno.
| 123 | PodcentarTextVertical ()ActiveCell.VerticalAlignment = xlCenterKraj podm |
Kao i centriranje teksta okomito preko odabira:
| 123 | PodcentarTextVertikalno ()Odabir.VerticalAlignment = xlCenterKraj podm |
Također možemo promijeniti tekst u gornju ili donju ćeliju ili odabir pomoću xlTop ili xlBottom konstante.
| 123 | Sub TopAlignVertical ()ActiveCell.VerticalAlignment = xlTopKraj podm |
Centrirajte tekst vodoravno i okomito u isto vrijeme
Ako želimo tekst centrirati istovremeno vodoravno i okomito, postoji nekoliko načina na koje to možemo učiniti.
| 1234 | Pod centarBoth ()ActiveCell.HorizontalAlignment = xlCenterActiveCell.VerticalAlignment = xlCenterKraj podm |
Alternativno, da bismo smanjili ponavljanje koda, možemo upotrijebiti naredbu With i End With.
| 123456 | Pod centarBoth2 ()S odabirom.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenterZavrši sKraj podm |
Gornji kôd primijenit će se na sve ćelije u Excelu koje su tada odabrane.
Upotreba With i End With vrlo je učinkovita kada u okviru odabira imamo puno oblikovanja, poput spajanja ćelija ili promjene orijentacije.
| 12345678 | Sub MergeAndCenter ()S odabirom.HorizontalAlignment = xlCenter.VerticalAlignment = xlBottom.Orijentacija = -36.MergeCells = IstinaZavrši sKraj podm |
