Listview kolon rengi

[teksen]

Arkadaşlar merhaba,

Listview üzerinde 4,5 ve 6. kolonların kırmızı olması için hangi kodu kullanabiliriz acaba?

Şimdiden teşekkür ederim

Herkese iyi çalışmalar.

 

[hamitcan]

Listview hakkında fazla bilgim yok. Bu yüzden daha önce yapılmış bir örnek üzerinde değişiklikler yaptım. Umarım işinizi görür.

Private Sub UserForm_Initialize()
With ListView1
   .View = lvwReport
   .Gridlines = True
   .FullRowSelect = True
    For i = 4 To 7
        .ColumnHeaders.Add , , Cells(1, i), 81
    Next i
    For i = 2 To 7
       y = y + 1
      .ListItems.Add , , Cells(i, 4)
      .ListItems(y).SubItems(1) = Cells(i, 5)
      .ListItems(y).SubItems(2) = Cells(i, 6)
      .ListItems(y).SubItems(3) = Cells(i, 7)
      
      .ListItems(y).ForeColor = RGB(255, 0, 0)
      .ListItems(y).ListSubItems.Item(1).ForeColor = RGB(255, 0, 0)
      .ListItems(y).ListSubItems.Item(2).ForeColor = RGB(255, 0, 0)
Next i
End With
End Sub

 

[noxious]

Hocam aynı renklendirmeyi ListBox üzerindede yapabilirmiyiz

 

[hamitcan]

Sayın noxious, Listbox da böyle bir özellik yok.

 

[noxious]

Sayın noxious, Listbox da böyle bir özellik yok.

Hocam forum içerisinde ListBox satırlarını renklendirme ile ilgili bir uygulama buldum bunun üzerinde bir değişiklik yapılarak olabilirmi acaba

 

[teksen]

Teşekkür ederim Sn.hamitcan

Ben aşağıdaki şekilde bir kod kullanıyorum.

Buna göre uyarlamaya çalıştım ama malesef beceremedim.

Aşağıdaki kodlarda nasıl bir değişiklik yapmamız gerekir acaba?


Private Sub UserForm_Initialize()
Set Sh = Sheets("HAREKET")
son = Sh.Cells(65536, 1).End(xlUp).Row
yeni = True
With bul.ListView1
.ListItems.Clear
.Gridlines = True
.View = lvwReport
.FullRowSelect = True
.HotTracking = True
With .ColumnHeaders
.Add , , Sh.Cells(1, 1), 65
.Add , , Sh.Cells(1, 2), 70
.Add , , Sh.Cells(1, 3), 65
.Add , , Sh.Cells(1, 4), 65
.Add , , Sh.Cells(1, 5), 70
.Add , , Sh.Cells(1, 6), 204
.Add , , Sh.Cells(1, 7), 0

.Add , , "Satir", 0
End With
End With
ListeGuncelle
End Sub

 

[hamitcan]

Sayın teksen, küçük bir dosya eklerseniz cevap vermek kolaylaşır.

 

[hamitcan]

Sayın noxious, verdiğiniz örnek ListBox renklendirilmesi değil. Anladığım kadarıyla, ListBox Backcolor özelliği siyah yapılmış, satırların mavi görünmesine gelince ise, form aktif edildiğinde, satırların seçimi sayesinde sağlanmıştır.

 

[teksen]

Dosyayı ekledim

3 ve 4. satırları mavi 6. satırıda kırmızı yapmaya çalıştım

malesef beceremedim

yardımlarınız için teşekkür ederim

 

[hamitcan]

Aşağıdaki kod ile, ilk sorunuzda istediğiniz gibi 4,5 ve 6. kolonlar renkleniyor.

Private Sub UserForm_Initialize()
Set Sh = Sheets("HAREKET")
son = Sh.Cells(65536, 1).End(xlUp).Row
yeni = True

With bul.ListView1
   .ListItems.Clear
   .View = lvwReport
   .Gridlines = True
   .FullRowSelect = True
    For i = 1 To 6
        .ColumnHeaders.Add , , Cells(1, i), 81
    Next i
    For i = 2 To son
       y = y + 1
      .ListItems.Add , , Cells(i, 1)
      .ListItems(y).SubItems(1) = Cells(i, 2)
      .ListItems(y).SubItems(2) = Cells(i, 3)
      .ListItems(y).SubItems(3) = Cells(i, 4)
      .ListItems(y).SubItems(4) = Cells(i, 5)
      .ListItems(y).SubItems(5) = Cells(i, 6)

      .ListItems(y).ListSubItems.Item(3).ForeColor = RGB(255, 0, 0)
      .ListItems(y).ListSubItems.Item(4).ForeColor = RGB(255, 0, 0)
      .ListItems(y).ListSubItems.Item(5).ForeColor = RGB(255, 0, 0)
Next i
End With
'ListeGuncelle
End Sub

Not:Yeni fark ettim; "ListeGuncelle" kodu çalışınca, renklendirme çalışmıyor. Bir şeyler çakışıyor. Açıkcası programınızı tam anlamıyla incelemedim. Bu yüzden, programı tekrar elden geçirmeniz gerekebilir.

 

[vedatelci]

Sn hamitcan veya diğer uzman arkadaşlarımız , Ben de şöyle bişey sorayım: Listview de her kolonu yani BackColor arka plan rengi olarak farklı farklı Örneğin 1 kolon Sarı 2. kolon yeşil gibi renklendirmemiz mümkün mü?

 

[teksen]

Teşekkür ederim Sn.Hamitcan

Aşağıdaki şekilde kodu kullandım.Bu şekilde olduğunda 1,2 ve 3.satırlar renklendi.

Ayrıca 2.satır için Bold seçeneğiyle yazı şeklini diğerlerinden daha kalın yaptık.

Fakat yazı rengi ve Bold haricinde Sn.Vedatelci'ninde söylediği gibi arka planla ilgili bende birşey bulamadım.

Acaba bunu yapmamızın farklı bir yolu varmıdır?

Private Sub UserForm_Initialize()
With ListView1
.View = lvwReport
.Gridlines = True
.FullRowSelect = True
For i = 1 To 6
.ColumnHeaders.Add , , Cells(1, i), 81
Next i
For i = 2 To 700 'satır'
y = y + 1
.ListItems.Add , , Cells(i, 1)
.ListItems.SubItems(1) = Cells(i, 2)
.ListItems.SubItems(2) = Cells(i, 3)
.ListItems.SubItems(3) = Cells(i, 4)
.ListItems.SubItems(4) = Cells(i, 5)
.ListItems.SubItems(5) = Cells(i, 6)

.ListItems.ForeColor = RGB(150, 0, 0)
.ListItems.ListSubItems.Item(1).ForeColor = RGB(255, 0, 0)
.ListItems.ListSubItems.Item(1).Bold = RGB(255, 0, 0)

.ListItems.ListSubItems.Item(2).ForeColor = RGB(255, 180, 0)


Next i
End With
End Sub

 

[hamitcan]

Aslında hemen cevap vermek istemedim. Ama ilk bakışta kolon bazında arka plan renklendirmesi mümkün değil gibi görünüyor. Yine de bir süre daha araştıracağım. Bilgi edinirsem, bu başlıkta açıklarım.

 

[teksen]

Teşekkür ederim Sn.Hamitcan

İyi çalışmalar