Bu eğitim, VBA'nın bir Hücredeki Metni hem Yatay hem de Dikey Olarak Ortalamak için nasıl kullanılacağını gösterecektir.
Metni bir hücrede hem yatay hem de dikey olarak ortalamak için Excel'deki Giriş Şeridi'ndeki Hizalama grubunu kullanabiliriz. Metni biçimlendirmek için bir makro yazıyorsak, bu işlevi VBA Code kullanarak yeniden oluşturabiliriz.
Metni Yatay Olarak Ortala
Metni tek bir hücrede yatay olarak ortalamak için aşağıdaki kodu kullanabiliriz:
| 123 | Alt MerkezMetin()ActiveCell.HorizontalAlignment = xlCenterAlt Bitiş |
Alternatif olarak, seçili hücre aralığının her hücresinde metni yatay olarak ortalamak için Selection nesnesini kullanabilir ve aşağıdakileri yapabiliriz:
| 123 | Alt MerkezMetin()Selection.HorizontalAlignment = xlCenterAlt Bitiş |
kullanarak hizalamayı sağa veya sola da değiştirebiliriz. xlSol ve xlSağ sabitler.
Bir hücredeki metni sağa hizalamak için aşağıdaki kodu kullanabiliriz:
| 123 | Alt SağAlignText()ActiveCell.HorizontalAlignment = xlRightAlt Bitiş |
Metni Dikey Ortala
Metni dikey olarak ortalamak, yatay olarak hemen hemen aynıdır.
| 123 | Alt CenterTextVertical()ActiveCell.VerticalAlignment = xlCenterAlt Bitiş |
Metni bir seçim boyunca dikey olarak ortalamak gibi:
| 123 | Alt CenterTextDikey()Selection.VerticalAlignment = xlCenterAlt Bitiş |
Metni, bir hücrenin veya seçimin Üst veya Alt kısmına da değiştirebiliriz. xlÜst veya xlAlt sabitler.
| 123 | Alt TopAlignDikey()ActiveCell.VerticalAlignment = xlTopAlt Bitiş |
Metni Aynı Anda Yatay ve Dikey Ortala
Metni aynı anda hem Yatay hem de Dikey olarak ortalamak istiyorsak, bunu yapmanın birkaç yolu vardır.
| 1234 | Alt Merkezİkisi()ActiveCell.HorizontalAlignment = xlCenterActiveCell.VerticalAlignment = xlCenterAlt Bitiş |
Alternatif olarak, yinelenen kodu azaltmak için With ve End With İfadesi kullanabiliriz.
| 123456 | Alt MerkezBoth2()Seçim ile.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenterİle bitmekAlt Bitiş |
Yukarıdaki kod, o sırada seçili olan Excel'deki tüm hücrelere uygulanacaktır.
Birlikte ve Birlikte Bitir'i kullanmak, seçim içinde hücreleri birleştirme veya yönlendirmeyi değiştirme gibi yapılacak çok sayıda biçimlendirmeye sahip olduğumuzda çok etkilidir.
| 12345678 | Alt MergeAndCenter()Seçim ile.HorizontalAlignment = xlCenter.VerticalAlignment = xlBottom.Oryantasyon = -36.MergeCells = Doğruİle bitmekAlt Bitiş |
