قنديل الصياد

السلام عليكم

اخى العزيز الاستاذ رجب جاويش

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

اسم المستخدم : قنديل الصياد

كلمة السر : 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

واليك اخى صور لبعض الازرار

اخوانى واساتذتى الاعزاء

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

استاذى العزيز / الاستاذ جمال دغيدى    ...  الاستاذ عباس لم يغلق محرر الاكواد  انا من قمت بعمل كلمة سر له

كلمة السر لمحرر الاكواد  : 1023