Hücre İçindeki, Yazı Rengini Değiştirme

[Sarigol_937]

Merhaba arkadaşlar hücre içerisindeki yazının rengini kırmızı yapan vba kodu verebilirmisiniz ben forumda aradım ama bulamadım.

 

[Muzaffer Ali]

Range("a1").Font.Color = -16776961

 

[Sarigol_937]

Kardeş teşekkürler cevap için.İstediğim buydu yanlız "-16776961-KIRMIZI" son olarak bide bunun siyah olanın rakam kaç? Kusura bakmayın renk kodlarını hiç bilmiyom

 

[Muzaffer Ali]

a1 hücresini yapmak istediğin renk yap sonra aşağıdaki kodu çalıştır. b1 hücresine rengin karşılık gelen numarasını yazar

range("b1").value= range("a1").font.color

 

[Necdet]

Merhaba,

Aşağıdaki kodları sayfanın kod bölümüne kopyalayın ve herhangi bir hücreye çift tıklayın.

Ben arka plan renklerini gösterdim, siz font olarak değiştirmelisiniz.


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Integer

For i = 1 To 56
With Range("B" & i)
.Offset(0, -1).Value = i
.Interior.ColorIndex = i
End With
Next i

End Sub

 

[Sarigol_937]

Cevaplar için teşekkürler

 

[mevlutali]

Üstadlar Merhaba,

Oğlum 1.sınıf öğrencisi ona şöyle bişey yapmak istiyorum.
"la" yazınca yazı tipini mavi yapacak
"le" yazınca yazı tipini kırmızı yapacak.
lale yazınca da la (mavi) le (kırmızı) tipinde renklendirecek. aynı hücrede farklı renk olacak.
Bu sadece bir örnek bunu çoğaltma istiyorum.