Kelimeleri renklendirme

[NADİR YILDIZ]

günaydın arkadaşlar koşullu biçimlendirme ile virgülle ayrılmış kelimeleri bir kırmızı bir siyah olarak renklendirme yapabilirmiyiz.AHMET,MEHMET,ALİ,AYŞE,FATMA.. Ahmet kırmızı renk Mehmet siyah renk ali kırmızı renk ayşe siyah renk uzayıp gidecek

 

[Erdem Akdemir]

Örnek ekleyebilir misiniz?

 

[NADİR YILDIZ]

örnek ekte

 

[NADİR YILDIZ]

Arkadaşlar bir çözüm yolu var mı acaba ?

 

[Erdem Akdemir]

Excel hesaplamasında devamlı hata veriyor ve hatalı işlem yapıyor
İşlem excel'i bozdu

Option Base 1
Sub renklen()
Dim dizi()
k = 1
ReDim Preserve dizi(k)
dizi(k) = 1


For i = 1 To Len([a1])
If VBA.Mid([a1], i, 1) = "," Then

k = k + 1
ReDim Preserve dizi(k)

dizi(k) = i

End If
Next i
ReDim Preserve dizi(k + 1)
dizi(k + 1) = Len([a1])

For x = 1 To UBound(dizi)

Range("a1").Characters(dizi(x), dizi(x + 1) - 1).Font.ColorIndex = 5

Next x
End Sub

 

[NADİR YILDIZ]

Evet sayın kuvari koşullu biçimlendirme ile bu işlemi yapma imkanım var mı acaba

 

[Erdem Akdemir]

Koşullu biçimlendirme ile olmaz.

 

[NADİR YILDIZ]

koşullu biçimlendirme yada fonksiyonlarla olmuyorsa yapacak bir şey yok çünkü bu yapmak istediğim için sabit bir excel dosyası yok çok değişik dosyalarda uygulama yapacağım için kod ile yapmak çok uğraştırıcak o yüzden koşullu biçimlendirme ile olabilirmi diye sordum..ilginize teşekkür ederim..iyi günler sayın kuvari

 

[Emir Hüseyin Çoban]

. . .

Alternatif,

Sub KOD()
    
    m = Range("A1")
    uz = Len(m)
    son = uz - Len(WorksheetFunction.Substitute(m, ",", ""))
    
    Range("A1").Font.ColorIndex = 1
    
    For i = 0 To son
        
        isim = Split(m, ",")(i)
        say = InStr(1, m, isim)
        
        If WorksheetFunction.IsOdd(i) = True Then
            renk = 1
        Else
            renk = 5
        End If
        
        With Range("A1").Characters(Start:=say, Length:=Len(isim)).Font
            .ColorIndex = renk
        End With
        
    Next i
    
End Sub

. . .