1 sayfadan 1. sayfa

listboxda renklendirme

İletiTarih: 13 Oca 2021 08:11
Cengizhantr
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

Cevap: listboxda renklendirme

İletiTarih: 13 Oca 2021 15:35
Miraç CAN
Cengizhantr yazdı: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

Hayır, ListBox böyle bir özelliği barındırmıyor. Bunun yerine ListView nesnesini araştırabilirsin.