دالة لحساب مجموع القيم لمجموعة من الخلايا في Excel
صادفني عمل احتجت فيه لدالة تحسب مجموعة الخلايا التي لها نفس لون الخلفية
مثال :
لعمل هذا .... نحتاج أولا لإدخال كود الدالة مع الوثيقة ليتم استعماله
وتوجد دالتين لهذا العمل .... أي واحدة تفي بالغرض
الأولى :
Function SumColor(rColor As Range, rSumRange As Range)
Dim rCell As Range
Dim iCol As Integer
Dim vResult
iCol = rColor.Interior.ColorIndex
For Each rCell In rSumRange
If rCell.Interior.ColorIndex = iCol Then
vResult = WorksheetFunction.Sum(rCell) + vResult
End If
Next rCell
SumColor = vResult
End Function
الثانية :
كود:
Function CountColor(rColor As Range, rSumRange As Range)
Dim rCell As Range
Dim iCol As Integer
Dim vResult
iCol = rColor.Interior.ColorIndex
For Each rCell In rSumRange
If rCell.Interior.ColorIndex = iCol Then
vResult = vResult + 1
End If
Next rCell
CountColor = vResult
End Function
ولإدراجها في الوثيقة .... نضغط : Alt+F11
بعدها : Insert>Module
ثم نلصق الكود في الصفحة التي تظهر ...
بعدها نضغط : Alt+Q
وفي الأخير نحفظ العمل ......
والآن نأتي لاستعمال الدالة
كما هو موضع في الجدول ...... في الخانة التي تظهر المجموعة
نكتب :
كود:
=SUMCOLOR(C6;C2:C10)
نستبدل :
C6 بالخلية التي فيها اللون المراد احتساب خلاياه
C2 : ببداية احداثيايي جدول الاحتساب
C10 : بنهاية احداثيي الجدول التي ستحتسب إحداثياته
ويكون التحديد كما موضع في الصورة ....
منقول
موضوع: الة لحساب مجموع القيم لمجموعة من الخلايا في Excel 