Lİstbox Toplami

[GUERRA]

Merhaba Listbox daki herhangi bir kolon değerlerinin toplamını bir textboxta nasıl gösterebiliriz

 

[Recep İpek]

Sayfadaki verilerinizin toplamını Textbox'a yazdırabilirsiniz.

Private Sub UserForm_Initialize()
TextBox1 = WorksheetFunction.Sum([c2:c25])
End Sub

Veya,

Private Sub UserForm_Initialize()
For i = 1 To ListBox1.ListCount - 1
T = ListBox1.List(i - 1, 2) + T
Next i
TextBox1 = T
End Sub

 

[GUERRA]

listbox toplam

Merhaba ,kod bende hata verdi
userform1 üzerindeki listbox1 in 5. kolonunun toplamını textbox9 da ,7.kolonunun toplamını da textbox10 da göstermek istiyorum.

 

[Recep İpek]

Listbox1'daki kolonlar 0'dan başladığı için 1 eksiğini yazmanız gerekmektedir.

Yani 5. kolonun toplamı için;

Private Sub UserForm_Initialize()
For i = 1 To ListBox1.ListCount - 1
T1 = ListBox1.List(i - 1, [color=red][b]4[/b][/color]) + T1
Next i
TextBox9 = T1
End Sub

7. kolonun toplamı için;

Private Sub UserForm_Initialize()
For i = 1 To ListBox1.ListCount - 1
T2 = ListBox1.List(i - 1, [color=red][b]6[/b][/color]) + T2
Next i
TextBox10 = T2
End Sub

 

[bilisim2010]

hocam merhaba
For i = 1 To ListBox1.ListCount - 1
T = ListBox1.List(i - 0, 1) + T
Next i
TextBox6 = T

benim toplatacağım hücre 7 kolonlu listboxdaki a1 hücresi bu kod ile 2. kolonu topluyor bir altını yazıyorum hata veriyor a1 leri nasıl toplatırım