عبد الفتاح كيرة

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

تفضل الترحيل بدون تأثر بالترتيب الهيكل kemas.zip

إضافة جميلة أستاذ خالدى

Sub testo() Sheets("result").Select Range("e2:e100").Formula = "=SUMPRODUCT((DATA!B:B<A2)*(DATA!M:M=$h$1)*(DATA!A:A=B2)*(DATA!W:W))" End Sub الخلية h1 فى الشيت result بها القيمة MOHAMMED

ليس هناك تصفية البيانات نقلت كما هى المرفق الهيكل kemas.zip

هذا كود يعمل بكفاءة مع الشكر للإخوة Sub Macro2() ' ' Macro2 ãÇßÑæ ' ' If Sheets("æÑÞÉ1").Range("a2").Value = "ÏæáÇÑ ÃãÑíßí" Then Sheets("æÑÞÉ1").Range("b2").NumberFormat = "[$$-409]#,##0.00" ElseIf Sheets("æÑÞÉ1").Range("a2").Value = "ÏíäÇÑ ÃÑÏäí" Then Sheets("æÑÞÉ1").Range("b2").NumberFormat = "[$Ï.Ç.þ-2C01] #,##0.00_-" ElseIf Sheets("æÑÞÉ1").Range("a2").Value = "íæÑæ" Then Sheets("æÑÞÉ1").Range("b2").NumberFormat = "[$€-2] #,##0.00_-" End If End Sub نسخ تنسيق الخلية من خلية أخرى بشرطkemas.zip

و هذه هدية للأخ الحسامى

أرفق ملفا أخى

شكرا لجميع الإخوة rahekk أبو العقاب بارك الله فيكم

=IF(SUMPRODUCT(--(AB11:AJ11<>""))>0 الشرح : إذا كان عدد الخلايا غير الفارغة أكبر من صفر فى المدى AB11:AJ11 نفذ التالى الخالدي-معدل2.zip

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

بالنسبة لوضع الصفر مكان الخلية الفارغة يمكن ضبط إكسل على ذلك فى 2010 أو 2007 ملف خيارات خيارات متقدمة خيارات عرض ورقة العمل هذه ثم أزل العلامة من المربع المكتوب أمامه إظهار صفر فى الخلايا التى تحتوى على قيم صفرية

عليكم السلام ورحمة الله و بركاته حسبما فهمت المطلوب إخفاء عبارة دون المستوى حينما لا يكون هناك درجات مرصودة أو يكون هناك أعمدة لم تكتب درجاتها أولا معادلة حساب تقدير اللغة العربية و غيرها طبعا من المواد هى كالتالى مثلا فى اللغة العربية فى العمود aa =IF(Z11="غ";"دون المستوى";IF(V11="غ";"دون المستوى";IF(V11<$V$10;"دون المستوى";IF(Z11*100/$Z$9>=85;"ممتاز";IF(Z11*100/$Z$9>=75;"جيد ج";IF(Z11*100/$Z$9>=65;"جيد";IF(Z11*100/$Z$9>=50;"مقبول";IF(Z11*100/$Z$9<50;"دون المستوى")))))))) طبعا يمكن اختصارها و جمع دون المستوى المتفرقة فى جملة شرطية واحدة بدلا من ثلاثة هكذا مثلا فى عمود حساب التقدير فى الرياضيات =IF(SUMPRODUCT(--(AB11:AJ11<>""))>0;IF(OR(AJ11="غ";AF11="غ";AJ11*100/$AJ$9<50;AF11<$AF$10);"دون المستوى";IF(AJ11*100/$AJ$9>=85;"ممتاز";IF(AJ11*100/$AJ$9>=75;"جيد ج";IF(AJ11*100/$AJ$9>=65;"جيد";IF(AJ11*100/$AJ$9>=50;"مقبول";)))));"") ثانيا المعادلة الجديدة فى حالة كون الدرجات لم ترصد مطلقا تكون الخلية نظيفة إذن المعادلة السابقة توضع فى عمود حساب تقدير الرياضيات و هى 1 - تم اختصارها 2 - فى حالة خلاء الأعمدة تماما من الدرجات بعد المسح تكون الخلية نظيفة جرب و شوف

ما المطلوب فى الملف أخ قصى ؟

الملف لا يفتح

مبارك عليك الترقية أخى الكريم إلى الأمام دوما

هل يأذن أخونا المهندس طارق أن أرفع الفديو على قناتى فى يوتيوب ؟ مع الشكر

شكرا أخى office 2003 الدالة جديدة غير موجودة فى office 2003 شكرا لمرورك

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

تفضل معادلة مطلوبة.zip

جزاك الله خيرا وزادك علما عدلت الكود كى يعمل بطريقة الحماية Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("b3:r33")) Is Nothing Then If Cells(Target.Row, 1) < Date Then ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True [a1].Select Else ActiveSheet.Unprotect End If End If If Not Intersect(Target, Range("a3:a33")) Is Nothing Then [a1].Select End If End Sub

لم يوضح المطلوب فى بداية المشاركة هل الغائب فى مادة يحسب غائبا؟ أم الغائب فى جميع المواد يحسب غائبا ؟

أشكر جميع الإخوة المتابعين للموضوع جزاكم الله خيرا أخى halwim قم بتركيب هذه الأكواد على جهازك ليعمل الفيو الموجود بالمشاركة http://www.free-codecs.com/k_lite_mega_codec_pack_download.htm

عليكم السلام إن شاء الله اقتراح طيب أخى عماد مع اعتزازى بشهادتك و إن شاء الله فى سبيله للتنفيذ بعون الله و مؤقتا فإن لى قناة على يوتيوب لا أدرى إن كان مسموحا هنا نشرها هنا http://www.youtube.com/user/MsKemas و هى تشتمل على 19 فديو تزيد من آن لآخر جزاك الله خيرا

شكرا لك أخى جزاك الله خيرا