جمع في الليست بوكس

[Akram Galal]

السلام عليكم ورحمة الله وبركاتة

لدي ملف للأستاذ عبد الله بقشير

واريد جمع عمود (الكمية المصروفة) في الليست بوكس

ويظهر النتاج في تكست بوكس الجمع

جزاكم الله خيرا

 

واليكم المرفقات

[ياسر خليل أبو البراء]

المرفقات لا تظهر يرجى إعادة رفع الملف المرفق

[Akram Galal]

عفواً

أخي ياسربحث بفورم ممتاز.rar

[ياسر خليل أبو البراء]

أخي الفاضل أكرم جلال

راجع الرابط

http://www.officena.net/ib/index.php?showtopic=60147

التوجيه السادس

 

إليك الملف المرفق عله يكون المطلوب

Search UserForm Magic.rar

[Akram Galal]

جزاك الله خيراً

ولكن كيف يمكن تحديد العمود المراد جمعه

ولك جزيل الشكر

[ياسر خليل أبو البراء]

افتح الفورم واعمل دبل كليك على كلمة "بحث"

هتلاقي في آخر الكود الخاص بزر الأمر هذا الجزء

With Me.ListFind
    For Counter = 0 To .ListCount - 1
            SumResult = SumResult + .Column(3, Counter)
    Next Counter
End With

TextBox1.Value = SumResult

هذا الجزء تمت إضافته بحيث يحقق طلبك

أما بخصوص استفسارك عن رقم العمود .. يبد أالعد من الصفر ، وبالنظر إلى الـ ListBox ستجد أن رقم العمود المراد جمعه هو العمود الرابع أي أنه رقم 3 حيث أن العد كما قلت يبدأ من الصفر

ولا تنسى أخي الكريم ان تحدد الإجابة التي أعجبتك كأفضل إجابة ليظهر الموضوع مجاب

تقبل تحياتي

[Akram Galal]

أخي ياسر

قمت بتطبيق الكود علي ملف أخر ولم يفلح معي

ما السبب

جزاك الله خيرا

 

اليكم المرفقات

المصنف1.rar

تم تعديل أبريل 25, 2015 بواسطه Akram Galal

[احمد عبدة]

مشكو استاذ ياسر خليل 

نموذج اكثر من رائع جدا 

تم تعديل أبريل 26, 2015 بواسطه احمد عبدة

[Akram Galal]

للرفع