Kod Kullanarak Yaziyi Renklendİrme

[td]

örnek dosyada yazıları nasıl kod kullanarak renklendirebileceğimi açıklarsanız minnettar kalırım.şimdiden teşekkürler...

 

[Recep İpek]

Bu kodlar işinize yarar mı?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("d11").Value = ("tugay")
For i = 1 To Len([D11])
With [D11].Characters(Start:=i, Length:=1).Font
    .ColorIndex = Int(Rnd * 20) + 1
End With
Next i
End Sub

 

[td]

ilgilendiğiniz için teşekkur ederim ama sabit renk vermek istiyorum örneğin worksheet te yazarken "t" harfinin başına bir renk kodu ekleyerek onu kırmızı "u" harfini yeşil...... gibi html dilinde yazdığımız gibi......

<p><font color="#FF0000">t</font><font color="#00FF00">u</font><font
color="#008040">g</font><font color="#8000FF">a</font><font
color="#FF00FF">y</font></p>

 

[Recep İpek]

Bu kodlar&#305; deneyebilirmisiniz?

Option Base 1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("d11").Value = ("turgay")
For i = 1 To 5
renk = Array(10, 3, 6, 8, 18, 20)   'Renk kodları burda tanımlanıyor....
With [D11].Characters(Start:=i, Length:=1).Font
    .ColorIndex = renk(i)
End With
Next i
End Sub

 

[td]

ÇOK TEŞEKKÜR EDERİM USTAM... ama küçük bir sorum olacak tugay yazısını uzatırsam "tugay öztürkoğlu" yada dah uzatırsam sadece 5 tanesini renklendiriyor. sizi gece vakti yordum kusura bakmayın

 

[td]

ÇOK ÇOK TEŞEKKÜR EDERİM YAPTIM kod üzerinde bira oynama ve yorumlama yapınca sorunu çözdüm çok teşekkür ederim...sn.ripek

 

[Recep İpek]

Siz sabit dedi&#287;iniz i&#231;in ben turgay kadar yani 5 karakter tan&#305;mlad&#305;m.E&#287;er siz daha fazla harf renklendirmek istiyorsan&#305;z

For i = 1 To 5 --> Karakter Say&#305;s&#305;
renk = Array(10, 3, 6, 8, 18, 20,....) 'Renk kodlar&#305;da burda tan&#305;mlaman&#305;z gerekmektedir.

 

[Levent Menteşoğlu]

Alternatif olarak aşağıdaki gibide bir kod kullanılabilir.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
For i = 1 To Len(Target)
Target.Characters(Start:=i, Length:=1).Font.ColorIndex = i + 2
Next
End Sub

 

[td]

sn leventm ve ripek sizlere çok teşekkür ederim bu kodlar fazlasıyla işimi gördü