Jump to content
أوفيسنا

كود حذف مع اعادة الترقيم


Recommended Posts

بسم الله الرحمن الرحيم

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

الادارة المدرسية.rar

Link to post
Share on other sites

الكودات في اليوزر معقدة بعض الشيء

لذلك قمت بنغييرها و وضعت لك االاكواد  المناسبة 

اضغط على الزر  Show User  لاظهار اليوزرفورم

تختار اسم الصف من الكومبو فتظهر لك في اليست بوكس كل البيانات

  لاضافة سجل  >>>>>>>>>>>> تختار اسم الشيت من الكومبو وتملإ البيانات تم تضغط على "اضافة"

       اذا لم تكن الببيانات كافية(8 عناصر على عدد الأعمدة) يتم تلوين التكست بوكس الفارغ            باللون الاحمر و يتوقف الكود عن العمل بانتظار تعبئة كل البيانات

 لحذف سجل >>>>>>>>>>>>>>>>>>> تحتار من الليست بوكس وتضغط حذف

لتعديل سحل >>>>>>>>>>>1- تختار من الليست بوكس

                                            2-تبدل ما تريد من خلال التكست بوكسات ثم تضغط على تعديل

الملف يحتوي على صفحتين فقط ويمكن اضافة قدر ما تريد من الصفحات (بشرط التقيد بجدول البيانات من  العامود A الى العامود H   )     بدون صفوف فارغة

             

 

abdo_1.xlsm

  • Like 1
  • Thanks 2
Link to post
Share on other sites

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

 

 

Link to post
Share on other sites

جرب هذا الملف والتعامل معه يتم حسب الصورة   "User Form2"

1- في اليوزر    "User Form2"  الصفحة الأولى "Single sheet" مطابقة لليوزر الدي كنا نتعامل معه

2-في اليوزر  الصفحة الثانية  "All sheets" يقوم الكود بالبحث عن الكلمة التي تريدها من جميع الشيتات  ما عدا "formula"و  "Free" اللتين تركتهما احتياط في  حال اردنا شيئاً جديداً

3 _يمكن ادراج صفحات اخرى قدر ما تريد (شرط التقيد بالجدول من الغامود  A  الى العامود  H ( بدون خلايا فارغة في الجدول)
      و بنفس العناوين "كود الطالب" /  "اسم الطالب ..... الخ....

 الملف مرفق 

 

User_double.png

Doubl_User.xlsm

  • Like 1
Link to post
Share on other sites

وعليكم السلام نبهنا كثير جداً على هذا الأمر .. ان المشاركة بدون ملف سيكون مصيرها الحذف

فلا تنتظر المساعدة من احد بدون رفع ملف مدعوم بشرح كافى عن المطلوب وذلك تجنباً لعدم اهدار وقت الأساتذة وحيث لا يمكن العمل على التخمين

Link to post
Share on other sites
  • 2 weeks 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.

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...