Soru ListBox'a Alınan Verinin Font Rengi

[1Al2Ver]

Merhaba,

Aşağıdaki kod ile "Veriler" sayfası "S" sütunundan ListBox1'e veri alıyorum,

"Veriler" sayfası "S" sütununda bir çok veri ( kelime-cümle ) kırmızı font rengine sahip, diğerleri siyah.

Renkli olanlar belirli bir sıraya sahip değiller, örnek yanıltmasın,

Acaba verileri renkleri ile birlikte ListBox1'e alabilir miyim ?

Elma Amasya
Marul Antalya
Armut Ankara
Üzüm Manisa

Private Sub UserForm_Initialize()
Dim hWnd As Long
hWnd = FindWindowA(vbNullString, Me.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H20000
    Dim a As Long
    a = Sheets("VERİLER").Range("S65536").End(3).Row
    ListBox1.RowSource = "VERİLER!S1:S200" & a
    a = Empty
End Sub

Teşekkür ederim.

 

[Korhan Ayhan]

Alamazsınız...

Listview kullanmanız daha uygun olacaktır.

 

[1Al2Ver]

Sayın Korhan Ayhan merhaba,

İlginiz için teşekkür ederim,

Saygılarımla.