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

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


abdopepo

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

             

 

abdo_1.xlsm

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

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

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

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

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

 الملف مرفق 

 

User_double.png

Doubl_User.xlsm

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

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

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

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

  • 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.

زائر
اضف رد علي هذا الموضوع....

×   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.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

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

Important Information