مختار حسين محمود قام بنشر أبريل 27, 2015 مشاركة قام بنشر أبريل 27, 2015 (معدل) السلام عليكم الله وبركاته بداية أقدم كل التحية والتفدير والاحترام الى أساتذتى الكرام وأخص بالذكر الأستاذ عبدالله باقشير الذى أوحى إلىّ بهذه الدالة فقد قدم لنا الأستاذ الفاضل دالة للجمع بناء على لون الخلية وهى : 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 بواسطه مختار حسين محمود 5 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أبريل 27, 2015 مشاركة قام بنشر أبريل 27, 2015 أخي وحبيبي في الله مختار جزاكم الله خير الجزاء في الدنيا والآخرة ونفع بكم ورزقكم من حيث لا تحتسب هو دا الكلام يا كبير تسلم وتعيش وتاكل قراقيش (ولا مفيش في الصعيد منه) 2 رابط هذا التعليق شارك More sharing options...
عبدالله فاروق ابو ريان قام بنشر أبريل 27, 2015 مشاركة قام بنشر أبريل 27, 2015 ماشاء الله عمل اكثر من رائع 1 رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر أبريل 27, 2015 الكاتب مشاركة قام بنشر أبريل 27, 2015 السلام عليكم ورحمة الله وبركاته أخى وأستاذى ياسر خليل تقبل الله تعالى دعائكم لى ولك مثله بإذن الله تعالى أخى الفاضل عبدالله فاروق بارك الله فيك وشرُفت بمرورك وسعدتُ به 2 رابط هذا التعليق شارك More sharing options...
الســـــــاهر قام بنشر أبريل 27, 2015 مشاركة قام بنشر أبريل 27, 2015 ماشاء الله تبارك الرحمن قمة في الابداع الاستاذ الفاضل مختار جزاك الله خير على ما تقدم لاخوانك 1 رابط هذا التعليق شارك More sharing options...
yussof قام بنشر أبريل 27, 2015 مشاركة قام بنشر أبريل 27, 2015 جزبل الشكر رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر أبريل 27, 2015 الكاتب مشاركة قام بنشر أبريل 27, 2015 أخوتى فى الله الساهر و يوسُف بارك الله فيكما وشرُفت بمروركما وسعدتُ به تحياتى رابط هذا التعليق شارك More sharing options...
Yasser Fathi Albanna قام بنشر أبريل 28, 2015 مشاركة قام بنشر أبريل 28, 2015 سلمت أخى الحبيب / مختار رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر أبريل 28, 2015 الكاتب مشاركة قام بنشر أبريل 28, 2015 سلمت من كل شر أخى الحبيب ياسر شرُفتُ بمرورك رابط هذا التعليق شارك More sharing options...
طلعت محمد حسن قام بنشر أبريل 28, 2015 مشاركة قام بنشر أبريل 28, 2015 بارك الله فيك اخي مختار عمل رائع. رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر أبريل 28, 2015 الكاتب مشاركة قام بنشر أبريل 28, 2015 أخى الكريم طلعت بارك الله فيكم وشرُفت بمروركم وسعدتُ به تحياتى رابط هذا التعليق شارك More sharing options...
احمد عبدة قام بنشر أبريل 29, 2015 مشاركة قام بنشر أبريل 29, 2015 جزاك الله خير الجزاء ومشكور رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر أبريل 29, 2015 الكاتب مشاركة قام بنشر أبريل 29, 2015 مشكور على مرورك أخى أحمد عبده رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.