سؤال عن الدالة CountColor

[medhat9]

السلام عليكم ورحمة الله وبركاته اخواني الكرام

اريد السؤال عن الدالة CountColor كيف تعمل او الشروط الازمة لكي تعمل

حيث انني طبقتها علي مثال به نفس البيانات وقد حدث شئ غريب جدا فقد اشتغلت بنجاح في الملف الاول

ولم تعمل في الملف الثاني مع ان الاعدادات واحدة في الملفين

فهل هناك خصائص معينة في البرنامج ام ما هو الحل ؟

ومرفق لكم الملفين

CountColor .rar

[بن علية حاجي]

السلام عليكم ورحمة الله

أخي الكريم إن الدالة COUNTCOLOR ليست من دوال إكسيل ولكنها دالة مستحدثة وقد وضعت في الملف "صحيحة.xls" على شكل كود الذي هو:

Function CountColor(cell_range As Range, color_cell_index) As Integer


Dim rCell As Range

Dim cell_count As Integer

cell_count = 0


   For Each rCell In cell_range

    If rCell.Interior.ColorIndex = color_cell_index Then

         cell_count = cell_count + 1

    End If

   Next rCell

   CountColor = cell_count

End Function



Function Color_index(cell_range As Range) As Integer


  Color_index = cell_range.Interior.ColorIndex


End Function

ما عليك إلا نسخ الكود في ملفك وستعمل الدالة جيدا...

والله أعلم

[خالد القدس]

السلام عليكم

خبير أستاذ بن عليه

بارك الله فيك وكثر من أمثالك

[ابرار و ابراهيم]

السلام عليكم ورحمة الله

أخي الكريم إن الدالة COUNTCOLOR ليست من دوال إكسيل ولكنها دالة مستحدثة وقد وضعت في الملف "صحيحة.xls" على شكل كود الذي هو:

Function CountColor(cell_range As Range, color_cell_index) As Integer


Dim rCell As Range

Dim cell_count As Integer

cell_count = 0


   For Each rCell In cell_range

    If rCell.Interior.ColorIndex = color_cell_index Then

         cell_count = cell_count + 1

    End If

   Next rCell

   CountColor = cell_count

End Function



Function Color_index(cell_range As Range) As Integer


  Color_index = cell_range.Interior.ColorIndex


End Function

ما عليك إلا نسخ الكود في ملفك وستعمل الدالة جيدا...

والله أعلم

ارجو التكرم بافادتي هل من الممكن وضع معادله يتم بموجبها تغيير لو الصف بنا على قيمة خليه معينه في الصف فمثلا اريد ان يكون الصف 20 بلون معين اذا كانت قيمة الخليه H20صفر

[medhat9]

السلام عليكم ورحمة الله

أخي الكريم إن الدالة COUNTCOLOR ليست من دوال إكسيل ولكنها دالة مستحدثة وقد وضعت في الملف "صحيحة.xls" على شكل كود الذي هو:

Function CountColor(cell_range As Range, color_cell_index) As Integer


Dim rCell As Range

Dim cell_count As Integer

cell_count = 0


   For Each rCell In cell_range

    If rCell.Interior.ColorIndex = color_cell_index Then

         cell_count = cell_count + 1

    End If

   Next rCell

   CountColor = cell_count

End Function



Function Color_index(cell_range As Range) As Integer


  Color_index = cell_range.Interior.ColorIndex


End Function

ما عليك إلا نسخ الكود في ملفك وستعمل الدالة جيدا...

والله أعلم

اشكرك كثيرا علي التوضيح وتم نقل الكود واشتغلت تمام

[احمد فضيله]

بارك الله فيكم