Salem2020

احسنت اخي الكريم بارك الله فيك وجزاك الله عني كل خير اخي سليم حاصبيا ممكن تقول لي كيف قفزت على ترتيب الراسبون وكتبت بدلا من الترتيب عبارة (راسب) وشكرا لك

أخواني تجدون في الملف المرفق ( شيت ) عبارة عن شهادة مدرسية تأخذ بياناتها من ( شيت ) آخر عبارة عن مسودة بالدرجات عبر القوائم المنسدلة الموجودة في الشهادة الشهاد جاهزة ولكن لدي مشكلة وهي أكثر من طالب مشتركون في الرقم (1) مثلا أريد إضافة كلمة (مكرر) أمام المشتركون في نفس الرقم كما أني لا أرغب بترتيب الطلاب الراسبون حيث يوجد بعض الراسبون في الكشف ، كيف يمكنني التغلب على هذه المشكلة افيدونا جزاكم الله خيرا ملاحظة: الخلايا المطلوبة باللون الاصفر المكرر.xlsm

اعتذر منك اخي وجيه ولكن واجهتني صعوبة في نسخ الدالة حيث يوجد أكثر من دالة ولدي اكثر من 24 شيت ارغب في تكرار ما فعلت انت في بقية الشيتات لو تكرمت توضيح بسيط علما بأنني اعكف حاليا على تصميم ملف متكامل لإدارة المدارس واسأل الله أن لا يحرمك أجر الصدقة الجارية

بارك الله فيك أخي وجيه وجعله في ميزان حسناتك وغفر الله لوالديك

السلام عليكم ورحمة الله في الملف المرفق لدي ثلاثة شيتات الأول فيه مسودة جميع الطلاب الناجحون والراسبون معا وفي الشيت الثاني أريد أن أضع الطلاب الناجحون وفي الشيت الثالث اريد وضع الطلاب الراسبون فهل يمكنني القيام بعملية الفرز هذه بشكل آلي وتلقائي أم لابد من الكتابة اليدوية ولكم جزيل الشكر ولكم مني ألف إعجاب مقدما ❤️ Sheet0.xlsx

بارك الله فيكم جميعا الأخ علي والأخ سليم تم استخدام دالة الاخ سليم دمتم بصحة وسلامة

لدي شيت الاكسل المرفق يحتوي على (8) شيتات عبارة عن مسودات درجات الطلاب لاحظ في اعلى يسار الشيت يوجد تبويت (يبدأ الشيت بأسم الطالب / فلان ) الذي هو الطالب الاول في الكشف وينتهي الشيت بأسم الطالب فلان والذي هو الطالب الاخير في الكشف بالنسبة للطالب الأول فمن السهل وضع اسمه تلقائيا في تبويب (يبدأ الشيت باسم الطالب / فلان) بحكم أن رقم (1) مشغول دائما وذلك عن طريق نسخ ولصق ارتباط الخلية (1) التي فيها اسم الطالب الاول لكن المشكلة تكمن في الطالب الاخير في الكشف حيث أن جميع الشيتات تحتوي على عدد طلاب أقل من (30) طالب وهو إجمالي عدد الطلاب في الشيت وبالتالي لا يمكنني عمل نسخ ولصق ارتباط للخلية رقم (30) حيث انها فارغة لا تحتوي على بيانات فهل يمكنني وضع اسم الطالب الاخير بشكل آلي في تبويب (ينتهي الكشف باسم الطالب /فلان) بغض النظر عن موقعه في الشيت ، هل هناك طريقة تغنيني عن التدخل اليدوي في وضع اسم الطالب الاخير، ارجوا افادتي ولكم جزيل الشكل والتقدير عنوان مخالف جداً ... تــم تعديل وتغيير عنوان المشاركة ليعبر عن طلبك Sheets.xlsx

أحسنت أخي سليم بارك الله فيك أخي سليم وجعله في ميزان حسناتك ورزقك الله من حيث لا تحتسب ❤️ اخواني جزاكم الله خير قمت بإرفاق ملف يوضح مشكلتي، الملف عبارة عن ثلاثة شيتات رصد ومسودة وشهادة العمل كله يتلخص في وضع ترتيب رقمي للطلاب في خانة الترتيب داخل الشهادة مستوردا البيانات من المجموع الكلي المرتبط اصلا بشيت المسودة عبر القائمة المنسدلة. فلو اخترت اي رقم من القائمة المنسدلة في الشهادة سيتغير المجموع الكلي للطالب اريد عمل ترتيب لهذا المجموع بحيث لا يقفز أي رقم في حال التكرار كما سبق وشرحت وجزاكم الله خير شهادات.xlsx

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

جزاك الله خير ... تم العثور على المطلوب في موقع أجنبي ولكي يستفيد الغير فكل ما عليك هو اضافة ورقة عمل جديدة داخل المصنف الذي ترغب بحمايته وكتابة رسالة تطلب من المستخدم تمكين وحدات الماكروا وبعد ذلك الذهاب الى محرر الاكواد بالضغط على ctrl + f11 والضغط مرتين على thisworkbook ثم لصق الكود التالي في المحرر Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim ws As Worksheet, wsSplash As Worksheet Application.ScreenUpdating = False Application.EnableEvents = False Set wsSplash = Worksheets("Splash screen") wsSplash.Visible = xlSheetVisible For Each ws In ThisWorkbook.Worksheets If ws.Name <> "Splash screen" Then ws.Visible = xlSheetVeryHidden Next ws Cancel = True ThisWorkbook.Save For Each ws In ThisWorkbook.Worksheets If ws.Name <> "Splash screen" Then ws.Visible = xlSheetVisible Next ws wsSplash.Visible = xlSheetVeryHidden Application.EnableEvents = True Application.ScreenUpdating = True End Sub Private Sub Workbook_Open() Dim ws As Worksheet, wsSplash As Worksheet Dim Pswd As String Pswd="myPassword" Application.ScreenUpdating = False Set wsSplash = Worksheets("Splash screen") wsSplash.Visible = xlSheetVisible For Each ws In ThisWorkbook.Worksheets If ws.Name <> "Splash screen" Then If ws.Name="Sheet1" Then If InputBox("Please enter your password")=Pswd Then ws.Visible=xlSheetVisible Else ws.Visible = xlSheetVisible End If End If Next ws wsSplash.Visible = xlSheetVeryHidden Application.ScreenUpdating = True End Sub وكل ما عليك هو استبدال كلمة (splash screen) بأسم الصفحة التي أعددتها للتنبيه ومن ثم الحفظ بعد ذلك قم بإلغاء تفعيل وحدات الماكروا وافتح الملف ستظهر لك فقط الصفحة رقم 1 التي انشأتها وبها رسالة تطلب منك تمكين وحدات الماكروا وعند عمل ذلك وإعادة تشغيل الملف ستختفي الصفحة رقم 1 التي انشأتها وسيتم عرض بقية المصنف

السلام عليكم لدي ملف إكسل متكامل لإدارة مدرسة يحتوي على وحدات ماكرو ويوزرفورم رئيسي وفرعي وكلمات مرور المشكلة الوحيدة التي تواجهني هي أنه إذا قام شخص آخر بنسخ الملف وفتحه على جهاز كمبيوتر آخر غير مفعله فيه وحدات الماكرو سيتم فتح الملف مباشرة متجاوزا كلمات المرور وواجهة اليوزرفورم غيره هل هناك طريقة تمكنني من تقييد الملف ومنع فتحه في حال لم تكن وحدات الماكرو مفعلة على الجهاز الآخر ؟ ... وشكرا

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

السلام عليكم كيف يمكنني تحويل الترتيب في دالة rank من ترتيب رقمي ( 1 ، 2 ، ..... ) إلى ترتيب كلمات ( الأول ، الثاني ، الثالث ) حيث ارغب بأن يظهر ترتيب الطلاب كتابيا وليس رقميا كما أرغب بأن يظهر الترتيب في نفس الخلية التي بها المعادلة ولكم جزيل الشكر والتقدير عنوان مخالف... تم تعديل عنوان المشاركة

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

أحسنت بارك الله فيك ... تم عمل المطلوب بنجاح

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