listboxda renklendirme

[Cengizhantr06]

merhaba kodum bu
10gün sayfasında aldığım verileri a4 den a40 a kadar her satıra tümünü boyamak sartıyla renk verebilirmiyiz
listboxda da renkli görünecek
mesala a4 mavi tüm satır
a5 yeşil
a6 kırmızı


Sub listele()
Dim sayfa As Worksheet
Dim ss As Long
Set sayfa = Sheets("10gun")
ListBox1.ColumnHeads = True
ListBox1.ColumnCount = 9
ListBox1.ColumnWidths = "100,70,70,70,70,70,70,70,70"
ss = sayfa.Range("A50000").End(xlUp).Row
If ss > 1 Then
ListBox1.RowSource = "10gun!A3:I" & ss
Else
ListBox1.RowSource = "10gun!A3:I2"
End If
End Sub

 

[Orion1]

Listboxın satır bazında renklendirme özelliği yoktur.

 

[Cengizhantr06]

Listboxın satır bazında renklendirme özelliği yoktur.
[/QUOT
Tamam teşekkürler Evren bey