قنديل الصياد

برجاء التعديل على كود الترحيل للناجح والراسب وكذا استخراج العشرة الاوائل لكل صف

السلام عليكم اخى العزيز الاستاذ رجب جاويش برجاء التعديل على كود ترحيل الناجح والراسب وكذا اوائل المدرسة لكل الصفوف علما بان المجموع الذى سياخذ فى الاعتبار اخر خلية بكشف الرصد وهى المجموع الكلى للمواد الاساسية فقط اسم المستخدم : قنديل الصياد كلمة السر : 1964 حماية الشيتات : 1023 محرر الاكواد : 2014 http://www.gulfup.com/?yQxSZa

أحمل لك باقات من الشكر والعرفان وأنهار من الثناء والامتنان.. لقاء مجهودك المتميز.. كثر الله من أمثالك ( يمناك الكريمة كانت بيدنا لعمل وعلم احتسبناه واحتسبته لله ، جمع الله شكرنا بشكره لك ) ( علّمك الله علماً فعملت به وعلّمت دعاؤنا ما دعونا لك أجزل الله لك المثوبة والأجر )

مرفق دالة للتعديل برجاء اظهار الغائب بها لانه يظهر فى خلية النتجة من ضمن الناجحين =IF(AND(J15>=$J$13;Q15>=$Q$13; X15>=$X$13;AD15>=$AD$13;AJ15>=$AJ$13;AQ15>=$AQ$13;AW15>=$AW$13;BD15>=$BD$13);"ناجح ";CONCATENATE("راسب فى"&" "&IF(J15<$J$13;$BM$2;"");" ";IF(Q15<$Q$13;$BM$3;"");" ";IF(X15<$X$13;$BM$4;"");" ";IF(AD15<$AD$13;$BM$5;"");" ";IF(AJ15<$AJ$13;$BM$6;"");" ";IF(AQ15<$AQ$13;$BM$7;"");" ";IF(AW15<$AW$13;$BM$8;"");" ";IF(BD15<$BD$13;$BM$9;""))) يظهر الطالب الراسب كالاتى : راسب فى عربى رياضيات انجليزى نشاط فنى نشاط رياضى اختيارى1 اختيارى2 دين اما الغائب فيظهر كانه ناجح لانه لا يوجد تنويه عن الغائب فى الدالة فارجو اظهار الغائب بهذه الدالة مرفق الكنترول اسم المستخدم : قنديل الصياد كلمة السر : 1964 حماية الشيتات : 1023 التعديل على الصف الاول وانا ساكمل باقى الصفوف ولكم شكرى وتقديرى http://www.gulfup.com/?x766KV

تابع الردود على الموضوعات

ما أروع قلمك حين يصول ويجول بين الكلمات تختار الحروف بكل أتقان .. تصيغ لنا من الأبداع سطور تُبهر كل من ينظر إليها .. دمت بحب وسعاده .. ** اخى واستاذى / رجب جاويش **

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

اسف اخى العزيز استاذنا الاستاذ / رجب كلمة مرور الشيتات : 1023 كلمة مرور محرر الاكواد : 2014

اخى العزيز الاستاذ رجب بارك الله فيك وعليك ارفق الملف مرة اخرى وارجو ترحيل الناجح والراسب فى نتيجة الصفوف الاول والثانى والثالث وارجو تارفاق ملف ورد به كود الصف الرابع والخامس والسادي لحين اتمام الكنترول علما بانى ارفقت ورقة بها كشف رصد الصف الرابع وعلى غراره ستكون نتيجة الصف الرابع والخامس والسادس برجاء ارفاق كود الترحيل للثلاثة صفوف وسوف اقوم بتكملته وشكرا لك واسف لطلباتى الكثيرة كلمة سر محرر الاكواد : 2014 رابط الملف http://www.gulfup.com/?eWVT4k اخى العزيز لو وجدت ان الملف كبير فقم برفعه على مركز التحميل هذا وشكرا لك http://www.gulfup.com/

مرفق الملف للتعديل مرة اخرى

اخوانى الاعزاء برجاء التعديل على كود ترحبيل الناجح والراسب بالصف الاول واضافة الترحيل لنتيجة الصف الثاانى وساقوم بتعديل باقى الصفوف اسم المستخدم : قنديل الصياد كلمة السر : 1964

تابع

تابع

تابع ت

السلام عليكم بعد اذن استاذى الاستاذ / مجدى يونس اليك اخى كشف 12 كما طلبت

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

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

برجاء عمل كود للبحث بالرقم القومى وبحث بالاسم فى الملف المرفق

اخى العزيز قم بفتح ملف اكسل وفى الورقة الاولى مثلا قمك بادراج صورة الزر ( زر التنقل بين الصفحات ) كالصورة رقم 1 قم بعد ذلك بالضغط بالزر الايمن على الصورة واختر ماكرو ثم اكتب اسم الماكرو GO_TO كما فى الصورة رقم 2 قم بعد ذلك بعمل تسجيل للمركرو وانهاء التسجيل كما بالصورة رقم 3 قم بعد ذلك بالضغط على الصورة بالزر الايمن واختر ماكرو ثم تحرير سيتم فتح محرر الاكواد وبداخله اسم الماكرو كما فى الصورة رقم 4 قم بنسخ الكود الموجود امامك والصقه كالصورة رقم 4

كود التنقل بين الصفحات Sub GO_TO() On Error Resume Next Application.CommandBars("Workbook Tabs").Controls("More Sheets...").Execute If Err.Number > 0 Then Err.Clear Application.CommandBars("Workbook Tabs").ShowPopup End If ActiveWindow.ScrollColumn = 1 ActiveWindow.ScrollRow = 1 On Error GoTo 0 End Sub واليك اخى صور لبعض الازرار

اخوانى واساتذتى الاعزاء بعض الازرار والاشكال هدية منى لاساتذتى فى المنتدى