Jump to content
أوفيسنا

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


Go to solution Solved by عبدالله باقشير,

Recommended Posts

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

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

المطلوب هو جلب البيانات من الجدول إلى 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
Link to post
Share on other sites

السلام عليكم

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

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

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

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

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

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

رمضان كريم

Link to post
Share on other sites

السلام عليكم

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

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

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

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

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

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

رمضان كريم

 

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

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

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

Link to post
Share on other sites

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

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

Link to post
Share on other sites

السلام عليكم

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

Private Const ContColmn As Integer = 10

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

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

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

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

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

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

تحياتي

Link to post
Share on other sites
  • 2 months later...
  • 5 years later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • Similar Content

    • By hafidcheraga
      سلام عليكم
      كيف يتم انشاء جدول حدود خلاياه تكون محدودة  غير قابلة للتساع وتحديد الحروف داخل الخلية.

    • By حسام مصطفي
      السلام عليكم 
      اساتذتي الكرم 
      احتاج الي زر للتعديل في سجل او صف معين في ليست بوكس 
      فعندما اختار واحدد احد صفوف الليست بوكس تظهر القيم الخاصه بهذا الصف في تكستات بوكس 
      فهل من الممكن التعديل في التكستات هذه ليتم التعديل في بيانات الليست بوكس فقط قبل الترحيل للشيت او تنفيذ اي شئ 
      او هل هناك طريقة اخري لتنفيذ ذلك 
      ومرفق ملف للاستاذ / حمادة عمر ... جزاه الله خيرا 
      كمثال للعمل عليه 
      في انتظار روائعكم اساتذتي 
      مثال في الصورة لما هو مطلوب 

       
       
      طريقة تصميم فورم بحث عن طريق لست بوكس5.xls
    • By حسام مصطفي
      السلام عليكم 
      اساتذتي الكرام 
      مرفق ملف للقدير الاستاذ / حمادة عمر .. جزاه الله خيرا 
      به فورم بحث واظهار النتائج في ليست بوكس ... يتم كتابة الاسم في التكست بوكس فتظهر النتائج في ليست بوكس 
      قمت باضافة زر مسج في الفورم اريد كود له يعمل علي 
      مسح السجل او الصف الذي تم تحديده في الليست بوكس بالضغط علي زر المسح وذلك من الليست بوكس فقط 
      وجزاكم الله خيرا 
      في انتظار روائعكم 
       
      طريقة تصميم فورم بحث عن طريق لست بوكس4.xls
    • By محمد طاهر
      عند اضافة جدو ل أو رسم فى بحث علمي او مستند احترافي  يتم استخدم الامر التالي
      references
      Insert Caption
      فيأخذ الجدول الترقيم الالي من ناحية و يتعرف المستند عليه ككائن مميز كجدول Table أو كرسم توضيحي (شكل) Figure 
      و من ناحية اخرى نتمكن لاحقا من اعداد قائمة آلية بالجداول و الأشكل  و ذلك من
      References
      insert Table or figure

       و عند الاشارة الى الجدول او الرسم التوضيحي  ضمن سياق الكتابة نستخدم
      Cross Reference captions
      مثال :   
      التحديث:
      بالنسبة لقائمة المراجع و الرسومات التوضيحية يمكن تحديثها بصورة آلية دفعة واحدة باختيار الحدول ثم 
      Update Field
      Update Entire Table
      ولكن المشكلة تكمن فى تحديث الاشارات المرجعية ضمن سياق الكتابة اذا لا يمكن تحديثها كلها دفعة واحدة ، و يجب اختيارها واحدة واحدة ثم اختيار 
      Update Field
       و هذا طبعا اجراء مرهق فى حالة المستندات الكبيرة التي تجوى الكثر من الاشارات جداول و رسومات او عناوين فرعية ايضا
      لذا هناك حلان كما سيلي فى الرد التالي على الموضع
       
    • By Laweed
      السلام عليكم ورحمة الله وبركاته 
      لدي جدولين طلاب ابتدائي وطلاب اعدادي مرتبطين بجدول المدارس 
      اريد ان احصل على عدد الذكور حسب مكان كل مدرسة 
      كيف يجب ان تكون الوصلات بين الجداول 
       
  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...