Listwiev'de iki sütuna göre toplam aldırmak..

[HD1975]

Merhaba ;

aşağıdaki dosyada listwiev üzerindeki "Ver" sütunundaki verileri toplayıp "30 Gün" sütunundaki rakamların toplamıyla çarpıp sonucu textboxa yazdırmak istiyorum,
örnek kodlamalara baktım ama halledemedim.

Tek sütunu toplamını aldırabildik ama iki sütuna göre çözüm üretemedik.

Saygılar

 

[Korhan Ayhan]

Selamlar,

Bir buton ekleyip aşağıdaki kodu tanımlayın.

Private Sub CommandButton2_Click()
    Dim X As Long, TOPLAM1 As Double, TOPLAM2 As Double
    
    For X = 1 To ListView1.ListItems.Count
        TOPLAM1 = TOPLAM1 + ListView1.ListItems(X).SubItems(27)
        TOPLAM2 = TOPLAM2 + ListView1.ListItems(X).SubItems(15)
    Next
    
    TextBox9 = TOPLAM1 * TOPLAM2
End Sub

 

[HD1975]

Korhan Bey ;

Aynı işlemib bende yapmıştım ama olmuyor du ve bundada olmadı.

Toplam1 ile Toplam2'in çarpımında sonucun iki katını veriyor.


Saygılar

 

[HD1975]

Sorun şu şekilde ;

Sayfadaki satırların sayısı artıkça çarpma işlemindeki çarpılan rakamıda o oranda
çoğaltıyor.

Örnek ;

Sayfada 1 adet satır varsa doğru veriyor,
İki adet satır varsa satırdaki sütunları biribir ile çarparkan satır adeti kadar
fazla artırıp çarpıyor.

Saygılar

 

[gezgin64]

isteğiniz ekli dosyadadır.

TextBox21 = ""
TextBox22 = ""
TextBox23 = ""

Dim i As Integer
With ListView1
 For i = 1 To .ListItems.Count '- 1
     If IsNumeric(.ListItems(i).SubItems(15)) Then
        topla1 = topla1 + .ListItems(i).SubItems(15) * 1
     End If
        If IsNumeric(.ListItems(i).SubItems(27)) Then
        topla2 = topla2 + .ListItems(i).SubItems(27) * 1
     End If
 Next i
End With
TextBox21.Text = Format(topla1, "#,##0")
TextBox22.Text = Format(topla2, "#,##0")

TextBox23.Text = TextBox21 * TextBox22

 

[kararsızım]

merhaba çok acilll

araç takip çizelgesi adı altında...öyle bir makro yazmalıyım ki araç plaka no,ilk km,son km,ortalama km,yağ filtresi,dolum adedi,program tipini görüp ,ayrıca toplamlarında göstersin...

 

[HD1975]

isteğiniz ekli dosyadadır.

TextBox21 = ""
TextBox22 = ""
TextBox23 = ""

Dim i As Integer
With ListView1
 For i = 1 To .ListItems.Count '- 1
     If IsNumeric(.ListItems(i).SubItems(15)) Then
        topla1 = topla1 + .ListItems(i).SubItems(15) * 1
     End If
        If IsNumeric(.ListItems(i).SubItems(27)) Then
        topla2 = topla2 + .ListItems(i).SubItems(27) * 1
     End If
 Next i
End With
TextBox21.Text = Format(topla1, "#,##0")
TextBox22.Text = Format(topla2, "#,##0")

TextBox23.Text = TextBox21 * TextBox22

Teşekkür Ederim.