لون الخلية شرط اساسي

[nunu246]

السلام عليكم ...

اخوتي الاعزاء بعد التحية اود معرفة اذا ماكان بالامكان التعامل مع لون الخلية في برنامج الاكسل كشرط من شروط تنفيذ  دالة معينة وللتوضيح (( على سبيل المثال اذا كان لون الخلية اخضر فيتم تنفيذ شرط الدالة ))

 

 

 مع جزيل الشكر ...

[جمال عبد السميع]

نعم ممكن ولكن لايتم ذلك إلا عن طريق الكود وليس المعادلة

[nunu246]

ياريت توضيح اكثر او مثال بسيط لكود معين

[حمادة عمر]

 

الاخ الكريم / nunu246

بارك الله فيك

بعد اذن الاستاذ القدير / جمال عبد السميع ... جزاه الله خيرا

اليك كود يعمل علي جمع الخلايا الصفراء فقط في نطاق معين ( مثلا a1:c20 ) ليتم الجمع

بعد ضغط الزر في الخليه C21

ويتم ذلك بالكود التالي :

Sub kh_SumCellColor()
Dim Cel As Range
Dim v As Double
'''''''''''''''''''''''''
For Each Cel In Range("a1:c20")
        If Cel.Interior.ColorIndex = 6 Or _
        Cel.Interior.ColorIndex = 19 Or _
        Cel.Interior.ColorIndex = 36 Then
                v = v + Val(Cel)
        End If
Next
'''''''''''''''''''''''''
Range("C21").Value = v
End Sub

واليك رابط موضوع بعنوان ( جمع الخلايا الملونة ) به اكواد اخري راائعة للاساتذة الكبار

http://www.officena.net/ib/index.php?showtopic=44243&hl=%2B%D8%AC%D9%85%D8%B9+%2B%D8%A7%D9%84%D8%AE%D9%84%D8%A7%D9%8A%D8%A7+%2B%D8%A7%D9%84%D9%85%D9%84%D9%88%D9%86%D8%A9

 

ورابط موضوع آخر للاستاذ القدير / عبد الله المجرب ... جزاه الله خيرا

بعنوان ( ثلاث دوال تخص الالوان والتعامل معها )

http://www.officena.net/ib/index.php?showtopic=40658&hl=%D8%A7%D9%84%D9%84%D9%88%D9%86

 

جزاك الله خيرا

 

 

كود لجمع الخلايا الصفراء فقط.rar

تم تعديل مايو 3, 2013 بواسطه حمادة عمر

[nunu246]

الف شكر وبارك الله بحضراتكم

[حمادة عمر]

السلام عليكم

الاخ الكريم / nunu246

 

بارك الله فيك

جزاك الله خيرا