Listbox Change Row Colors

[Jaye7]

In A listbox, can you change the colors of each row in the listbox itself, i.e. row one in the listbox is white, row two is yellow or does it have to be one specific color. Thanks

 

[mikerickson]

All the rows of a list box are formatted the same, including background color.

 

[Jaafar Tribak]

Not easy.

A shaky workaound written by myself HERE.

Not exactly a multicolored listbox but very nice and more stable workaround by Andypope HERE.

You can also use the ListView OCX and set the Icons/SmallIcons Properties to some color images..

 

[Jaye7]

Thanks Mike And Jaafar.

I went with the Andy pope example, sorry I should have mentioned that the listbox was in a userform.

Not exactly what I am after but makes the listbox look a bit more classy.

Thanks guys.

If anyone else has a method please advise.

 

[asyamonique]

Hello All,
I would like to ask in regards my below code that is there any way to show the certain text in color only such as if I request to show all the text named APPLE will be red as a text when the list pop up...
is it possible?
Many Thanks

Dim a, i As Long, ii As Long, b(), n As Long
ListBox1.Clear
With ComboBox1
If .Text = "" Then Exit Sub
If WorksheetFunction.CountIf(Worksheets("list").Range("a:a"), .Text) = 0 Then
Exit Sub
End If
n = -1
a = Worksheets("list").Range("a1").Resize(Worksheets("list").Range("a" & Rows.Count).End(xlUp).Row, 35).Value
For i = 1 To UBound(a, 1)
If a(i, 1) = .Text Then
n = n + 2: ReDim Preserve b(1 To 35, 1 To n)
For ii = 1 To UBound(a, 2)
b(ii, n) = a(i, ii)
Next
End If
Next
End With
With ListBox1
.ColumnCount = 35
.ColumnWidths = "0;0;150;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;0"
.Column = b
End With