Listboxta bir sütundaki toplamı alma

[robot]

Herkese merhaba listboxta örneğin beş sütun var diyelim ki 3. sütunda rakamlar var bu sütun altındaki label nesnesine bu sütundaki rakamların toplamını alabilirmiyim teşekkürler

 

[Orion1]

Dim i  As Long, tpl As Double
For i = 0 To ListBox1.ListCount - 1
    If IsNumeric(ListBox1.List(i, 2)) Then tpl = tpl + ListBox1.List(i, 2)
Next
Label1.Caption = Format(tpl, "#,##0.00")

 

[robot]

Teşekkür ederim

 

[robot]

Sayın Evren önceki cevabınız için tekrar teşekkür ederim. 3.sütun toplamını altında bulunan textboxa aldırdım.Ancak yazdığınız kodu 4.sütunda da denedim ama 4. sütun altında ki textboxa sadece 4. sütundaki verileri değil, 3. sütundaki verileri de toplayıp getiriyor. Bağımsız olarak her sütunda yukarıda yazdığınız kodu nasıl uyarlayabilirim.

 

[Orion1]

Kırmızı yerler kolon numarsını gösterir.İlk kolon 0 (sıfırdan başlar.)

If IsNumeric(ListBox1.List(i, [B][COLOR="Red"]3[/COLOR][/B])) Then tpl = tpl + ListBox1.List(i, [B][COLOR="Red"]3[/COLOR][/B])

 

[robot]

Hocam gene olmadı 4. sütun altındaki toplamda gene 3. sütundaki verileri topluyor acaba her toplama işlemi için tek tek döngü mü kurulacak yoksa tek döngüde mi işlem yapılacak.? Acaba ilk cevabınızdaki kodu iki sütun toplamı için uyarlıyabilirmisiniz acaba ? Biliyorum deneyerek öğrenmek en doğrusu ama bir türlü yapamadım.

 

[ulutanas]

Kardeş listbox1 deki 3. Sütunun toplamını textbox1 e, 4. Sütunun toplamını da textbox2 ye ayrı ayrı sonuç vermesinimi istiyorsunuz.

 

[robot]

Evet sayın Ulutanas

 

[Orion1]

Dim i  As Long, tpl As Double,tpl2 as double
For i = 0 To ListBox1.ListCount - 1
    If IsNumeric(ListBox1.List(i, 2)) Then tpl = tpl + ListBox1.List(i, 2)
    if isnumeric(listbox2.list(i,3)) then tpl2=tpl2+listbox1.list(i,3)
Next
textbox1.text = Format(tpl, "#,##0.00")
textbox2.text = Format(tpl2, "#,##0.00")

 

[robot]

Teşekkür ederim Sayın GİZLEN ben "tpl" olan kısmı hep aynı aldığımdan kaynaklanıyormuş. İşiniz rastgele.

 

[antitez21]

Dim i  As Long, tpl As Double
For i = 0 To ListBox1.ListCount - 1
    If IsNumeric(ListBox1.List(i, 2)) Then tpl = tpl + ListBox1.List(i, 2)
Next
Label1.Caption = Format(tpl, "#,##0.00")

Hocam merhaba bu kodu hangi bölüme ekliyoruz?