محمد حسن المحمد

السلام عليكم أخي الكريم
تفضل جواب طلبك
باستخدام معادلة SUMIFS وإجراء تغييرات للحصول على نتيجة مقبولة
=SUM(SUMIFS($B$2:$B$72;$C$2:$C$72;">="&$J$1;$C$2:$C$72;"<="&$J$2);SUMIFS($D$2:$D$72;$E$2:$E$72;">="&$J$1;$E$2:$E$72;"<="&$J$2))  

حياكم الله
والسلام عليكم
 
دفعات الاشهر.xlsx

السلام عليكم أخي الكريم
لعلي فهمت سؤالك تريد حساب إجمالي الوزن الصافي حسب رقم كل بوليصة
الحل باستخدام دالة SUMIF كما يلي:
=SUMIF($D$3:$E$196;H12;$E$3:$E$196)
واسحب نزولاً ليشمل كل أرقام البوليصة.
 
 
مثال.xlsx

السلام عليكم
جرّب أخي الكريم وأخبرني النتيجة
تم التعديل على لون التيكست 

فورم.xlsm

السلام عليكم ورحمة الله وبركاته
يرجى تجربة هذا الحل
match.xlsx

وعليكم السلام ورحمة الله وبركاته
أخي الكريم يمكنك التوصل إلى النتيجة بواسطة Pivot Table كما هو موضح في رابط الموضوع التالي:
موضوع Pivot Table 
والنتيجة كما يلي:

يمكنك الضغط على أي Total  بجانب كل Department   لتحصل على ورقة جديدة تظهر بها النتيجة مثل :اضغط على رقم 9953 نقرتين تحصل على جدول بقسم Baraha  فقط في شيت جديد.

والطريقة الثانية عبر التصفية التلقائية كما هو مبين أدناه:
تقبل تحياتي العطرة والسلام عليكم.
Time Attendance Details Report 15022022_125100.xls

السلام عليكم ورحمة الله وبركاته - أخي الكريم:
أما عن شرح المعادلة التي ذكرت فهي باستخدام دالة البحث Vlookup مع الدالة الشرطية If
=IF(VLOOKUP($B$2;'المبالغ المتاخره'!$B$20:$AQ$55;ROW()-16;0)=0;"";VLOOKUP($B$2;'المبالغ المتاخره'!$B$20:$AQ$55;ROW()-16;0)) الدالة الشرطية IF :مفادها إن كانت نتيجة البحث تساوي الصفر أترك الخلية فارغة ، وإن لم تكن كذلك ضع قيمة نتيجة البحث المطابقة تماماً فيها. تم تكرار دالة البحث في المعادلة للتثبت من صحة الشرط فقط. دالة البحث العمودي VLOOKUP :مفادها ابحث بدلالة الخلية المثبتة B2  في النطاق المحدد في ورقة 'المبالغ المتاخره'!$B$20:$AQ$55 حيث أن قيمة الخلية التي يراد البحث بدءاً منها مطابقة لقيمة الخلية B2 أما النتيجة المطلوبة من تحقق البحث فهي أول نتيجة ثم الثانية ثم الثالثة إلى آخره وذلك عندما تسحب المعادلة إلى أسفل. ولذلك تم الاستعانة بالدالة ROW والتي تعطي قيمة الصف حيث تم وضع المعادلة في الخلية I19 كما تذكر والتي يدور سؤالك حولها، هذه الدالة تعطيك قيمة الصف الحالي وهي 19 طرحنا منها 16 لتعطي نتيجة أول خلية مطابقة في ورقة المبالغ المتأخرة وهي هنا رقمها 3  أي Row()-16 تعني 19 - 16 = 3 كما سأبين لك في الصورة المرفقة. للتوضيح بحثت بدلالة رقم الملف في ورقة حركة تسديد العميل في الخلية B2 كان الرقم 100 عن النطاق في ورقة المبالغ المتأخرة عن رقم الملف 100 وأنت تريد القيمة الثالثة حصراً قيمتها 1160 حصلنا عليها بطرح العدد 16 من  الصف الحالي في ورقة حركة تسديد العميل وذلك لأنك ستسحب المعادلة بدلاً من تسجيل الرقم 3 لأنه لن يتغير معك بالسحب نزولاً. أرجو أن أكون وفقت لشرح المطلوب وبالله التوفيق والسلام عليكم ورحمة الله وبركاته.

السلام عليكم
أخي الكريم تفتح الفورم ...تنظر في خصائص اليوزرفورم... كلمة Picture مسجل بجانبها None لا توجد صورة
اضغط على زر بثلاث نقاط بجانبها تستطيع من خلاله اختيار صورة ..اختر الصورة التي تريد لتكون خلفية لشاشة الفورم.
تقبل تحياتي

test .xlsb

السلام عليكم ورحمة الله وبركاته
إخوتي الكرام 
أقدم لكم تقويم لكل شهر بشكل أفقي أو عمودي كان للأستاذ خالد طه المحترم البادرة في تصميم مثله 
ثم تم التعديل عليه ومؤخراً قام الأستاذ الكريم سليم حاصبيا المحترم بإتمام معادلة تشمل الشهر بشكل أفقي ثم عمودي


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

السلام عليكم أخي الكريم
أرجو أن تتبع الخطوات التالية لتحقيق المطلوب


المبلغ (All)         Row Labels Sum of المبلغ     350000     450000     354000   Grand Total 1154000         نوع الحساب نوع العميل تاريخ العملية رقم الحساب رقم الحساب القديم رقم الدفتر رقم الشيك اسم المودع اسم العميل رقم الامر رقم العملية رقم المجموعة رقم الشباك المبلغ الرسوم الموظف القائم بالعملية                                                           1154000     تقوم بتصفية حسب نوع الحساب أكبر من أو يساوي الرقم الذي تريد مثل 250000  تحدد كل الـ Row labels التي تم تصفية بياناتها في الـ Pivot Table ..... نقرة يمين بالماوس ... اختر من القائمة الناتجة: Filter >>> Keep only selected Items  انقر بعد ذلك على الرقم المجاور لـ: Grand Total نقرتين للحصول على الجدول المراد بعد إجراء التصفية وبذلك تكون قد وصلت إلى النتيجة المبتغاة،،،، تقبل تحياتي العطرة والسلام عليكم ورحمة الله وبركاته.

لا شكر على واجب حياكم الله أخي الكريم
فقط بالضغط على الزر الذي تم إدراجه لتشغيل الموديول
أما فكرة الموديول فهي تتمثل بما يلي:
1- نسخ كامل الأسماء من عمود A إلى عمود D  حتى 1000 اسم يمكنك زيادة ذلك الرقم أو الإنقاص منه حسب طلبك
2- إزالة التكرار من العمود D 
3 - في العمود E وضعت دالة Sumif للبحث عن مجموع وفق القيمة المقابلة في D من العمودين A:B
والسلام عليكم

السلام عليكم
أرجو أن يكون مناسباً
Sub Sort_Sum() Application.ScreenUpdating = False Sheets("البيانات").Range("Data").Copy Sheets("فرز وجمع").Range("Sort_Sum[اسم الموظف]").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False ActiveWorkbook.Worksheets("فرز وجمع").ListObjects("Sort_Sum").Sort.SortFields.Clear ActiveWorkbook.Worksheets("فرز وجمع").ListObjects("Sort_Sum").Sort.SortFields.Add Key:=Range("Sort_Sum[الشعبة]"), SortOn:=xlSortOnValues, Order:= _ xlAscending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("فرز وجمع").ListObjects("Sort_Sum").Sort.SortFields.Add Key:=Range("Sort_Sum[المبلغ]"), SortOn:=xlSortOnValues, Order:= _ xlAscending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("فرز وجمع").ListObjects("Sort_Sum").Sort.SortFields.Add Key:=Range("Sort_Sum[اسم الموظف]"), SortOn:=xlSortOnValues, Order:= _ xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("فرز وجمع").ListObjects("Sort_Sum").Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("K2").FormulaR1C1 = _ "=SUMIF(Sort_Sum[[الشعبة]:[المبلغ]],[@الشعبة],Sort_Sum[المبلغ])" Range("K2").AutoFill Destination:=Range("شعب[المبلغ]") Range("a1").Select Calculate Application.ScreenUpdating = True End Sub  
 
فرز وجمع.xlsm

السلام عليكم ورحمة الله وبركاته
أخي الكريم أجريت التعديل التالي على الملف المرفق لتكون الطباعة لديك ديناميكية لتحصل من خلالها مدى الطباعة كاملاً قل أو كثر كما تم تغيير الطباعة من أفقيه إلى عمودية
ملاحظة:  يرجى الانتباه إلى أنك إذا غيرت بإعدادات الطباعة سيتحول نطاق الطباعة إلى نطاق محدد وقد يكون أكبر مما هو محدد في تحرير الاسم في الصورة أدناه... فإن تغير ووجدت أن النطاق المراد  طباعته أصبح أكبر فعليك بنسخ الكود أدناه ووضعه في مربع تحرير الاسم Print_Area 

Print_Area =OFFSET(الوصل!$C$1;;;COUNT(الوصل!$C$8:$C$200)+8;8) أما في الكود فقد تم وضع Print_Area كمدىً بدلاً من تحديده من خلية إلى أخرى
على الشكل التالي:
Private Sub CommandButton1_Click() Dim I As Long For I = Range("N8").Value To Range("O8").Value Sheets("البودرة").Range("A1:S8044").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("N1:P2"), CopyToRange:=Range("C6:J6"), Unique:=False Range("N7").Value = I Range("Print_Area").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1 Next I End Sub والله ولي التوفيق والسلام عليكم ورحمة الله وبركاته
أخوكم أبو يوسف
طبع الوصولات جملة واحدة حسب الارقام المختارة.xlsm

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

السلام عليكم أخي الكريم
لعله يفيدك بإذن الله 
أضف المعادلات التالية إلى الخلايا S6 ----------- T6-----------U6
=IF(ISTEXT(P6);"غائب";IF(P6>=85*$P$4/100;"ممتاز";IF(P6>=65*$P$4/100;"جيد جدا";IF(P6>=50*$P$4/100;"جيد";IF(P6<50*$P$4/100;"ضعيف"))))) =IF(ISTEXT(Q6);"غائب";IF(Q6>=85*$Q$4/100;"ممتاز";IF(Q6>=65*$Q$4/100;"جيد جدا";IF(Q6>=50*$Q$4/100;"جيد";IF(Q6<50*$Q$4/100;"ضعيف"))))) =IF(ISTEXT(R6);"غائب";IF(R6>=85*$R$4/100;"ممتاز";IF(R6>=65*$R$4/100;"جيد جدا";IF(R6>=50*$R$4/100;"جيد";IF(R6<50*$R$4/100;"ضعيف"))))) واسحب نزولاً.

السلام عليكم ورحمة الله وبركاته
ضع في الخلية FB6 واسحب نزولاً
تقبل تحياتي
كيف كانت النتيجة؟...😊
=IF(B6="";"";SUM(FA6;EV6;EQ6;EL6;EG6;EB6;DW6;DR6;DM6;DH6;DC6;CX6;CS6;CN6;CI6;CD6;BY6;BT6;BO6;BJ6;BE6;AZ6;AU6;AP6;AK6;AF6;AA6;V6;Q6;L6;G6))

السلام عليكم 
يرجى الالتزام بقواعد المنتدى الكريم وبما أنك جديد هنا نرحب بك أخي الكريم
إليك الحل كما فهمت 
يرجى ملاحظة تفعيل الحساب التكراري لتثبيت الوقت والتاريخ.
123.xlsx

السلام عليكم ورحمة الله وبركاته
من الملاحظ أن معظم المعادلات التي في ملفك - المرفق - تستند إلى ملفات أخرى موجودة في مجلد لديك في القرص الصلب D
مثال: 
=SUMIFS('D:\Libraries\Desktop\[MM Daily Reports JRAR rev.01 - Jan 22.xlsx]Data Summary'!$H$9:$H$39;'D:\Libraries\Desktop\[MM Daily Reports JRAR rev.01 - Jan 22.xlsx]Data Summary'!$C$9:$C$39;'D:\Libraries\Desktop\[MM Daily Reports JRAR rev.01 - Jan 22.xlsx]Data Summary'!$C$9) ='D:\Libraries\Desktop\[MM Daily Reports JRAR rev.01 - Jan 22.xlsx]Data Summary'!$D$7 ='D:\Libraries\Desktop\[MM Daily Reports JRAR rev.01 - Jan 22.xlsx]Data Summary'!$B$9 فلن يتمكن أحد بنظري من معرفة المراجع التي تستند إليها غيرك أخي الكريم
ولذلك فإنني أنصحك بضبط المعادلات في الصف الأول كاملة ثم السحب نزولاً إلى أسفل عدا البيانات التي ترتكز عليها 
بمعنى آخر سحب المعادلات إلى أسفل وترك البيانات على حالها .
أرجو أن تكون هذه الفكرة مناسبة لك  والسلام عليكم

السلام عليكم يمكنك استخدام المعادلة MROUND على فرض أن لديك رقم في الخلية B1
كما يمكنك من خلال تنسيق الخلايا جعل الخلية تحوي ثلاثة أرقام عشرية مثلاً
=MROUND(B1;0.25)  

السلام عليكم ورحمة الله وبركاته
أخي الكريم يمكنك ذلك باستخدام التنسيق الشرطي
يرجى الاطلاع على الملف المرفق كما أرجو أن يكون جواباً لسؤالك والسلام عليكم
aaxlsx.xlsx

السلام عليكم أخي الكريم @احمد غانم 
لاحظ أخي الكريم أن الكود يعطيك النتائج كما يلي:
1- النتيجة الموجبة يكتب لك : فقط ...........
2- النتيجة السالبة يكتب: يتبقى لكم .............
3- القيمة الصفرية يكتب لك : صفر
لا أدري ما هو التغيير الذي تطلبه ...يرجى الإيضاح هل تعني مثلاً إن كانت النتيجة سالبة يرجع لك النتيجة صفر أم ماذا؟!..
تقبل تحياتي

أخي الكريم السلام عليكم
لم يتم عمله على الإكسيل كما هو ملاحظ
فإن أردت عمل مثل هذا الشكل قم بنسخ الصورة التي تحب وحدد مواقع أزرار الأوامر والنصوص على هذا الرسم على أحد برامج الرسم مثل فوتوشوب أو الرسام
حيث يمكنك وضع الزخارف التي تريد ثم احفظها ...بعد ذلك يمكنك فتح برنامج الإكسيل ثم تطبيق الـ VBA من المطوّر ضع أزرار الأوامر والتسميات والنصوص في المواقع التي حددتها من قبل على الزخرفة التي أعددتها بعد جلبها إلى اليوزرفورم .. هناك خيارات تجعل هذه الأزرار شفافة دون الإطار في الأزرار سيظهر شيء منه بسيط مما يعطيك نوع من الرضا عن العمل الذي تقوم به
اجعل BackStyle:
تم حذف الكتابات من الصورة الثانية بواسطة برنامج الرسام.
 


فورم مزخرف.xlsm

أخي الكريم لعلي لم أفهم المقصود من سؤالك الكريم
وقد أرفقت الملف فإن كان الجواب صحيحاً فبها ونعمت وإلا يمكنك تجاوزه 
والبحث عن جواب أدقّ وأفضل منه
تقبل تحياتي.
المحفظ جديد 2020.xlsm

يمكنك أخي الكريم اختيار طلبك من الملف التالي :SO00OS.xlsx

أرجو أن يكون هو المطلوب ، وبما أنك جديد في المنتدى - أخي الكريم - يرجى مراعاة القوانين التي سنها المنتدى لمنع تكرار الكثير من المشاركات دون فعالية
تحويل الارقام لحروف عربي.xls

أخي الكريم تم فتح شيت جديد لفلترة البيانات ضمنه
تم استخدام كود بسيط للفلترة والآخر لمسح البيانات المفلترة كما تم جمع تلقائي لكل عمود في أعلاه ليسهل عليك استخدام ورقة ثانية لتنظيم ما تريد
أما التصفية حسب التاريخ تم توسيع نطاق دالة VLOOKUP لتشمل بدء و انتهاء كل فترة ليتم حسابها سواء بالشهر أو ربع أو نصف ...إلخ
أرجو أن يكون بداية توجه لمعرفة النتائج التي تريدها.وسيسهل عليك معرفتها بإذن الله تعالى.
ربط فلتر الشهر مع معادلة لحساب مبالغ.xlsm