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

[alaaaltwel]

اولا : شكرا للمنتدى على ما يقدمه من معلومات قيمة

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

وشكرا

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

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

السلام عليكم

اذا كانت ارقام الالوان معروفة مسبقا ( ColorIndex ) يمكن ان نستعمل الطريقة التالية

Private Sub CommandButton1_Click()
    
    x1 = 3: x2 = 6
    Dim cel As Range
    For Each cel In Range("d7:j7")
    If cel.Interior.ColorIndex = x1 Then r1 = r1 + cel.Count
    If cel.Interior.ColorIndex = x2 Then r2 = r2 + cel.Count
    Next
    Range("k7") = r2
    Range("l7") = r1

End Sub

 

تم تعديل مايو 14, 2016 بواسطه * أبو حنين *

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

كملاحظة 

يمكن ان نعرف ارقام الالوان بطرق مختلفة ابسطها :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Interior.ColorIndex = xlColorIndexNone Then Exit Sub
    Target.Value = Target.Interior.ColorIndex
End Sub

حيث نقوم بتلوين خلايا مختلفة ثم نقف عند الخلية لنعرف  ColorIndex 

[محسن33]

مع الاحترام لجميع الحلول

ببساطة اعمل فلتر حسب اللون وظلل الحلايا وانظر تحت ستجد عددهم ومجموعهم ومتوسطهم جاهزين في الاكسيل

لماذا لانبسط الاشياء؟

شكرا

[عبدالسلام ابوالعوافي]

الصيغة موجودة اصلا داخل الملف  .. تحتاج فقط لتعديل بسيط وقمت بتعديله في المرفق

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

[alaaaltwel]

شكرا خاص منى لكل من قام بالرد على سؤالى لكم منى كل التقدير والاخترام

 

الاستاذ / عبد السلام ابو العوافى

تقديرى واحترامى لشخصك الكريم

تقريبا ما قمت بتعديله بالشيت هو المطلوب

لو امكن ممكن تذكر لى التعديل حتى اتمكن من اضافة ذلك  على الشيت الخاص بالعمل

وشكرا

تم تعديل مايو 16, 2016 بواسطه alaaaltwel

[عبدالسلام ابوالعوافي]

استبدال 

v = v + Val(Cel)

بـ

v = v + 1