- Katılım
- 12 Nisan 2012
- Mesajlar
- 533
- Excel Vers. ve Dili
- Microsoft office professional plus 2019
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
For Each s In ListView1.ListItems
For Each h In s.ListSubItems
If h.Text = "ÖDENDİ" Then
h.ForeColor = vbYellow
ElseIf h.Text = "BORÇLU" Then
h.ForeColor = vbRed
ElseIf h.Text = "ALACAKLI" Then
h.ForeColor = vbGreen
End If
Next
Next
ListView1.Refresh