• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Listview üzerinde TextBox ile Aynı değerleri renkli gösterme

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Feylosof

Feylosof

Yeni Üye
Katılım
10 Ağu 2021
Mesajlar
355
Çözümler
8
Aldığı beğeni
156
Excel V
Office 2010 TR
Konu Sahibi
İyi akşamlar diliyorum arkadaşlar
Listwiew listelendikten sonra
Textboxta yazılı olanlar ile aynı olanları yazı font rengini kırmızı yapabilir miyiz.
Şimdiden teşekkürler
 
Çözüm
Y
Sub renklendir()
On Error Resume Next
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).SubItems(1) = TextBox1.Value Then
For a = 1 To ListView1.ColumnHeaders.Count
ListView1.ListItems(i).ListSubItems(1).ForeColor = vbBlue
ListView1.ListItems(i).ListSubItems(1).Bold = True
Next a
End If
Next i
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).SubItems(2) = TextBox1.Value Then
For a = 2 To ListView1.ColumnHeaders.Count
ListView1.ListItems(i).ListSubItems(a).ForeColor = vbBlue
ListView1.ListItems(i).ListSubItems(a).Bold = True
Next a
End If
Next i

For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).SubItems(3) = TextBox1.Value Then
For a = 3 To ListView1.ColumnHeaders.Count...
Tarihe göre sırala Oylara göre sırala
Sub renklendir()
On Error Resume Next
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).SubItems(1) = TextBox1.Value Then
For a = 1 To ListView1.ColumnHeaders.Count
ListView1.ListItems(i).ListSubItems(1).ForeColor = vbBlue
ListView1.ListItems(i).ListSubItems(1).Bold = True
Next a
End If
Next i
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).SubItems(2) = TextBox1.Value Then
For a = 2 To ListView1.ColumnHeaders.Count
ListView1.ListItems(i).ListSubItems(a).ForeColor = vbBlue
ListView1.ListItems(i).ListSubItems(a).Bold = True
Next a
End If
Next i

For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).SubItems(3) = TextBox1.Value Then
For a = 3 To ListView1.ColumnHeaders.Count
ListView1.ListItems(i).ListSubItems(a).ForeColor = vbBlue
ListView1.ListItems(i).ListSubItems(a).Bold = True
Next a
End If
Next i
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).SubItems(4) = TextBox1.Value Then
For a = 4 To ListView1.ColumnHeaders.Count
ListView1.ListItems(i).ListSubItems(a).ForeColor = vbBlue
ListView1.ListItems(i).ListSubItems(a).Bold = True
Next a
End If
Next i


End Sub
İlk dört sütun için yaptım diğer sütunlar için devam edebilirsin. renklendir başlığını listeleme yaptığın kodun en altına yapıştır. İncele dönüş yap Herhalde istediğin olmadı ama yinede bir bak.
 
Olumlu oy 1 Negatif oyla
Çözüm
Konu Sahibi
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Yusuf43 üstadım yukarıdaki formatta minik bir değişiklik yaptıktan sonra çok güzel çalıştı. Tam istediğim gibi oldu. Ne kadar teşekkür etsem azdır. Varolun.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst