Shetteki bütün verileri aynı yazı formatına alma-ortalama

[istanbulcahan]

Shetteki bütün verileri aynı yazı formatına alma : Örneğin shetteki veriler-ARIAL 13 ise bir tıklama yapılarak bütün sayfa ARIAL 11 e getirme-Bütün verileri aynı anda saga-sola-ortalam işlemleri nasıl yapılır.

 

[security]

Shetteki bütün verileri aynı yazı formatına alma : Örneğin shetteki veriler-ARIAL 13 ise bir tıklama yapılarak bütün sayfa ARIAL 11 e getirme-Bütün verileri aynı anda saga-sola-ortalam işlemleri nasıl yapılır.

Sub security()
Range("A1:IV65536").Select
    With Selection.Font
        .Name = "Arial"
        .Size = 13
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
'Coder By Security
    With Selection.Font
        .Name = "Arial"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("A1").Select
End Sub

iŞİNİZE YARAR MI?

 

[istanbulcahan]

sAYFA 1 visual basic e ekledim ama olmadı. bir tuşa basarak bu işlemleri yapsam olmazmı....

 

[security]

sAYFA 1 visual basic e ekledim ama olmadı. bir tuşa basarak bu işlemleri yapsam olmazmı....

kodları bir module ekleyin... ve Sayfanıza bir dügme ekleyip makroyu butona atayınız...

Veya Bir button Eleyip Kod bölümüne

Private Sub CommandButton1_Click()
Range("A1:IV65536").Select
    With Selection.Font
        .Name = "Arial"
        .Size = 13
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
'Coder By Security
    With Selection.Font
        .Name = "Arial"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("A1").Select
End Sub

Yazınız...