listview renklendirme ve bazı sutunlardaki bilgileri ortalama

[osmanfenerli1907]

merhaba
1) listview de örneğin 3.tutundaki bilgileri nasıl ortalı yazdırabilirm.
2) listview1 A2:I arası sıralama yapıyor.d den aldığı bilgilere göre renklendirme yaparsa örneğin D2 de ödendi yazıyorsa listviewin 1.satırındaki bilgiler kırmızı yazsın.
yardımlarınız için teşekkrler

 

[Orion1]

Örnek dosya ekleyiniz.

 

[osmanfenerli1907]

dosya ekledim.asıl sorularım içinde.

 

[osmanfenerli1907]

çözümü yok mudur bunun?

 

[Korhan Ayhan]

Selamlar,

Kullandığınız kodu aşağıdaki şekilde değiştirip denermisiniz. Sütun ortalama işlemi için koddaki kırmızı renkli bölüm kullanılmıştır.

Private Sub UserForm_Initialize()
    Sheets("sayfa1").Select
    
    With ListView1
        .View = lvwReport
        .FullRowSelect = True
        .Gridlines = True
    End With
    
    With ListView1.ColumnHeaders
        .Add , , "isim", 60
        .Add , , "borç", 60
        .Add , , "borç", 60
        .Add , , "durum", 60, [COLOR=red]2[/COLOR]
        .Add , , "borç", 60
        .Add , , "borç", 60
    End With
    
    c = WorksheetFunction.CountA(ActiveSheet.Range("A:A"))
    
    With ListView1
        For UY = 1 To c
        Y = Y + 1
            .ListItems.Add , , Cells(UY + 1, 1)
            .ListItems(Y).SubItems(1) = Cells(UY + 1, 2)
            .ListItems(Y).SubItems(2) = Cells(UY + 1, 3)
            .ListItems(Y).SubItems(3) = Cells(UY + 1, 4)
            .ListItems(Y).SubItems(4) = Cells(UY + 1, 5)
            .ListItems(Y).SubItems(5) = Cells(UY + 1, 6)
            
            If UCase(Replace(Replace(Cells(UY + 1, 4), "ı", "I"), "i", "İ")) = "ÖDENDİ" Then
            .ListItems(Y).ForeColor = vbRed
            .ListItems(Y).ListSubItems(1).ForeColor = vbRed
            .ListItems(Y).ListSubItems(2).ForeColor = vbRed
            .ListItems(Y).ListSubItems(3).ForeColor = vbRed
            .ListItems(Y).ListSubItems(4).ForeColor = vbRed
            .ListItems(Y).ListSubItems(5).ForeColor = vbRed
            End If
        Next
    End With
End Sub

 

[osmanfenerli1907]

çok teşekkrler

 

[halit3]

alternatif dosya ekliyorum.

burda silme, sağa, sola ve ortaya yaslamalar mevcut

listviewde 1. sütun gizli burada sıra numarası var ona göre silme işlemini yapıyor

 

[halit3]

dosyayı güncelledim.