cümle içindeki kelimelerin renklenmesi

[aliderya]

merhabalar;
soru: film listesinin bulunduğu ekte, her film için belli kısımlarının farklı renklerde olmasını istiyorum.
örneğin; | ayracı baz alındığında ilk kelime grubu kırmızı, 2. kelime grubu mavi, 3. kelime grubu yeşil, 4. kelime grubu turuncu olsun
bir film adını yazarken kaç kelime grubu olduğu belirsiz, 3 de olabilir 6 grupda olabilir.
| ayraçlara göre her kelime grubunu farklı renkte nasıl yazabilirim?

 

[Necdet]

Merhaba,

Sayfa2 de herhangi bir hücreye çift tıklandığında A sütununda kodlar, B sütununda ise renkleri gösteren kodları görebilirsiniz.

Sayfa 2 de Gruplara göre renk kodlarını belirledikten sonra aşağıdaki kodları deneyebilirsiniz.

Sub Renklendir()
    Application.ScreenUpdating = False
    
    Dim i As Long
    Dim j, Bas, Bit, RenkKodu As Integer
    Dim Uzunluk As Integer
    
    For i = 3 To [C65536].End(3).Row
        Dizi = Split(Cells(i, "C"), "|")
        For j = 0 To UBound(Dizi)
            Bas = Application.WorksheetFunction.Search(Dizi(j), Cells(i, "C"))
            Uzunluk = Len(Dizi(j))
            
            With Sheets("Sayfa2").Range("D2:D15")
                Set c = .Find(j + 1, LookIn:=xlValues, LookAt:=xlWhole)
                If Not c Is Nothing Then
                    RenkKodu = Sheets("Sayfa2").Cells(c.Row, "E")
                Else
                    RenkKodu = 3
                End If
            End With
            
            Cells(i, "C").Characters(Bas, Uzunluk).Font.ColorIndex = RenkKodu
        Next j
    Next i
    
    Application.ScreenUpdating = True
    MsgBox "Çok yoruldum....", vbInformation, "[URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
End Sub

 

[aliderya]

teşekkürler,ellerinize sağlık,sizide yorduk...

 

[Necdet]

teşekkürler,ellerinize sağlık,sizide yorduk...

Rica ederim yorulmak ne demek, önemli olan bilgilerimizi paylaşmak.

Güle güle kullanınız.

 

[aliderya]

ilk 6 kelime grubunun renklendirilmesi yerine kelime gruplarinin tamamının renklendirilmesi mümkün olabilir mi?örn; "|" ayraç kullanılarak 10kelime grubu varsa.

 

[Necdet]

Merhaba,

Zaten ben genel amaçlı düşünerek kodları yazdım. Bir sınır yok.

Sayfa2 yi incelediyseniz, grupları ben epey arttırdım örnek olsun diye, siz daha da arttırabilirsiniz. Yeterki beğendiğiniz renklerin kodunu yazınız.

Kısaca sınır yok.

 

[aliderya]

bana zaten 6tane yeterli ama biyerde yanlış yaptim galiba araştirip öğrenirim.bilgi amaçlı sormuştum.teşekkürler ilgi için....