- Katılım
- 3 Mart 2005
- Mesajlar
- 609
- Excel Vers. ve Dili
- 2010 Excel-Türkçe
- Altın Üyelik Bitiş Tarihi
- 21/03/2019
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
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