قنديل الصياد

السلام عليكم اخى العزيز

ارجو ان يكون هذا هو المطلوب

الاخت العزيزة

الملف موجود على اوفيس 2010 ولو قمنا بفتحه على اوفيس 2003 لن يعمل وبما انك لا تملكين اوفيس 2010 سارفق لكى حزمة توافق لكى تقوم بفتح ملفات الاوفيس 2007 ، 2010 على اوفيس 2003 

قومى بتسطيبها على جهازك وسيتم فتح جميع ملفالت 2007 ، 2010 على جهازك

وقد قمت برفع حزمة التوافق من على جهازى على هذا الرابط

حزمة التوافق ... حمل من هنا

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

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

أعجبتنى دالة جميلة بل ورائعة لاستاذنا الاستاذ / هشام شلبى

وهى كيف تصنع دالة باسمك

فقمت بعد اذن استاذى العزيز بعمل دالة باسمى مع تغيير علامة الضرب (*) الى علامة  الجمع (+) وهى دالة رائعة جدا

الكود

Function kandeel(Length As Double, Width As Double)
    kandeel = Length + Width
End Function

مرفق ملف به الدالة

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

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

اساتذتى الاعزاء

مرفق ملف به كود للحفظ الذاتى

بحيث لا داعي لحفظ الملف مع كل تعديل فالملف يقوم بحفظ نفسه عند الاغلاق من خلال استخدام كود 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

حمل من هنا

باتش التفعيل للبرنامج

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