احمدزمان

السلام عليكم اخواني يوسف عطا و NEW4A كلامكما صحيح لذلك تم تجميع كل الثلاث مشاركات هنا في هذه المشاركة و آمل من الأخ جودة عدم تكرار الأسئلة مع تحياتي و تقديري للجميع

السلام عليكم شكرا لك اخي NEW4A مبادرة جميلة وتشكر عليها جزاك الله خيرا

جزاك الله كل خير وبارك فيك وفتح لك ابواب الخير كلها اخي الفاضل

الله يحييك اخي عزة تحياتي لم افهم ايه المطلوب علشان اقولك تغير اية وتخلي اية لازم ترفق ملف به طلبك علشان اقدر افيدك بارك الله فيك

السلام عليكم و رحمة الله اطلع على شرح الكود الموجود في الرابط التالي وسوف تفهم خطوات هذا الكود http://www.officena.net/ib/index.php?showtopic=28515 وتبقى نقطة واحدة وهي W = Cells(Q, 46).Text With Sheets(W) ونحن هنا رمظنا للنص الموجود في عمود ناجح و راسب بـW وكنا قد سمينا الورقتين بنفس الأسماء ناجح وراسب لذلك سوق يأخذ الكلمة اذاكانت ناجح سوف يربطها بورقة ناجح و اذاكانت راسب سوف يربطها بورقة راسب مع التحية و التقدير

اخي احمد بارك الله فيك - و جزاك الله كل خير = = = = = = = = = = انا عملي في الأكواد قليل جدا لذلك لم اجد كود آخر لأقوم بشرحة ولكن ان وجد فسوف اقوم بذلك جزاكم الله كل خير جميعا

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

آآآآآآآآآآآآآآآآه ان الله مع الصابرين لو صبر القاتل على المقتول كان مات لحالة

السلام عليكم =IF(B13="";"";IF(P13<SUMIF(ثوابت!$A$2:$A$20;$M$4;ثوابت!$B$2:$B$20);$M$4&"_";0) هذة دالة استخراج مواد الرسوب وهي مكررة عدة مرات بعدد المواد طبعا استخدمنا الدالة الشرطية if الشرط الأول - اذاكانت خانة الإسم وهو العمود B غارغة اكتب في هذه الخلية فراغ اذا لم يتحقق شرط الفراغ - اي يوجد كتابة اضفنا دالة شرطية IF اخرى اذا كان الدرجة في العمود P اصغر من قيمة الدرجة للمادة في صفحة الثوابت (SUMIF) شرحها ادناه - اذا ادخل القيمة الموجودة في الخلية M4 والتي هي اسم المادة طبعا SUM IF SUMIF(ثوابت!$A$2:$A$20;$M$4;ثوابت!$B$2:$B$20) طبعا هذه الدالة مخصصة للجمع بشرط - ولكن نحن تحايلنا هنا واستخدمناها استخدام آخر وهو اخذ قيمة بشرط من ورقة اخرى آمل ان تكون اتضحت الصورة الآن ====================================================================== =IF(B9<>"";IF(AS9=0;"غائب";IF(ISERROR(VALUE(AU9));"راسب";"ناجح"));"") ايضا هنا نرة اخرى استخدمنا دالة الشرطية IF وهي متداخلة مرتين داخل الدالة و استخدمنا VALUE وهي تستخدم لإرجاع قيمة الى رقم بحيث نعرف الخلية التي لايوجد بها مواد رسوب سوف تعطينا القيمة صفر - اذا نكتب ناجح و استخدمنا ISERROR وهي تستخدم للتأكد من الصيغة تعطينا خطأ وهذا ما حدث فعلا حيث ان اي قيمة رقمية للحروف العربية يكون الناتج ##VALUEبمعنى خطاء - اذا يوجد نص - اذا يوجد مواد رسوب - اذا الطالب راسب آمل ان تكون اتضحت الفكرة مع التحية و التقدير اخوك احمدزمان

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

مرفق الحل كما ذكرة الأستاذ الكريم JUSTIC tarbua_Solution.rar

السلام عليكم وهذه صيغة الكود الذي يعمل مع WORKBOOK Private Sub Workbook_Open() Sheets(1).Select End Sub اما الجزء الثاني لم افهمه ممكن توضح اكثر جزاك الله كل خير لماذا لأنه هنا يختلف صيغة الكود حسب ماتريد عملة بالضبض فـ يمكنك ان تشير الى مجال معين في ورقة اخرى باستخدام اسم الورقة و المجال SHEETS(1).RANGE("A1:C11") وغير ذلك طرق اخرى يوجد شرح لذلك من طرف الأستاذ الفاضل القدير هادي سالم - راجع مشاركاته

السلام عليكم اخي جمال شرح الدوال او المعادلات محتاج وقت اما بالنسبة للطباعة اختار من القائمة اعلى الصفحة القائمة ملف ثم اعداد الصفحة PAGE SETUP ثم من الشاشة التي تظهر تأخذ آخر تبويب وهو ورقة SHEET ثم سوف تجد 3 خانات للإدخال الأولى لتحديد ناحية الطباعة - وهي المنطقة من الورقة الثانية - الصفوف المكررة في الأعلى - تضغط عليها بالماوس ثم تحدد بالماوس الصفوف التي تريدها ان تكرر في كل صفحة للطباعة الثالثة - الأعمدة المكررة في الورقة - تضغط عليها بالماوس ثم تحدد بالماوس الأعمدة التي تريدها ان تكرر في كل صفحة للطباعة آمل تن يكون واضح وشرح الدوال يأتي لاحقا بإذن الله

آسف جدا ولكن هذه امكانياتي و حدود فهمي لطلبك

السلام عليكم اخي يوسف عطا جرب المرفق بداخلة الكود OpenFileAtPage1.rar

السلام عليكم و رحمة الله و بركاته تم عمل تلوين درجات الرسوب لكل مادة بالون الأحمر تلوين الراسب باللون الأحمر الفاتح الطباعة تتم بالون الأسود فقط مهما كانت الألوان الموجودة في الصفحة نقل الراسب الى الى ورقة راسب نقل الناجح الى ورقة ناجح نقل الغائب الى ورقة غائب On Error Resume Next Application.ScreenUpdating = False QQ = ActiveSheet.[b55555].End(xlUp).Row For Q = 9 To QQ If Cells(Q, 46) <> "" Then W = Cells(Q, 46).Text With Sheets(W) E = .[b55555].End(xlUp).Row + 1 For C = 1 To 47 .Cells(E, C) = Cells(Q, C) Next C End With End If Next Q وهو مقتبس من احد مشاركات الأستاذ خبور = = = = = = = = = يمكنك اضافة جميع الصفوف من أول الى سادس الى هذا الملف - وسوف يقوم هذا الكود بنقل الناجحين و الراسبين من اي ورقة الى ورقة ناجح و ورقة راسب مع التحية و التقدير ____________.rar

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

اخي جمال ملفك انا شغال علية والحل لن يكون في لمح البصر ان الله مع الصابرين و غدا لنا لقاء مع بداية الحل

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

اخي mfawaz جزاك الله كل خير وبارك الله فيك

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

في هذه الورقة اذهب الى ادوات ثم خيارات ثم أزل العلامة الموجودة على - رموز الصفر وجرب آمل اعلامي بالنتيجة

السلام عليكم لا مشكلة - كلها اسماء شاهد الحل المرفق khhana_if.rar

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

السلام عليكم و رحمة الله وبركاته اخي Justice شكرا لك على مرورك الكريم جزاك الله كل خير اخي روشدي جزاك الله كل خير و اسأل الله ان يشملك ببركاته اخي DVB Software شكرا لك وبارك الله فيك اخي كلالي جزاك الله خيرا وبارك فيك اخي يوسف عطا جزاك الله خيرا و الف الف الف شكر لك اخي mfawaz بارك الله فيك وفتح الله عليك و جزاك خير الجزاء مع تقديري و تحياتي للجميع