جمع الخلايا الملونة

[محمد بن عبيد ( عاشق عدن )]

عندي خلايا كثيرة في ورقة الاكسل واريد ان اجمع الخلايا الملونة فقط

أرجوا المساعدة

01.pdf

[أبو محمد عباس]

السلام عليكم

الاخ العزيز لغرض تسهيل العمل على ملفك يجب ان ترسل ملف اكسل وبالنيابة عنك ولابداء المساعدة الاولية ليتسنى للاساتذة الكرام عمل المطلوب ارفقت ملف اكسل فيه التصور الموجود بملف PDF الذي ارفقته

ودمتم برعاية الله وحفظه

جمع الخلايا الملونة.rar

[عبدالله باقشير]

السلام عليكم

اربط الكود هذا بزر

Sub kh_SumCellColor()

Dim Cel As Range

Dim v As Double

'''''''''''''''''''''''''

For Each Cel In Range("b4:c20")

    If Cel.Interior.ColorIndex <> xlNone Then

        v = v + Val(Cel)

    End If

Next

'''''''''''''''''''''''''

MsgBox v

End Sub

[عبدالله باقشير]

اذا كنت تريد النتيجة على خلية معينة في الشيت

Sub kh_SumCellColor()

Dim Cel As Range

Dim v As Double

'''''''''''''''''''''''''

For Each Cel In Range("b4:c20")

    If Cel.Interior.ColorIndex <> xlNone Then

        v = v + Val(Cel)

    End If

Next

'''''''''''''''''''''''''

Range("E2").Value = v

End Sub

[ريان أحمد]

السلام عليكم

عندما جربت جميع الألوان نجحت يعني هل هذا الكود موجه للون محدد

[أبو حنــــين]

بعد إذن أخي الحبيب : عبد الله

هذا تعديل بسيط لكود الأخ عبد الله ، و هو يخص اللون الاصفر فقط :

Sub kh_SumCellColor()

Dim Cel As Range

Dim v As Double

'''''''''''''''''''''''''

For Each Cel In Range("b4:c20")

	    If Cel.Interior.ColorIndex = 6 Or _

	    Cel.Interior.ColorIndex = 19 Or _

	    Cel.Interior.ColorIndex = 36 Then

			    v = v + Val(Cel)

	    End If

Next

'''''''''''''''''''''''''

Range("C21").Value = v

End Sub

[ريان أحمد]

بارك الله فيك وجزاك الله خير

نعم والله إني أفتخر بك كونك مسلم وكونك عربي وكونك جزائري جعلك الله ذخرا للأمة وأطال الله في عمرك

مثل هذه الكفاءات نفتخر بها

[محمد بن عبيد ( عاشق عدن )]

عفوا يا أخوان

عندي خلية فاضية في نهاية المساحات

واريد اجمالي المساحات في الخلية الاخيرة الفاضية

وياريت المثال يكون على ورقة اكسل مع توضيح الدالة

[الـعيدروس]

السلام عليكم

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

وعليه تعديل طفيف

تستخدم كالتالي

1 = فرضا المدى هو A2:A6

2 = فرضا خلية سمبل اللون هيا C1

=kh_SumCellColor(A2:A6;C1)

اول معيار للداله المدى المراد جمع خلاياه والمعيار الثاني الخليه السمبل التي بها اللون المراد جمع الخلايا التي بنفس اللون

Public Function kh_SumCellColor(my_r As Range, ByVal x As Range) As Integer

Dim Cel As Range

Dim v As Double

'''''''''''''''''''''''''

For Each Cel In my_r

    If Cel.Interior.ColorIndex = x.Interior.ColorIndex Then

			    v = v + Val(Cel)

    End If

Next

'''''''''''''''''''''''''

kh_SumCellColor = v

End Function

Kh_Sum_Color.rar

[كعبلاوى]

نتمنى من اساتذة المنتدى جمع عدد الخلايا الملونة فى الملف المرفق

جمع الخلايا الملونة.rar

[اوفيس 2003]

رااااااااااااااااااائع ، دالة اكثر من رائعة

[أبو حنــــين]

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

جمع الخلايا الملونة.rar

تم تعديل ديسمبر 4, 2012 بواسطه أبو حنين

[اوفيس 2003]

رائع ياغالي

او بتطبيق شرح استاذ على يكون الشكل كالأتي

جمع الخلايا الملونة.rar

[أبو محمد عباس]

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

حلول الاساتذة الكرام رائعة جزاهم الله خيرا

اخي عاشق عدن المحترم ارفق لك الملف وفيه الكود الذي ارفقه الاستاذ العلامة عبدالله باقشير حفظه الله واعطاه الصحة والعافية والمعدل من قبل الاستاذ والاخ الحبيب ابو حنين حفظه الله واعطاه الصحة والعافية وحسب طلبك( واريد اجمالي المساحات في الخلية الاخيرة الفاضية)

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

اجمالي المساحات في الخلية الاخيرةالفاضية.rar

[محمد بن عبيد ( عاشق عدن )]

الأخوان الأعزاء

أشكركم على روح التعاون وافيد سعادتكم ب

الأخ / عباس سماوي جمع المساحات الملونة صح بس لاتوجد أي دالة تدل على طريقة الجمع

كيف سأعرف الطريقة ؟

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

الأخ / كعبلاوي

نفس طريقة أبو حنين بدون عملية حسابية في الخلية .

الأخ / نصار

الأخ / أوفس 2003م

العملية التابعة لكم صحيحة ولكن كلما جئت أطبقها في الملف التابع لي يطلع لي في الخلية Name

ارجوا التوضيح

وجزاكم الله خير

[محمد بن عبيد ( عاشق عدن )]

الأخوان الأعزاء

مزيدا من التوضيح أرفق الجدول مع شرح المطلوب

جمع الخلايا الملونة.pdf

[محمد بن عبيد ( عاشق عدن )]

أشكركم يا أساتذة الأكسل

على مساعدتي في جمع الخلايا الملونة

وقد كتبت الدالة يدويا فجائت معي name في الخلية وبعدها حاولت أستعمله من الدالات فجائت معي وهي دالة kh_sumcellcolor

وأشكركم جميعا وباقي

في قائمة ارقام القطع في حالة احصاء الارقام الملونة

كيف ؟

[أبو حنــــين]

جرب المرفق

جمع الخلايا الملونة.rar

[محمد بن عبيد ( عاشق عدن )]

الأخ / أبو حنين

السلام عليكم

أرجوا أن تكتب لي الصيغة لأنها ماتبين معاي في الخلايا التي جمعت فيها

النواتج صحيحة بس الصيغ التي استعملتها مش مبينة

أرجوا كتابتها تحت خلايا الجمع

وشكراً

[أبو حنــــين]

أنظر الصورة أخي

2.rar

[محمد بن عبيد ( عاشق عدن )]

للأسف يا أخوان ماضبطت معايا

انا عارف ان المشكلة مني مافهمت كيف الطريقة

ولكن اشكركم على كل شئ

[الـعيدروس]

السلام عليكم

تفضل

جمع الخلايا الملونة_A.rar