Makro ile Hücre içindeki veriyi Sola yaslamak

[memduh]

Arkadaşlar Commandbutton ile sayfa1 a1:a3 kadar olan hücrelerdeki veriyi sağa, sola yaslamak ve ortalamak istiyorum. saygılar.

 

[Ali]

Sola hizala

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

Sağa hizala

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

Ortala

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

 

[mehmett]

Sn fructose

Sadece "sağa hizala", "sola hizala" ve "ortala" komutları istendiğine göre sizin kodları aşağıdaki gibi sadeleştirebilir miyiz?

Sub solahizala()
Sheets("Sayfa1").Range("A1:A3").HorizontalAlignment = xlLeft
End Sub
 
Sub sagahizala()
Sheets("Sayfa1").Range("A1:A3").HorizontalAlignment = xlRight
End Sub
 
Sub ortala()
Sheets("Sayfa1").Range("A1:A3").HorizontalAlignment = xlCenter
End Sub

 

[Ali]

Doğrudur Mehmet Bey

Saygılarımla.