- Katılım
- 23 Şubat 2007
- Mesajlar
- 30
- Excel Vers. ve Dili
- 2010
Selamlar,
listviewde textboxa sürüklediğim satırı renklendirmek istiyorum, ama refresh yaptığım zaman textboxa attıklarım listviewde renkli olmadan duruyor. renkli olmadığı için, hangi satırı textboxa attığımı görmekte zorlanıyorum.
aşağıdaki şekilde kodu yazdım, ama pek işe yaramadı. nerede hata yaptığıma dair debug uyarısıda gelmiyor. listview güncellendiğinde textboxa sürüklenen satırları kırmızı renkle işaretlemesini nasıl yapabilirim acaba?
yardımlarınız için şimdiden teşekkürler.
Sub color ()
Dim n As String
n = UserForm1.ListView1.ListItems.Count
Dim i As Long
For i = 1 To n
If UserForm1.ListView1.ListItems(i).ListSubItems(5) = 1 Then
UserForm1.ListView1.ListItems(i).ForeColor = vbRed
UserForm1.ListView1.ListItems(i).Bold = True
UserForm1.ListView1.ListItems(i).ListSubItems(1).ForeColor = vbRed
UserForm1.ListView1.ListItems(i).ListSubItems(1).Bold = True
UserForm1.ListView1.ListItems(i).ListSubItems(2).ForeColor = vbRed
UserForm1.ListView1.ListItems(i).ListSubItems(2).Bold = True
UserForm1.ListView1.ListItems(i).ListSubItems(3).ForeColor = vbRed
UserForm1.ListView1.ListItems(i).ListSubItems(3).Bold = True
UserForm1.ListView1.ListItems(i).ListSubItems(4).ForeColor = vbRed
UserForm1.ListView1.ListItems(i).ListSubItems(4).Bold = True
UserForm1.ListView1.ListItems(i).ListSubItems(5).ForeColor = vbRed
UserForm1.ListView1.ListItems(i).ListSubItems(5).Bold = True
End If
Next i
End Sub
sub liste ()
listviewle ilgili satırlar.....
call color
end sub
listviewde textboxa sürüklediğim satırı renklendirmek istiyorum, ama refresh yaptığım zaman textboxa attıklarım listviewde renkli olmadan duruyor. renkli olmadığı için, hangi satırı textboxa attığımı görmekte zorlanıyorum.
aşağıdaki şekilde kodu yazdım, ama pek işe yaramadı. nerede hata yaptığıma dair debug uyarısıda gelmiyor. listview güncellendiğinde textboxa sürüklenen satırları kırmızı renkle işaretlemesini nasıl yapabilirim acaba?
yardımlarınız için şimdiden teşekkürler.
Sub color ()
Dim n As String
n = UserForm1.ListView1.ListItems.Count
Dim i As Long
For i = 1 To n
If UserForm1.ListView1.ListItems(i).ListSubItems(5) = 1 Then
UserForm1.ListView1.ListItems(i).ForeColor = vbRed
UserForm1.ListView1.ListItems(i).Bold = True
UserForm1.ListView1.ListItems(i).ListSubItems(1).ForeColor = vbRed
UserForm1.ListView1.ListItems(i).ListSubItems(1).Bold = True
UserForm1.ListView1.ListItems(i).ListSubItems(2).ForeColor = vbRed
UserForm1.ListView1.ListItems(i).ListSubItems(2).Bold = True
UserForm1.ListView1.ListItems(i).ListSubItems(3).ForeColor = vbRed
UserForm1.ListView1.ListItems(i).ListSubItems(3).Bold = True
UserForm1.ListView1.ListItems(i).ListSubItems(4).ForeColor = vbRed
UserForm1.ListView1.ListItems(i).ListSubItems(4).Bold = True
UserForm1.ListView1.ListItems(i).ListSubItems(5).ForeColor = vbRed
UserForm1.ListView1.ListItems(i).ListSubItems(5).Bold = True
End If
Next i
End Sub
sub liste ()
listviewle ilgili satırlar.....
call color
end sub