مطلوب جمع عمود من قائمة listbox واضهار الناتج في خانة textbox

[عيسى العامري]

لدي 8 اعمدة ليست بوكس اريد كود جمع العمود رقم 5 بlistbox1 في خانة textbox2

[إبراهيم ابوليله]

اخى عيسى

جرب الكود الاتى

For h = 0 To ListBox1.ListCount - 1
TextBox4 = VAL(TextBox4)+Val(ListBox1.Column(4,h))
Next

[عيسى العامري]

 

اخى عيسى

جرب الكود الاتى

For h = 0 To ListBox1.ListCount - 1
TextBox4 = Val(ListBox1.Column(4,h))
Next

اخي ابراهيم ابو ليله الكود يضهر لي السطر الاخير ولا يجمع العمود اشكرك على تجاوبك

[qhq]

السلام عليكم

اخي الكريم جرب التالي

For h = 0 To ListBox1.ListCount - 1
Sum = Sum + Val(ListBox1.Column(4, h))
Next
TextBox2 = Sum

[عيسى العامري]

  اخيqhq اشكرك نجحت الطريقة

اخي ابراهيم ابو ليلة اشكرك على تعاونك 

[إبراهيم ابوليله]

 

 

اخى عيسى

جرب الكود الاتى

For h = 0 To ListBox1.ListCount - 1
TextBox4 = Val(ListBox1.Column(4,h))
Next

اخي ابراهيم ابو ليله الكود يضهر لي السطر الاخير ولا يجمع العمود اشكرك على تجاوبك

 

اخى عيسى

بالفعل كان هناك خطأ فى الكود

تم التعديل

اعد النظر فى المشاركه

[عيسى العامري]

اشكرك اخي ابراهيم  هل ممكن ان اعمل معادلة على نفس الكود ولكن ليس بالجمع وانما اظهار عدد الصفوف المستخدمة في اللست بوكس

[إبراهيم ابوليله]

اشكرك اخي ابراهيم  هل ممكن ان اعمل معادلة على نفس الكود ولكن ليس بالجمع وانما اظهار عدد الصفوف المستخدمة في اللست بوكس

اخى عيسى

جرب الكود الاتى

TextBox5 = Me.ListBox1.ListCount

[عيسى العامري]

اشكرك اخي ابراهيم الكود ادى عملة باحسن ما يكون.....لك خالص مودتي 

[إبراهيم ابوليله]

اخى عيسى

اتمنى لك التوفيق

[youcef labdi]

استخدمت الكود لاكنه يجمع العدد الصحيح فقط ولايجمع ماوراء الفواصل