Makro ile hücre biçimlendirme

[fireman64]

Selam üstadlar.

Makro ile hücredeki yazıları sağa/sol yaslama ve ortlama yapmak için kod lazım teşekkürler.

 

[leumruk]

Selam üstadlar.

Makro ile hücredeki yazıları sağa/sol yaslama ve ortlama yapmak için kod lazım teşekkürler.

Merhaba,
Makro kaydet yöntemini kullanarak bu tür kodları elde edebilirsiniz.
Araçlar>Makro>Yeni Makro Kaydet istediğiniz eylemi gerçekleştirin ve başka bir işlem yapmadan kaydı durdurun.

 

[xp45s]

istediginiz kodlar aşagıdadır.lütfen inceleyiniz.

Sub solayaslama()

    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
End Sub

Sub sagayaslama()

    With Selection
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
End Sub

Sub ortalama()

    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
End Sub

 

[baydeniro]

Teşekkürler. Italic, Kalın, Renk gibi ayarla nasıl yapılabilir ?