Renkli satırlardaki rakamlar

[muratkul]

Merhabalar,
Excellde renkli satırlardaki rakamların rengini değiştirmek istiyorum. Mesela sutun sarı içindeki rakam mavi olsun. siyah sutunların içindeki rakamlar beyaz görünsün. yardımcı olabilirmisini.z

 

[antonio]

Merhaba,
Renkleri makro kodlarında kullanmak için sütundada kullanılan renklerin index numarasını önceden bilmek lazım. Bunlar hakkında bilgimiz yoksa, dediğiniz şekilde bir düzenleme yapamayız. Ancak aşağıdaki örnekteki gibi sadece eğer hücre renkliyse içi sarı, yazı rengi kırmızı ve bold olsun şeklinde yapılabilir. Siz biraz daha üzerinde çalışıp kodları kendinize göre düzenleyebilirsiniz. (Sayfa1, A sütunu) için örneklendirilmiştir:

Sub renklendir()
With Sayfa1
For i = 1 To 15 '1.satırla 15. satır için düşünüldü..
    If .Range("A" & i).Value <> "" And .Range("A" & i).Interior.ColorIndex <> -4142 Then 'Hücre renk dolgusu herhangibir renk ile renklendirilmişse, boş değilse
        .Range("A" & i).Interior.ColorIndex = 6 'dolgu rengi sarı
        .Range("A" & i).Font.Bold = True 'Hücre yazısı bold olsun
        .Range("A" & i).Font.ColorIndex = 3 'Yazı rengi kırmızı
    End If
Next i
End With
End Sub

 

[muygun]

Merhaba;
Alternatif olsun.
Başka bir alanda tanımladığınız rengi A sütununda mukayese eder ve zemin rengi uyan hücrelere hücre biçimini tanımladığınız alandan alabilirsiniz.
İyi çalışmalar.

Link:
http://www.dosya.tc/server10/kjayct/muratkul-hucre_bicim_copy.zip.html

 

[muratkul]

teşekkürler.