ahmedhafez قام بنشر سبتمبر 6, 2009 مشاركة قام بنشر سبتمبر 6, 2009 السلام عليكم يا جماعة الخير مرفق شيت اذا كان يوجد طريقة لجمع الملون فقط هل هذاممكن مرفق مثال فقط يوجد عندى شيت يحتوى على اكتر من 500 خلية فهل هذا ممكن test colour.rar رابط هذا التعليق شارك More sharing options...
ابو القبطان قام بنشر سبتمبر 6, 2009 مشاركة قام بنشر سبتمبر 6, 2009 كل سنه وانت طيب اخونااحمد حافظ لو تكرمت ارسل ملفك بهيئة اوفيس 2003 واظن انا ارسلت لك هذا الملف من قبل ؟؟ اخوك : حسن رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر سبتمبر 6, 2009 مشاركة قام بنشر سبتمبر 6, 2009 اخي احمد هذا كود من احد المواقع الأجنبية [b]Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)[/b] Dim rCell As Range Dim lCol As Long Dim vResult '''''''''''''''''''''''''''''''''''''' 'Written by Ozgrid Business Applications 'www.ozgrid.com 'Sums or counts cells based on a specified fill color. ''''''''''''''''''''''''''''''''''''''' lCol = rColor.Interior.ColorIndex If SUM = True Then For Each rCell In rRange If rCell.Interior.ColorIndex = lCol Then vResult = WorksheetFunction.SUM(rCell,vResult) End If Next rCell Else For Each rCell In rRange If rCell.Interior.ColorIndex = lCol Then vResult = 1 + vResult End If Next rCell End If ColorFunction = vResult [b]End Function[/b] و هذا هو رابط الموضوع الأصلي http://www.ozgrid.com/VBA/sum-count-cells-by-color.htm رابط هذا التعليق شارك More sharing options...
ahmedhafez قام بنشر سبتمبر 6, 2009 الكاتب مشاركة قام بنشر سبتمبر 6, 2009 السلام عليكم اخى الكريم حسن واخى يحيى بارك الله فيكم سبقتونى انا فعلا كنت قد وجدت الكود الموجود فى المواقع الاجنبية المرفق من قبل اخى الكريم جوست وكنت داخل المنتدى لوضعة لافادة الاعضاء كل سنة وانتم طيببين يا اخى الكريم رابط هذا التعليق شارك More sharing options...
اوفيس 2003 قام بنشر سبتمبر 7, 2009 مشاركة قام بنشر سبتمبر 7, 2009 ياليت اخواني الأعزاء لو ترسلو لنا ملف به مثال وبه الكود الله يبارك فيكم رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر سبتمبر 7, 2009 مشاركة قام بنشر سبتمبر 7, 2009 تفضل اخي هذا ملف مرفق Color sum.rar رابط هذا التعليق شارك More sharing options...
اوفيس 2003 قام بنشر سبتمبر 7, 2009 مشاركة قام بنشر سبتمبر 7, 2009 مشكووووووووووووووور وبارك الله فيك رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر سبتمبر 7, 2009 مشاركة قام بنشر سبتمبر 7, 2009 اخي الكريم هذا المرفق به مثالين لدالتين تقومان بنفس العمل ط¬ظ…ط¹ ط§ظ„ط®ظ„ظٹط© ط§ظ„طھظ‰ ظ…ظ„ظˆظ†ط© ظپظ‚ط·.rar رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر سبتمبر 7, 2009 مشاركة قام بنشر سبتمبر 7, 2009 عذرا استاذي Justice لم انتبه لردك على العموم زيادة الخير خيرين رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر سبتمبر 7, 2009 مشاركة قام بنشر سبتمبر 7, 2009 طبعا مشكورين ولكن لي اقتراح على أي أساس يكون التلوين؟ ونستعمل sumif بمعنى أننا نلون مثلا القيم أكبر من 100 مثلا نستعمل الدالة sumif بنفس الشرط والله أعلم 1 رابط هذا التعليق شارك More sharing options...
سالم شباني قام بنشر سبتمبر 7, 2009 مشاركة قام بنشر سبتمبر 7, 2009 السلام عليكم إليكم الملف المرفق به كود يحسب قيم الخلايا حسب لونها للأمانة الكود منقول بارك الله في صاحبه دون أن أنسى مساهمات الأساتذة مشكورين test colour.rar رابط هذا التعليق شارك 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.