listviewde kosullu renk mumkunmu???

[nicosian]

listview de listelenen degerlerin belli bir sutununda ornek: a sutunundaki degeri TEMIZ ise beyaz renk, KIRLI ise mavi renk olmasi icin ne yapabilirim?

bunu kosullu bicimlendirmede excelde renk calisiyor ancak listviewde renk sadece beyaz olarak kaliyor. bunu nasil ekliyebiliriz????

 

[Orion1]

satır arka planı sadece tümü için backcolor verebilirsiniz
font rengi için ise aşağıdaki kodları giriniz.
Veriler A ve B sütunundadır. sütunundadır.

Private Sub UserForm_Initialize()
Dim i As Long, sat As Long, renk
sat = Cells(Rows.Count, "A").End(xlUp).Row
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , Cells(1, "A").Value
ListView1.ColumnHeaders.Add , , Cells(1, "B").Value
If sat > 1 Then
    For i = 2 To sat
        If Cells(i, "A").Value = "KIRLI" Then
            renk = vbBlue
            Else: renk = vbBlack
        End If
        ListView1.ListItems.Add , , Cells(i, "A").Value
        ListView1.ListItems(i - 1).SubItems(1) = Cells(i, "B").Value
        ListView1.ListItems.Item(i - 1).ForeColor = renk
        ListView1.ListItems.Item(i - 1).ListSubItems(1).ForeColor = renk
    Next
End If
End Sub

 

[nicosian]

usta supersin....

 

[nicosian]

satır arka planı sadece tümü için backcolor verebilirsiniz
font rengi için ise aşağıdaki kodları giriniz.
Veriler A sütunundadır.

Private Sub UserForm_Initialize()
Dim i As Long, sat As Long, renk
sat = Cells(Rows.Count, "A").End(xlUp).Row
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , Cells(1, "A").Value
If sat > 1 Then
    For i = 2 To sat
        If Cells(i, "A").Value = "KIRLI" Then
            renk = vbBlue
            Else: renk = vbBlack
        End If
        ListView1.ListItems.Add , , Cells(i, "A").Value
        ListView1.ListItems.Item(i - 1).ForeColor = renk
    Next
End If
End Sub

usta bu kod ile sadece listviewde ilk kolon mavi oluyor.
butun satirlarlarin mavi olmasini yapabilirmiyiz???
birde ekte yolladigin dosya neydi???

 

[Orion1]

usta bu kod ile sadece listviewde ilk kolon mavi oluyor.
butun satirlarlarin mavi olmasini yapabilirmiyiz???
birde ekte yolladigin dosya neydi???

Siz örnek dosya yollamadığınız için ben 1 kolon üzerinden yaptım.
Şimdi 2 kolon üzerinden yaptım.
Veriler a ve b sütunundalar.
Siz diğer kolonları kendi dosyanıza uyarlayaınız.
Dosya 2 numaralı mesajdadır.

 

[nicosian]

tessekkur ederim