Listbox sütununda toplam almak

[udentr2002]

merhaba arkadaşlar;
Listbox1 nesnesinin 11. sütununundaki değerlerin toplamını almak ve bu toplamı textbox3 nesnesine yazdırmak istiyorum.
nasıl bir kod yazabilirim?

Saygılarımla

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu kendi dosyanıza göre uyarlayabilirsiniz.

Private Sub CommandButton1_Click()
    Dim X As Long, Topla As Double

    For X = 0 To ListBox1.ListCount - 1
        If ListBox1.List(X, 10) <> "" Then
            Topla = Topla + ListBox1.List(X, 10)
        End If
    Next
    
    TextBox3 = Format(Topla, "Currency")
End Sub

 

[udentr2002]

Merhaba,

Aşağıdaki kodu kendi dosyanıza göre uyarlayabilirsiniz.

Private Sub CommandButton1_Click()
    Dim X As Long, Topla As Double

    For X = 0 To ListBox1.ListCount - 1
        If ListBox1.List(X, 10) <> "" Then
            Topla = Topla + ListBox1.List(X, 10)
        End If
    Next
   
    TextBox3 = Format(Topla, "Currency")
End Sub

Hocam teşekkürler elllerinize sağlık