السلام عليكم ورحة الله وبركاتة
تحية طيبة لكل أعضاء المنتدى
أريد أن يتم جمع عمود (القيمة) الموجود في الليست بوكس
ويظهر النتاج في تكست بوكس الجمع
وللعلم هذا الملف للأستاذ عبد الله بشقير
وقد قمت بطرح الموضع من قبل وتفضل الأستاذ ياسر جزاه الله خيراً
بالإجابة علي الموضوع
بالكود الأتي:
With Me.ListFind
For Counter = 0 To .ListCount - 1
SumResult = SumResult + .Column(3, Counter)
Next Counter
End With
TextBox1.Value = SumResult
ولكن عندما قمت بالتطيبق علي الملف الموجود بالمرفقات لم ينجح
أرجوا من السادة الأعضاء مساعدتي
جزاكم الله خيراً .
المصنف1.rar