Renkli Yazı

[Kardiyak]

Excel'de Hücre içeriğindeki yazının bir kısmını seçip kırmızı ve kalın yapabiliyorum. Bunu Makro ile yapmak mümkün mü?

Range("B1") = Range("A1") & " " & Range("B1") şeklinde bir kod ile B1 hücresine a1 ve 2 hücreleri birleştirilerek yazılıyor diyelim. A1'den alınan veri kırmızı kalın olarak yazılabilir mi?

[COLOR="DimGray"][U]0   I A     I B    I[/U][/COLOR]
[COLOR="dimgray"][U]1   I[/COLOR] x    [COLOR="dimgray"] I[/COLOR] [COLOR="Red"][B]x[/B][/COLOR] y [COLOR="dimgray"] I[/COLOR][/U]
[U][COLOR="dimgray"]2   I[/COLOR] y     [COLOR="dimgray"]I     [COLOR="dimgray"] I[/COLOR][/U][/COLOR]

 

[Emir Hüseyin Çoban]

. . .

Birleştirme kodlarının sonuna ilave edin.

    uz = Len(Range("a1"))
    With Range("B1").Characters(Start:=1, Length:=uz).Font
        .FontStyle = "Kalın"
        .Color = vbRed
    End With

. . .

 

[Kardiyak]

İlk sefer için harika çalışıyor. Fakat B1 hücresinin biçimlendirmesi tamamen kalın kırmızı olarak kaldığı için 2.ye tekrar çalıştırıldığında tüm hücre içeriği kalın kırmızı oluyor.
kodun başına tekrar şu şekilde ekleme yapınca o sorunu da aştım.

[B]    With Range("B1").Font
        .FontStyle = "Normal"
        .Color = vbBlack
    End With[/B]

Range("B1") = Range("A1") & " " & Range("B1") 

    uz = Len(Range("a1"))
    With Range("B1").Characters(Start:=1, Length:=uz).Font
        .FontStyle = "Kalın"
        .Color = vbRed
    End With

Gerçekten çok teşekkürler.