Vba'da yazı tipi rengi nasıl değiştirilir (3 yöntem)

VBA kullanarak Excel’de yazı tipi rengini değiştirmek için aşağıdaki yöntemlerden herhangi birini kullanabilirsiniz:

Yöntem 1: VBA Renk Adlarını Kullanarak Yazı Tipi Rengini Değiştirme

 SubChangeColor ()
Range(" A1 ").Font.Color = vbRed
End Sub

Bu özel makro, A1 hücresindeki yazı tipi rengini kırmızıya çevirecektir.

Yöntem 2: RGB Değerlerini Kullanarak Yazı Tipi Rengini Değiştirme

 SubChangeColor ()
Range(" A1 ").Font.Color = RGB(255,0,0)
End Sub

Bu özel makro, A1 hücresindeki yazı tipi rengini, (255,0,0) RGB (kırmızı yeşil mavi) değerleriyle eşleşen, kırmızı olan renge değiştirecektir.

Yöntem 3: Onaltılı Renk Kodlarını Kullanarak Yazı Tipi Rengini Değiştirme

 SubChangeColor ()
Range(" A1 ").Font.Color = &H0000FF
End Sub

Bu özel makro, A1 hücresindeki yazı tipi rengini #FF0000’in onaltılık renk koduna karşılık gelen renge değiştirecektir.

Not #1: VBA’nın onaltılık renk kodu olarak tanıması için kullanmak istediğiniz onaltılık renk kodunun önüne &H yazmanız gerekir.

Not #2: Onaltılık renk kodları genellikle altı karakterle temsil edilir; ilk ikisi kırmızı kodunu, ortadaki ikisi yeşil kodunu ve son ikisi mavi kodunu temsil eder.

Ancak Excel, ilk iki değeri son iki değerle değiştirir. Yani kırmızının onaltılık renk kodu FF0000’dir ancak onun yerine 0000FF yazmalısınız.

Aşağıdaki örnekler her yöntemin pratikte nasıl kullanılacağını göstermektedir.

Örnek 1: VBA Renk Adlarını Kullanarak Yazı Tipi Rengini Değiştirme

Diyelim ki A1 hücresinde yazı tipi rengi şu anda siyah olan bir metnimiz var:

A1 hücresindeki yazı rengini kırmızıya çevirmek için aşağıdaki makroyu oluşturabiliriz:

 SubChangeColor ()
Range(" A1 ").Font.Color = vbRed
End Sub

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

A1 hücresindeki yazı tipi renginin artık kırmızı olduğuna dikkat edin.

Örnek 2: RGB Değerlerini Kullanarak Yazı Tipi Rengini Değiştirme

Diyelim ki A1:A5 aralığında yazı tipi rengi şu anda siyah olan metin dizelerimiz var:

A1:A5 hücrelerindeki yazı rengini kırmızıya çevirmek için aşağıdaki makroyu oluşturabiliriz:

 SubChangeColor ()
Range(" A1:A5 ").Font.Color = RGB(255,0,0)
End Sub

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

A1:A5 aralığındaki hücrelerin her birindeki yazı tipi renginin artık kırmızı olduğuna dikkat edin.

Örnek 3: Onaltılı renk kodlarını kullanarak yazı tipi rengini değiştirme

Yine A1:A5 aralığında yazı tipi rengi şu anda siyah olan metin dizelerimizin olduğunu varsayalım:

A1:A5 hücrelerindeki yazı rengini kırmızıya çevirmek için aşağıdaki makroyu oluşturabiliriz:

 SubChangeColor ()
Range(" A1:A5 ").Font.Color = &H0000FF
End Sub

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

A1:A5 aralığındaki hücrelerin her birindeki yazı tipi renginin artık kırmızı olduğuna dikkat edin.

Not : VBA Font.Color özelliğine ilişkin tüm belgeleri burada bulabilirsiniz.

Ek kaynaklar

Aşağıdaki eğitimlerde VBA’da diğer ortak görevlerin nasıl gerçekleştirileceği açıklanmaktadır:

VBA: Bir dizedeki boşluklar nasıl kaldırılır
VBA: Bir dizedeki karakterler nasıl değiştirilir?
VBA: Biçimlendirmeli bir satır nasıl eklenir