حساب عدد الالوان بكل عامود

[amen bakr]

السلام عليكم

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

ولكم جزيل الشكر

111.xlsm

[Foksh]

43 دقائق مضت, amen bakr said:

السلام عليكم

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

طبعاً قبل البدء بطرح الحل ، وجب التنبيه إلى ضرورة أن تكون الأرقام في الخلايا التي بها اللون تطابق نفس اللون للخلايات التي سيكون لها التعداد ..

الدالة بسيطة كالتالي ضعها في مديول ..

Function CountByColor(rng As Range, clr As Range) As Long
    Dim c As Range
    Dim cnt As Long
    cnt = 0
    For Each c In rng
        If c.Interior.Color = clr.Interior.Color Then
            cnt = cnt + 1
        End If
    Next c
    CountByColor = cnt
End Function

 

ثم الإستدعاء بالشكل التالي مع حرية تحديد النطاق وخلية اللون :-

=CountByColor(B7:B100, A2)

 

الملف بعد التطبيق :-

111.xlsm

[amen bakr]

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

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

تم تعديل منذ 1 ساعه بواسطه amen bakr
اضافه ملاحظات

[Foksh]

26 دقائق مضت, amen bakr said:

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

لم أفهمها بالضبط ..

تقصد أنه لو جعلنا مثلاً الخلية B17 باللون الأحمر ولكنها فارغة من غير قيمة ، فإن الوضع الحالي سيحسب عددها مع الخلايا باللون الأحمر . وأنت تريد أن يقوم بالعد إذا كانت الخلية غير فارغة ؟؟؟؟؟

 

أرجو التوضيح بشكل أكثر

[Foksh]

بكل الأحوال .. إن كان ما سبق صحيح ، فقط علينا إضافة شرط للجملة الشرطية بحيث تصبح :-

If c.Interior.Color = clr.Interior.Color And Trim(c.Value) <> "" Then

بداً من :-

If c.Interior.Color = clr.Interior.Color Then