اتمنى ان القى الحل لديكم

[جـــالـــكـــســـي]

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

اسعد الله اوقاتكم بالخيرات والمسرات

عندي سؤال واتمنى ان القى الاجابه من اصحاب الخبره

هل توجد طريقه لجمع الخلايه الملونه لتوضيح

نفرض ان لدين ( 5 خانات ب الالون الاصفر ) و ( 5 ب الالون الاحمر )

هل توجد طريقه لتعطيني كم عدد الخانات الصفره و كم عدد الخانات الحمرى

كل واحده منها على حده

لكم المرفق واتمنى الاجابه

1245684.rar

[طارق محمود]

السلام عليكم

إستحدثت لك دالة بسيطة countcolor

صيغتها

countcolor(x, c)

حيث

x مجال البحث

c أي خلية ذات اللون الذي تريد عده

كود الدالة كالتالي

Function countcolor(x, c)

y = 0

a = c.Interior.ColorIndex


For Each cell In x

	b = cell.Interior.ColorIndex

	If b = a Then y = y + 1

Next cell

countcolor = y

End Function

مرفق ملفك وبه تطبيق الدالة

1245684.rar

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

أفادكم الله أستاذ طارق

هذا حل آخر بوظيفة أيضا

Public Function setcolor(myrng As Range)

 Count1 = 0

  For Each cl In [a1:q16]

    If cl.Interior.ColorIndex = myrng.Interior.ColorIndex Then

        Count1 = Count1 + 1

        End If

        Next cl

        myrng = Count1

 End Function

المرفق

عد الألوان فى نطاقkemas.zip