دالة الجمع بناء على لون الخط أو Sum Cells by Font Color

[مختار حسين محمود]

السلام عليكم الله وبركاته

 

بداية  أقدم كل التحية والتفدير والاحترام الى أساتذتى الكرام

 

وأخص بالذكر الأستاذ عبدالله باقشير الذى أوحى إلىّ بهذه الدالة

 

فقد قدم لنا الأستاذ الفاضل دالة للجمع بناء على لون الخلية  وهى :

Function kh_SumColor(RngColor As Range) As Double
Dim cel As Range
Dim sm As Double
For Each cel In RngColor
    If cel.Interior.Color = Application.Caller.Interior.Color Then sm = sm + Val(cel)
Next
kh_SumColor = sm
End Function

وعن طريق الصدفة  وجدت طلبا فى أحد المنتديات الأجنبية التى أشترك فيها

يسأل عن Sum Cells by Font Color

 

فجااء ببالى لماذا لا نستفيد من دالة أستاذى الفاضل ولكن بطريقة أخرى وهى الجمع بناء على لون الخط

 

فأصبحت الدالة بهذا الشكل :

Function MOKHTAR_SumFontColor(RngFontColor As Range) As Double
Dim cel As Range
Dim MOKH As Double
For Each cel In RngFontColor
    If cel.Font.Color = Application.Caller.Font.Color Then MOKH = MOKH + Val(cel)
Next
MOKHTAR_SumFontColor = MOKH
End Function

وبمجرد أن أنتهيت من المطلوب  قررت وضعه هنا فى المنتدى ليستفيد منه الزملاء

 

أرجو من أستاذى أن يعذرنى على هذا الاقتباس فقد ينفع يوما بعض الناس .

 

 تقبلوا جميعاً تحياتى  وهذا مرفق للدالة

Sum Cells by Font Color.rar

تم تعديل أبريل 27, 2015 بواسطه مختار حسين محمود

[ياسر خليل أبو البراء]

أخي وحبيبي في الله مختار

جزاكم الله خير الجزاء في الدنيا والآخرة ونفع بكم ورزقكم من حيث لا تحتسب

هو دا الكلام يا كبير تسلم وتعيش وتاكل قراقيش (ولا مفيش في الصعيد منه)

[عبدالله فاروق ابو ريان]

ماشاء الله عمل اكثر من رائع

[مختار حسين محمود]

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

 

أخى وأستاذى ياسر خليل تقبل الله تعالى دعائكم لى ولك مثله بإذن الله تعالى

 

أخى الفاضل عبدالله فاروق بارك الله فيك    وشرُفت بمرورك وسعدتُ به

[الســـــــاهر]

ماشاء الله تبارك الرحمن

 

قمة في الابداع الاستاذ الفاضل مختار

 

جزاك الله خير على ما تقدم لاخوانك

[yussof]

جزبل الشكر

[مختار حسين محمود]

أخوتى فى الله

الساهر و يوسُف

بارك الله فيكما وشرُفت بمروركما وسعدتُ به تحياتى

[Yasser Fathi Albanna]

سلمت أخى الحبيب / مختار

[مختار حسين محمود]

سلمت من كل شر أخى الحبيب ياسر  شرُفتُ بمرورك

[طلعت محمد حسن]

بارك الله فيك اخي مختار عمل رائع.

[مختار حسين محمود]

أخى الكريم طلعت

 

بارك الله فيكم وشرُفت بمروركم وسعدتُ به تحياتى

[احمد عبدة]

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

ومشكور

[مختار حسين محمود]

مشكور على مرورك أخى أحمد عبده