Sumbycolor Problem

[Mahmoudhamed]

 

 

السلام عليكم 

أستخدم دالة للتجميع باستخدام لون الخلية إسمها 

Sumbycolor 

وفيما يلي الكود الخاص بها 

 

Function SumByColor(CellColor As Range, SumRange As Range)
Application.Volatile
Dim ICol As Integer
Dim TCell As Range
ICol = CellColor.Interior.ColorIndex
For Each TCell In SumRange
If ICol = TCell.Interior.ColorIndex Then
SumByColor = SumByColor + TCell.Value
End If
Next TCell
End Function

بلا شك الدالة مفيدة جدا في التقارير ، ولكن أحيانا يحدث أن تتوقف الدالة عن العمل ويظهر في خانة النتيجة 
#N/A

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

edit in formula bar + Enter

هل من طريقة أخرى لتفادي المشكلة في هذه الدالة ؟ّ!!!!!!!

شكرا لمساعدتكم مقدما