اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information