الجمع الشرطي

[shshorbagy]

الاخوة الاعزاء

السلام عليكم ورحمة الله وبركاته

ارجو منم مساعدتي في هذه المشكلة والتي احتاج لها بشده في عملي

اريد جمع خلايا صفحة الاكسيل بشرط لون الخلفية للخلية او لو خط الارقام بالخليه

مع العلم ان الخلايا تختلف من شهر لاخر

وليس لها حد اقصي او ادني

حتي اقوم بتسبيت الشرط للقيام بالجمع

[أيسم إبراهيم]

السلام عليكم

أخي العزيز

ارفق ملف به مثال على طلبك و بعض التوضيح حتى يتمكن الأخوة من مساعدتك

تحياتي

[ابو القبطان]

للرفع

أخي shshorbagy

السلام عليكم

الحل موجود بإذن الله .. بس ياريت ترفق ملفك للتطبيق عليه

new4a

[shshorbagy]

اولا جزاكم الله كل خير عن استجابتكم السريعه

لطلبي

ومرفق لكم ملف الاكسيل

موضحا علية المطلوب

لم استطع رفع الملف كملف اكسيل

وقد قمت باخذ صورة منه وارسالها لكم ضمن المرفقات

shshorbagy.pdf

[يحيى حسين]

أخي هذا الكود من احد المنتديات الأجنبية

جربه

Function SumColor(rColor As Range, rSumRange As Range)
'Written by Ozgrid Business Applications
'www.ozgrid.com
Dim rCell As Range
Dim iCol As Integer
Dim vResult
iCol = rColor.Interior.ColorIndex

For Each rCell In rSumRange
If rCell.Interior.ColorIndex = iCol Then
vResult = WorksheetFunction.Sum(rCell) + vResult
End If
Next rCell

SumColor = vResult
End Function

[طارق محمود]

السلام عليكم

رائع أخي يحي

كود مضبوط ومعمول بإتقان

[shshorbagy]

اعتذر لكم

ولكني لا اعرف كيف استخدم الاكواد

[يحيى حسين]

تفضل اخي هذا الملف به الكود اعلاه

حيث سينتج عن هذا الكود دالة جديدة

=SumColor(E9,E1:E10)

حيث ان الخلية E9

تحتوي الخلية التي بها اللون الذي ترغب في الجمع بناء عليه

و E1:E10 هو المدى الذي ستم جمعه

SumColor.rar