الشهابي

أخي العزيز
اظن أنك وضع شرطين للجمع لتحققهما معا حتى يتم الجمع
فالمعادلة تبحث في النطاق للخلايا التي تساوي 5 وتساوي1 في نفس الحال أي (نفس الخلية ) تساوي 5 وتساوي 1 في النطاق نفسه وهذا غير موجود
ولكن المفروض أن تكون جمع الخلايا التي تساوي 5 والخلايا التي تساوي 1 وهذا موجود فيتم الجمع
لاحظ المرفق
تم عمل المطلوب بطريقتين
sumifs.zip

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

السلام عليكم 
أخي العزيز لعلني لم استوعب المطلوب بشكل جيد 
ولكن إن شاء الله من خلال ملاحظاتكم ومراجعة الجدول سيتم تدارك الأخطاء وتصحيحها
بالنسبة لطلبكم الأخير تم التعديل في معادالة الزيادة فقط و إن شاء الله تكون مضبوطة
بيان العجز والزيادة للعام 2021 (1).xlsx

أخي العزيز / أبو حنين
إضافة إلى حلول الأخوة الكرام لأستاذ :القبطان و الأستاذ : عبد الله بولنوار جزاهما الله خير 
و لا ننسى أستاذنا القدير / ياسر خليل جزاه الله خير
هذاحل بواسطة هذه المعادلة توضع في التنسيق الشرطي وهي
=TEXT(DATE($G$1;COUNTIF($H$2:H$2;1)+1;H$2);"ddd")="السبت" على أساس أن البداية تكون من شهر يناير  حتى لم يوضع رقم الشهر في الصف الأول 
 
السبت 1.rar

أخي العزيز /hamood.alharthi
عفوا تم رفع الملف بالغلط في موضوع آخر
هذا حل بالمعادلات بواسطة أعمدة مساعدة في كلا الورقتين تم تظليلهما باللون الأصفر
إن شاء الله يلبي طلبك 
Staff Details1.rar

أخي العزيز / طارق زكريا حسين جاه الرسول
جرب المرفق لعله المطلوب إن شاء الله 
كود للطباعة.rar

أخي العزيز / مهند الزيدي 
هذا حل ليس عن طريق الفورم والكود  ولكن بالمعادلات
حيث تم إضافة معادلة خاصة في الخلية (D5) من أجل ذلك 
قم بتغير اسم الوصل واذهب إلى صفحة الطباعة وسوف تلاحظ تغير البيانات حسب الجدول المحدد
لاحظ المرفق 
إن شا الله يحقق مطلوبك 
والعفو
 
Book1.rar

أخي العزيز / ۩◊۩ أبو حنين ۩◊۩
هذا كود لأستاذنا القدير / عبد الله باقشير حفظه الله  قد طلبته منه منذ فترة طويلة 
مع بعض التغيرات والإضافات القليلة ليتناسب مع مطلوبك 
إن شاء الله يحقق لك ذلك 
تقبل تحياتي 
TIST1.rar

أخي العزيز / إنسان 27 
بصراحة أعجبني الشرح المفصل داخل أكواد الفورم  فهو درس يستطيع الواحد منه التعلم
لو كل الأكواد التي توضع مشروحة بهذا الشكل ستصبح دروس للتعليم متكاملة 
أتمنى من أساتذنا الكرام إذا كان لديهم الوقت أن يقوموا بوضع شروحات للأكواد بنفس الطريقة ليستفيد الجميع
بالنسبة للخطاء بعد إطلاعي على ملفكم 
هو أنك أدخلت أسماء الشركات أرقاماً
ووجدت في كود الفورم خاصية التعامل معها على أنها نصوص 
جرب تغير الأسماء المكتوبة أرقام وسوف تلاحظ ظهور البيانات إن شاء الله
هذا وقد يكون لأساتذنا الكرام رأي آخر

أخي العزيز / ياسر فتحي البنا
وبعد  اذن أستاذنا الكبير بمعنى الكلمة  أو حنين وخديجة  الذي أكن له كل المحبة والإحترام والتقدير 
جرب هذه المعادلة حسب ما فهمت أيضاً من شرحكم الكريم 
=IF(I7>=0%;H7*50%;IF(I7>=80%;H7*I7;IF(I7>95%;H7*100%))) تحياتي وتقديري لكم ولأستاذنا القدير أبو حنين 
والعفو 
معادلة_2.rar

أخي العزيز / محمد علي الطيب
غير في كود فورم الطباعة  السطر المحدد في الأسفل
Private Sub CommandButton1_Click() ' Dim M1, N1, i, x As Integer FromS = TextBox1.Value Tos = TextBox2.Value If FromS > Tos Then MsgBox "تأكد من الإدخالات" Else Page_p = Tos - FromS + 1 end_p = 0 For end_p = 1 To Page_p Range("E1") = FromS ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True FromS = FromS + 1 Next TextBox1 = "" TextBox2 = "" MsgBox "تمت الطباعة المحددة" End If End Sub هذا السطر المطلوب استبداله أو تعديل الرقم بعد إشارة (+) من (1) إلى (2)
FromS = FromS + 1 ليصبح بهذا الشكل
FromS = FromS + 2 أو قم بنسخ الكود هذا واستبدله بالكود الأول
Private Sub CommandButton1_Click() ' Dim M1, N1, i, x As Integer FromS = TextBox1.Value Tos = TextBox2.Value If FromS > Tos Then MsgBox "تأكد من الإدخالات" Else Page_p = Tos - FromS + 1 end_p = 0 For end_p = 1 To Page_p Range("E1") = FromS ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True FromS = FromS + 2 Next TextBox1 = "" TextBox2 = "" MsgBox "تمت الطباعة المحددة" End If End Sub كما قم بنقل زر الطباعة بواسطة القص أو حت النسخ إلى الورقة المطلوبة 
وإذا  لم تستطع ذلك سوف أقوم إن شاء الله في الغد بالتعديل وإرسال الملف مرة أخرى 
والعفو

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

أخي العزيز / ناصر
المعادلة فيها زيادة غير مطلوبة فقط تكون مثل التي أوردتها في المشاركة السابقة

=IF(A10="";0;$B$4/B10)  
 
بالنسبة لعملية اللصق من أجل تفادي المشكلة قم بتضليل الصفوف للشركة الأولى جميعا وقم بنسخها ثم قم بتضليل العمود (Y) من بداية الشركة الثانية إلى نهاية الشركة قبل الأخيرة وقم بعملية اللصق ثم الشركة الأخيرة حدد أول خلية فقط وقم بعملية اللصق
جرب وإن لم تنجح سأقوم بتسجيل فديو صامت لشرح الطريقة 
والعفو

أخي العزيز / عبد الله بلال 
ضع المعادلة التالية في الخلية (F33) 

=IF(OR(AND(C10="متزوج";E10=0;M9="ماكثة / بطال");AND(C10="متزوجة";E10=0;M9="ماكثة / بطال"));5.5;IF(OR(AND(C10="متزوج";E10>0;M9="ماكثة / بطال");AND(C10="متزوجة";E10>0;M9="ماكثة / بطال"));800;IF(OR(AND(C10="متزوج";M9="عاملة / عامل");AND(C10="متزوجة";M9="عاملة / عامل");AND(C10="أعزب";C10="عزبة"));0;0)))   
 
لكن يجب الإنتباه لتسمية القوائم في الخلايا المحددة للشروط لأنها لم تظهر لإرتباطها بنطاقات غير موجودة في الملف المرفق خاصة الخلية (C10) والخلية (M9) فعلى سبيل المثال في الخلية (M9) التي تحدد وضعية الزوج والزوجة جعلتها مشتركة (ماكنة/بطال) كذلك جعلتهاأنا في الشرط الثاني (عاملة/عامل) أرجو الإنتباه لذلك والتعديل على ما هو مكتوب عندك بالضبط حتى تكون النتائج مضبوطة 
واإن شاء الله يكون هو المطلوب
وإذا في أي خطأ ممكن الإشار إليه لتصحيحه 
والعفو
كشف.rar

أخي العزيز / herni
يمكنك استخدام دالة COUNTIF عن طريق المعادلة التالية :

=COUNTIF($A$1:$A$25;E5)
ثم تقوم بسحبها للأسفل
جرب المرفق أخي العزيز
جدول الموظفين.rar