جمع خلايا اكسيل حسب لونها

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

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

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

واستخدام كود برمجى فى visual basic لبرنامج الاكسيل

Function SumColor(cellcolor As Range, rrange As Range)

Dim csum As Long

Dim colindex As Integer

colindex = cellcolor.Interior.ColorIndex

For Each c1 In rrange

If c1.Interior.ColorIndex = colindex Then

csum = WorksheetFunction.Sum(c1, csum)

End If

Next c1

SumColor = csum

End Function

وتم تنفيذها