اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by عبدالله باقشير,

الردود الموصى بها

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

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

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

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

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

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

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

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

 

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

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

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

Test-mov item from Listbox1 to Listbox2.rar

post-75375-0-84312100-1374594660_thumb.j

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

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

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

رمضان كريم

رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

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

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

رمضان كريم

 

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

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

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

رابط هذا التعليق
شارك

السلام عليكم

 الكبير كبير

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

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

تحياتي

Test.rar

رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

السلام عليكم

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

Private Const ContColmn As Integer = 10

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

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

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

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

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

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

تحياتي

رابط هذا التعليق
شارك

  • 2 months later...
  • 5 years later...
زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information