Stil butonları oluşturmak

[torqanum]

Herhangi bir hücrenin arka plan rengini kenarlık tipi/rengini, içindeki yazının tip/büyüklük/rengini bir seferde (bir tıklamayla) değiştirebileceğim bir buton yapmak mümkün müdür? Şimdiden teşekkür ederim...

 

[Korhan Ayhan]

Selamlar,

Bu işlemi direk seçtiğiniz hücrelere uygulamakmı istiyor sunuz? Yoksa biçimlendirme menüsünü butona bastığınızda açmakmı istiyor sunuz?

 

[torqanum]

Mesela bir hücrenin renginin yeşil, kenarlığının çift çizgili ve kırmızı, içine yazılan yazıların siyah, kalın, arial ve 12 pt olmasını sağlayan bir buton olsun. Bir de hücrenin renginin sarı, kenarlığının düz çizgili ve siyah, içine yazılan yazıların kırmızı, eğik, verdana ve 10 pt olmasını sağlayan bir buton olsun. Teşekkür ederim...

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodları denermisiniz.

Option Explicit
 
Sub BİÇİM_1()
    With Selection
        .Interior.ColorIndex = 4
        .Interior.Pattern = xlSolid
        .Borders.LineStyle = xlDouble
        .Borders.Weight = xlThick
        .Borders.ColorIndex = 3
        .Font.Bold = True
        .Font.Name = "Arial"
        .Font.Size = 12
    End With
End Sub
 
Sub BİÇİM_2()
    With Selection
        .Interior.ColorIndex = 6
        .Interior.Pattern = xlSolid
        .Borders.LineStyle = xlContinuous
        .Borders.Weight = xlThin
        .Borders.ColorIndex = xlAutomatic
        .Font.ColorIndex = 3
        .Font.Italic = True
        .Font.Name = "Verdana"
        .Font.Size = 10
        .Font.ColorIndex = 3
    End With
End Sub

 

[torqanum]

Allah razı olsun... Bu renk kodlarını, kenarlık parametrelerini nereden bulabilirim?

 

[Korhan Ayhan]

Selamlar,

Bunun için en pratik yöntem "makro kaydet" yöntemidir. Bu yöntemi kullanarak elde edilen kodlardan istediğiniz bölümleri alarak kullanabilirsiniz.

Mesela aşağıdaki kodu renkli hücreyi seçerek çalıştırdığınızda size renk kodunu verecektir.

Option Explicit
 
Sub RENK_KODU()
    MsgBox "Renk kodu ; " & ActiveCell.Interior.ColorIndex
End Sub

 

[torqanum]

Allah razı olsun...

 

[torqanum]

Allah razı olsun...

 

[torqanum]

Allah razı olsun...