عرض بيانات من جدول على اكسل إلى Listbox و تصفيتها إلى Listbox آخر تم تصفيتها إلى نفس الجدول

[ابو تميم]

تحية طيبة وكل عام وأنتم بخير بمناسبة شهر رمضان المبارك وتقبل الله طاعاتكم..

لدي ملف اكسل يحتوي على فورم 

المطلوب هو جلب البيانات من الجدول إلى Listbox1 عند الضغط على زر ( عرض البيانات )

بعد ذلك نختار البيانات التي ترغب بتصفيتها والاحتفاظ بها في الجدول 

بعد اختيار البيانات المطلوبة نضغط على زر Down لنقل البيانات المحددة من Listbox1 إلى Listbox2 

لإعادة البيانات من Listbox2 إلى Listbox1 نضغط على زر Up

بعد الانتهاء من اختيار البيانات المطلوبة نضغط على زر ( تصفية على الكشف ) ويعمل هذا الزر على مسح الجدول في ملف الاكسل ابتداء من A5 مع الابقاء على القوائم التي باللون الأزرق 

بعد مسح الجدول يتم نقل ونسخ البيانات من Listbox2 إلى الجدول نفسه على ملف الاكسل

 

أرجو ان يكون الشرح واضح 

تم توضيح المطلوب على الصورة المرفقة

لكم جزيل الشكر والاحترام

Test-mov item from Listbox1 to Listbox2.rar

[عبدالله باقشير]

السلام عليكم

كل عام وانتم بخير

شاهد المرفق 2010

Test.rar

[ابو تميم]

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

الملف في غاية الروعة والإتقان جزاك الله خيرا وبارك الله فيك

[عبدالله باقشير]

الحمد لله رب العالمين

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

[حمادة عمر]

السلام عليكم

الأستاذ القدير العلامة الخبير / عبد الله باقشير

دائما ردودك نهائية و بها ابداع بلا نهاية

وذلك قبل الاطلاع علي الملف حيث انك لاتتنازل ابدا عن طريقك الطبيعي ... طريق الابداع و الكرم

الأخ الكريم / ابوتميم

هنيئا لك الابداع من المبدع استاذ الجميع

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

رمضان كريم

[عبدالله باقشير]

السلام عليكم

الأستاذ القدير العلامة الخبير / عبد الله باقشير

دائما ردودك نهائية و بها ابداع بلا نهاية

وذلك قبل الاطلاع علي الملف حيث انك لاتتنازل ابدا عن طريقك الطبيعي ... طريق الابداع و الكرم

الأخ الكريم / ابوتميم

هنيئا لك الابداع من المبدع استاذ الجميع

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

رمضان كريم

 

 جزاكم الله خيرا على مروركم الطيب

وحفظكم الله وحفظ مصر الحبيبة من كل مكروه

تقبلوا تحياتي وشكري

[شوقي ربيع]

السلام عليكم

 الكبير كبير

استاذنا القدير ملف في غاية الروعة

هذه محاولة بسيطة مني  ليست بروعت ملفك  كنت انجزتها قبل مشاهدة ملفك

تحياتي

Test.rar

[hussam alhamadani]

عمل كبير جدا ورائع من الخبراء ربي يحفظهم ويجعل هذة المجهودات في ميزان حسناتكم

عندي استفسار حول عدد اعمدة اليست بوكس هل يمكن ان يتجاوز 10 اعمدة كما في امثلتكم الرائعة حاولت فيكون 10 فقط وشكرا لكم

[شوقي ربيع]

السلام عليكم

التحكم في عدد اعمدة اليست يكون في ملف   الاستاد القدير عبد الله باقشيير بالتعديل في الكود

Private Const ContColmn As Integer = 10

حيث 10 هو عدد الاعمدة

اذا كان عدد الاعمدة اكثر من  13 عمود  يجب ان تغيير في كود  عرض البينات لكي تضهر البينات المرجة في اليست 

Me.ListBox1.List = Range("A5:M" & Lr).Value

التغيير يكون في العمود حيث  رقم العمود M هو  وهو اخر عمود سيعرض في اليست 13 يمكنك تغييره الى اي عمود تشاء

اما  A5 هو بداية عرض البينات في اليست

ارجو ان اكود اوصلت الفكرة

تحياتي

[redasamir]

السلام عليكم

كل عام وانتم بخير

 اخى عبدالله ارجو منك  ارسال الملف xls

[عبدالله باقشير]

 

السلام عليكم

كل عام وانتم بخير

 اخى عبدالله ارجو منك  ارسال الملف xls

 

 تفضل المرفق 2003

Test222222222.rar

[أبو حنــــين]

جوزيت خيرا أخي عبد الله

حفظكم الله و رعاكم

[الـعيدروس]

السلام عليكم

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

اعمال متقنه كالعاده

بارك الله فيك وفي علمك

تقبل مروري

[intendantfidele@gmail.com]

اعمال رائعة و دروس مفيدة ، استفدنا منها كثيرا ، بارك الله فيكم و جعلها في ميزان حسناتكم