قنديل الصياد

استكمالا لسلسلة دوال أعجبتنى

مرفق ملف به مجموعة بسيطة من الدوال ولكنها اعجبتنى

اساتذتى الاعزاء مرفق ملف به كود للحفظ الذاتى بحيث لا داعي لحفظ الملف مع كل تعديل فالملف يقوم بحفظ نفسه عند الاغلاق من خلال استخدام كود vba وجدت هذا الملف فاردت ان استفيد به وكذا اخوانى البسطاء امثالى لانه هنا يوجد اساتذة اجلاء لهم الكثير والكثير من الاعمال الجميلة والمتجددة Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.DisplayAlerts = False ThisWorkbook.Save Application.Quit End Sub الكود يوضع فى الـ Workbook

اخى العزيز واستاذى المبدع arr(ii, 1) = Cells(i, "H") arr(ii, 2) = Cells(i, "M" هذان السطرن لمادة اللغة العربية والرياضات لو زادت المواد اضيف اسطر اخرى بنفس القيم مع تغيير اسم خلية المادة برجاء التغيير فى الكود على المواد التنى اضفتها ولك شكرى وامتنانى وتقديرى

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

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

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

بعد اذن اساتذتى الكرام هذا حل اخر

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

الاخ العزيز اين الملف المذكور

• الأستاذ الفاضل الاستاذ / رجب جاويش للنجاحات أناس يقدرون معناه ، وللإبداع أناس يحصدونه ، لذا نقدّر جهودك المضنية ، فأنت أهل للشكر والتقدير ..فوجب علينا تقديرك ...فلك منا كل الثناء والتقدير .

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

لقد قمت برفع االبرنامج من على جهازى برنامج صناعة اللوجو والشعارات Sothink Logo Maker حمل من هنا باتش التفعيل للبرنامج

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

السلام عليكم اخى العزيز الاستاذ رجب جاويش برجاء التعديل على كود ترحيل الناجح والراسب وكذا اوائل المدرسة لكل الصفوف علما بان المجموع الذى سياخذ فى الاعتبار اخر خلية بكشف الرصد وهى المجموع الكلى للمواد الاساسية فقط اسم المستخدم : قنديل الصياد كلمة السر : 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

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

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

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