listbox toplama

[metinozlu]

Aşağıdaki kodlarla listboxdaki verilerin toplamını alıyorum.listboxa tam sayı aldığımda problem olmuyor ancak ondalı sayı aldığımda ondalı sayıyıda tam sayı gibi topluyor 4,12 yi 412 gibi
ne yapmam gerekir.


Private Sub CommandButton4_Click()
Dim i As Integer
a = ListBox1.ListCount
Top = 0
hop = 0
For i = 0 To a - 1
Top = ListBox1.List(i, 1) + Top
hop = ListBox1.List(i, 2) + hop

Next
TextBox2.Value = Top
TextBox3.Value = hop

End Sub

 

[veyselemre]

senin komutların bende hatasız çalıştı excel versiyonundan kaynaklanan sorunlar var
Top = val(ListBox1.List(i, 1)) + Top
hop = val(ListBox1.List(i, 2)) + hop

olarak bir dene