Listbox sütunlarında çoketopla

[walabi]

Merhaba,

Listbox1 üzerindeki kolonlarda çoketopla yapmaya çalışıyorum

Aralık Toplamı .List(.ListCount - 1, 2)
Ölçüt Aralığı .List(.ListCount - 1, 0)
Ölçüt textbox1
Sonuç textbox22 = ?????

textbox22 ye 2 numaralı sütunun değerlerini getirmeye çalışıyorum çoketopla mantığı ile. Bunu nasıl yapabilirim. Fonksiyonun kendisini kullanarak yapmaya çalıştım ama yapamadım. Döngü ile ya da fonksiyonun kendisi ile nasıl yapılabilir?

 

[PLİNT]

Merhaba
Döngü ile aşağıdaki gibi olabilir.

Dim topla As Double, a As Long
For a = 0 To ListBox1.ListCount - 1
If ListBox1.List(a, 0) = TextBox1 And IsNumeric(ListBox1.List(a, 2)) = True Then
topla = topla + CDbl(ListBox1.List(a, 2))
End If
Next
Textbox22 = topla