Soru Hücrede hem yatay hemde dikey ortalama hızalama yapması

[mars2]

İyi Akşamlar;

Sitenizde yayımlanan kod ile hücrdeki yazı veya sayının 1. resimdeki gibi ortalama yapmasını istiyorum. Ancak, 3. resimdeki gibi hem dikey hem yatay hizalamada ortalama yapmamaktadır. Neden


Sub ortala()
Sheets("Sayfa1").Range("A1:A3").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub

1. resim 2. resim 3. resim

 

[sward175]

Merhaba, mars2,
Tüm sayfada hücreye yazı yazıldığında otomatik olarak yatay ve dikey ortalama yapabilen kod ve dosya ektedir.
İyi günler diliyorum.
swatd175

 

[mars2]

İlginiz için teşekkürler ancak, dosyada kod bulunmamaktadır

 

[Korhan Ayhan]

@mars2,

Örnek dosyayı soruyu soran olarak sizin paylaşmanız gerekmez mi?

 

[mars2]

[SIZE=3]sward175[/SIZE] tarafından yukarıda, Tüm sayfada hücreye yazı yazıldığında otomatik olarak yatay ve dikey ortalama yapabilen kod ve dosya ekte olduğu beyan etmişti. Ancak, mesajı ile vermiş olduğu örnek dosyada, otomatik olarak yatay ve dikey ortalama yapabilen kodun bulunmadığını örnek dosyayı yüklerken kodu eklemeyi unutmuş olacağı düşüncesiyle yazmıştım.​

 

[Korhan Ayhan]

Ondan bahsetmiyorum...

Sorunuzu sorarken resim eklemek yerine örnek dosya ekleseniz çözüm arayanlar için daha kolay olmaz mı?

 

[mars2]

Sayın Korhan bey;
serzenişinizde haklı olabilirsiniz. Görsel olarak anlatımda sorunun daha iyi anlaşılabileceği ve çözülebileceği düşüncesiyle,
Örnek dosya ektedir.

 

[Necdet]

Önce seçimi yapın, sonra kodu çalıştırın.

Sub Makro1()

    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With

End Sub