ابوحبيبه

شاهد المرفق ملف١.xls

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

بارك الله فيك اخي الكريم ودمتم بصحة وخير ...

جزاء الله خيرا اخي ... lionheart جزاء الله خيرا اخي ...عبدالله بشير عبدالله ما شاء الله ... الملف فعلا شغال ويستدعي البيانات المطلوبة . لكن هناك ملحوظة لو ان الاسماء اكثر من 20 . عند الضغط على السهم لأعلى _ بجوار خانة المواد _ لا يعطيني الاسماء الباقية هل من طريقة للحصول على باقي الاسماء عند الضغط على السهم لأعلى

الاخ الفاضل : shabrawy ادخل على محرر اكواد ال VBA ...وحاول فهم خطوات الكود . وان لم تصل لشيء . فسوف اعد لك شرح مبسط للموضوع

اخي الفاضل Mohamed Hicham الملف عبارة عن 3 ورقات عمل وكل ورقة باسم شخص مختلف عن الاخر ... ولا يوجد شيء اخر غير ذلك

السلام عليكم الحمد لله ان المشاركات كلها تصب في صالح الاعضاء والكل في خدمة الكل . وده شعار المنتدي الجميل اللي انا استفدت منه كثيرا واحببت ان افيد غيري اعلم ان الملف غير كامل . لكني تعلمت من المنتدى . ان يكون للعضو مساحة من الاضافة والتحديث على الملف بما يناسبه اخي الفاضل ... الشرح بالصورة 7777.xlsm

الحمد لله ... انك وجدت من يساعدك لاني اهتميت بالموضوع كثيرا وكل الشكر للاخ lionheart الذي نستفيد منه كثيرا . ومن جميع الخبراء بالمندى

السلام عليكم اليك هذا الملف بعد التعديل 7777.xlsm

شكرا اخيي على الاهتمام ... لكن للاسف فعلت المطلوب ولم اتوصل لحل . اريد كود لوضع الرقم داخل الدائرة في وضع التوسيط

بعد اذن @Mohamed Hicham ينفع الحل ده ناجح(2).xlsx

حوار الكبار ! ليس في السن بل في العلم واجمل مافي هذا المنتدى هو احترام الكل للكل ومساعدة الاخرين ... بارك الله فيكم وزادكم من علمه ودمتم في خدمة العلم

شكرا على الاهتمام ... الارقام فعلا ظهرت في منتصف الدائرة . لكنها ليست في وضع توسيط كما بالصورة فانا اريدها كذلك ولك الشكر

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

السلام عليكم اليك الطريقة بعد التعديل على الملف فى صفحة ارقام الجلوس2 Private Sub CommandButton1_Click() Range("e2").Select ActiveCell.FormulaR1C1 = "1" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Do ActiveCell = ActiveCell + 10 ActiveWindow.SelectedSheets.PrintOut If Range("e2").Value >= 20 Then Exit Sub Loop Until ActiveCell.Value = Range("p10").Value Range("A1").Select End Sub يرجي وضع الاكواد بين اقواس طباعة_1.xlsm

كل الشكر والتقدير مع خالص تحياتي ...

السلام عليكم هذا ماتوصلت اليه ... لكن حاسس انها طريقة عقيمة وتحتاج كم كبير جدا من الصفوف ام يوجد طريقة افضل منها ؟ qu-2.xlsm

شكرا اخي محمد ... ساحاول اكتشاف الامر باذن الله ... ساوافيك ان شاء الله غدا بما وصلت تحياتي لك ...

شكرا لك ... هذا هو المطلوب جزاك الله خيرا . وعلى القائمين على هذا المنتدى التعليمي الجميل . طلب اخير ... اخي محمد هل يمكن تطبيق ذلك على 20 سؤال مثلا ... وكيف ؟

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

السلام عليكم اختبار وفيه اجابة السؤال متعددة . اريد عندما اختار من القائمة (1) الاختيار الاول . عندما اذهب للقائمة (2) اجد القائمة لا تظهر فيها الاختيار الاول وعندما اذهب للقائمة (3) اجد القائمة لا تظهر فيها الاختيار الاول والاختيار الثالث . وهكذا حتى لاتتكرر الاختيارات . qu.xlsx

السلام عليكم . هذه النسخة تم تعديلها لتتناسب مع رغبة الطالب بجانب المجموع وده رابط البرنامج المعدل. اضغط على الصورة

تعديل وشرح لبعض النقاط الهامة اولا : تم تعديل بعض المعادلات لزيادة عدد التخصصات ثانيا : شرح لبعض النقط الهامة عند اختيار الرغبات وتعديلها رابط التعديل https://www.mediafire.com/file/vlaump9km3a3viu/برنامج+توزيع+التخصصات_اسكندرية_معدل.rar/file