Hücre içinde renkli harfler...

[rekkezum]

Herkesin Rmazan bayramı mübarek olsun...şunu yapabilmek mümkünmüdür?
a1 hücresine "STF" yazdım her harfin başka renkte olması bir macro ile sağlanabilirmi?

 

[janveljan]

İki kod grubunu da deneyebilirsiniz.

    For i = 1 To Len(ActiveCell.Text)
    ActiveCell.Characters(Start:=i, Length:=1).Font.ColorIndex = i
    Next

    For i = 1 To Len(ActiveCell.Text)
    ActiveCell.Characters(Start:=i, Length:=1).Font.ColorIndex = Int(Rnd() * 57)
    Next

 

[rekkezum]

ilginiz için teşekkür ederim denedim olmadı bu kodu direkt sheet in kod bölümüne mi yapıştırıcam açıklamanız mümkünmü?

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayınız.

A sütünundaki ilgili hücrenin değişmesi ile çalışacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
For i = 1 To Len(Target)
Target.Characters(Start:=i, Length:=1).Font.ColorIndex = Int(56 * Rnd + 1)
Target.Characters(Start:=i, Length:=1).Font.Size = i + 9
Next
Son:
End Sub

 

[rekkezum]

hocam ellerinize sağlık fakat şöye bi sorunum var ben aynı zamanda a1 hücresını sürekli aktif yapan bir macro kullanıyorum dolayısı ile entre basınca aktif hücre yine a1 olduğundan renkler değişmiyor zannedersem

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address = "$A$1" And Target <> "" Then [$A$1].Select
End Sub

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz? Yine ilgili sayfanın kod bölümünde olmalı her ikisi de

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
Target.Offset(0, 0).Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
For i = 1 To Len(Target)
Target.Characters(Start:=i, Length:=1).Font.ColorIndex = Int(56 * Rnd + 1)
Target.Characters(Start:=i, Length:=1).Font.Size = i + 9
Next
Target.Offset(0, 0).Select
Son:
End Sub