Listview sutun renklendirme hk.

[kemal turan]

Merhaba,
Aşağıdaki kodda 4 sutunda değerler var.
İsteğim satırdaki değer sıfırdan büyükse satır veri rengi mavi olsun.
Teşekür ederim.

Sub ListeGuncelle()
Set sh = Sheets("PLNYAZ")
son = sh.Cells(65536, 2).End(xlUp).Row
With PLANLAMA.ListView1
  .ListItems.Clear
   For i = 2 To son
     .ListItems.Add , , sh.Cells(i, 2)
     X = X + 1
     With .ListItems(X).ListSubItems
         .Add , , sh.Cells(i, 3) 
         .Add , , sh.Cells(i, 4)
         
         .Add , , i
     End With
   Next i
End With

End Sub

 

[PLİNT]

Merhaba
İstediğiniz; listeye alınan verilerin birbirinden bağımsız sıfırdan büyük olanlar içinse,
aşağıdaki gibi denermisiniz

[SIZE="2"]Sub ListeGuncelle()
Set sh = Sheets("PLNYAZ")
son = sh.Cells(65536, 2).End(xlUp).Row
With PLANLAMA.ListView1
  .ListItems.Clear
   For i = 2 To son
     .ListItems.Add , , sh.Cells(i, 2)
     X = X + 1
     With .ListItems(X).ListSubItems
         .Add , , sh.Cells(i, 3)
         .Add , , sh.Cells(i, 4)
         
         .Add , , i
         
 [COLOR="blue"]  For n = 1 To 2
  If IsNumeric(.Item(n).Text) = True Then If CDbl(.Item(n).Text) > 0 Then .Item(n).ForeColor = vbBlue
   Next[/COLOR]
     End With
  [COLOR="Blue"]    If IsNumeric(.ListItems(X).Text) = True Then If CDbl(.ListItems(X).Text) > 0 Then .ListItems(X).ForeColor = vbBlue[/COLOR]
   Next i
End With

End Sub[/SIZE]

 

[Orion1]

Standart olarak listviewde satır rengi renkli olamaz.
Karakterler renkli olur.

 

[kemal turan]

Merhaba Sn.Plint
Gecenin bu vaktindeki ilginize teşekkür ederim.
Kodunuz çalıştı.
Acaba renklenen 4 ncu sutun verisi ile beraber 2 ve 3 ncü sutunuda renklendirmeye dahil edebilirmiyiz. Yani satırın tamamı renklenebilirmi..
örnek dosya ekledim.

 

[kemal turan]

merhaba Sn.Orion
Bende sadece karakterler renklensin istedim.
Araştırmada satır renklendirme olmadığını sizin cevaplarınızdan öğrenmiştim.
İlginize teşekkürler.

 

[PLİNT]

Merhaba Sn.Plint
Gecenin bu vaktindeki ilginize teşekkür ederim.
Kodunuz çalıştı.
Acaba renklenen 4 ncu sutun verisi ile beraber 2 ve 3 ncü sutunuda renklendirmeye dahil edebilirmiyiz. Yani satırın tamamı renklenebilirmi..
örnek dosya ekledim.

Merhaba
Dosyanıza bakma imkanım yok; ama kodlarınıza göre ek dosyayı denermisiniz?

http://s7.dosya.tc/server7/06501c/list.zip.html

[SIZE="2"]Sub ListeGuncelle()
Set sh = Sheets("PLNYAZ")
son = sh.Cells(65536, 2).End(xlUp).Row
With PLANLAMA.ListView1
  .ListItems.Clear
   For i = 2 To son
     .ListItems.Add , , sh.Cells(i, 2)
     X = X + 1
     With .ListItems(X).ListSubItems
         .Add , , sh.Cells(i, 3)
         .Add , , sh.Cells(i, 4)
         
         .Add , , i
[COLOR="RoyalBlue"]   If IsNumeric(.Item[COLOR="Red"](2)[/COLOR].Text) = True Then
   If CDbl(.Item[COLOR="red"](2)[/COLOR].Text) > 0 Then
    PLANLAMA.ListView1.ListItems(X).ForeColor = vbBlue
   For n = 1 To 3
 .Item(n).ForeColor = vbBlue
   Next
   End If: End If[/COLOR]
     End With
  Next i
End With

End Sub[/SIZE]

 

[kemal turan]

Merhaba Sn. Plint,
Çok teşekkür ederim.
Hayırlı Bayramlar dilerim.
Selametle