محمد الورفلي1 قام بنشر نوفمبر 7, 2015 مشاركة قام بنشر نوفمبر 7, 2015 السلام عليكم بحثت في المنتدى عن معادلة تفي بالغرض وهي جمع مع التنسيق الشرطي ولم اجد .. فالاساتذة ساعدوني بمعادلات مختلفة في موضع سابق لكن عند نقلها الي الشيت لم تعمل فهذا الشيت الاصلي اريد عدد الخلاياء التي تكون باللون الاحمر مع الاحتفاظ بنوع التنسيق الشرطي الموجود في الخلية جمع2.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر نوفمبر 7, 2015 مشاركة قام بنشر نوفمبر 7, 2015 أخي الكريم محمد أعتقد أن هناك موضوع مشابه لنفس الطلب عموماً .هل تريد عد الخلايا أم جمعها؟ لأن عنوان الموضوع جمع الخلايا ..وفي سياق الطلب تريد عد الخلايا وسألتك سالفاً ما هو شرط التنسيق الشرطي ..إذ أنه يمكنك الاعتماد على الشرط لعد الخلايا أو لجمعها كما ترغب رابط هذا التعليق شارك More sharing options...
محمد الورفلي1 قام بنشر نوفمبر 7, 2015 الكاتب مشاركة قام بنشر نوفمبر 7, 2015 استاذ ياسر السلام عليكم توضيح 1/ صدقت هناك موضوع مشابه واصبحت المشاركات مشتته فا احببت ان يكون طلبي واضح وصريح وغير مشتت للقارى 2/ نعم اريد عدد الخلايا فقط التي تم بها اللون الاحمر 3/ بالنسبة للتنسيق الشرطي فهو موجود بالخلايا ::: (( هو عند تكرار فصلين في نفس العمود تصبح الخليتين باللون الاحمر )) :::: هنا اريد كم خلية اصبح لونها احمر وشكراً واسف على الازعاج رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر نوفمبر 7, 2015 مشاركة قام بنشر نوفمبر 7, 2015 أخي الكريم محمد الخازمي لا إزعاج ولا داعي للاعتذار فقط أردت التنويه لا شيء آخر عموماً جرب الدالة المعرفة التالية علها تفي بالغرض (مع العلم أنني لا أستحب استخدام التنسيق الشرطي بهذا الشكل المفرط الذي يؤدي إلى ثقل التعامل مع الملف) Function CountCFCells(Rng As Range, C As Range) Dim I As Single, J As Long, K As Long Dim Chk As Boolean, Str1 As String, CFCELL As Range Chk = False For I = 1 To Rng.FormatConditions.Count If Rng.FormatConditions(I).Interior.ColorIndex = C.Interior.ColorIndex Then Chk = True Exit For End If Next I J = 0 K = 0 If Chk = True Then For Each CFCELL In Rng Str1 = CFCELL.FormatConditions(I).Formula1 Str1 = Application.ConvertFormula(Str1, xlA1, xlR1C1) Str1 = Application.ConvertFormula(Str1, xlR1C1, xlA1, , ActiveCell.Resize(Rng.Rows.Count, Rng.Columns.Count).Cells(K + 1)) If Evaluate(Str1) = True Then J = J + 1 K = K + 1 Next CFCELL Else CountCFCells = "Color Not Found" Exit Function End If CountCFCells = J End Function جمع2.rar 3 رابط هذا التعليق شارك More sharing options...
محمد الورفلي1 قام بنشر نوفمبر 7, 2015 الكاتب مشاركة قام بنشر نوفمبر 7, 2015 السلام عليكم الحمد لله الذي بنعمته تتم الصالحات شكراً استاذ ياسر كذالك الشكر موصل للاستاذ نضال الشامي هو كذالك بنفس الحل لكن بالتنسيق الشرطي في الموضوع السابق .... وكنت قد سئلته عن كيفية وضع النتيجة في خلية واحدة واذا كان لا تصلح فسوفا استخدم SUM 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر نوفمبر 7, 2015 مشاركة قام بنشر نوفمبر 7, 2015 لم أفهم المطلوب اخي الحبيب محمد هل تريد جمع القيم أم عدها؟؟؟ أم أنك تقصد عد الخلايا الملونة في النطاق بأكمله وليس في عمود واحد .. 1 رابط هذا التعليق شارك More sharing options...
مختار البركاني قام بنشر نوفمبر 7, 2015 مشاركة قام بنشر نوفمبر 7, 2015 السلام عليكم ورحمة الله وبركاته مرفق ملف يؤدي الغرض بتنسيق شرطي مختلف حاول مع التنسيق الشرطي الخاص بك حساب عدد الخلايا باللون الاحمر حسب تنسيق شرطي.rar 1 رابط هذا التعليق شارك More sharing options...
محمد الورفلي1 قام بنشر نوفمبر 7, 2015 الكاتب مشاركة قام بنشر نوفمبر 7, 2015 4 ساعات مضت, ياسر خليل أبو البراء said: أم أنك تقصد عد الخلايا الملونة في النطاق بأكمله وليس في عمود واحد .. نعم واخيراً اوصلت فكري 3 ساعات مضت, مختار البركاني said: السلام عليكم ورحمة الله وبركاته مرفق ملف يؤدي الغرض بتنسيق شرطي مختلف حاول مع التنسيق الشرطي الخاص بك حساب عدد الخلايا باللون الاحمر حسب تنسيق شرطي.rar هذا الكود احتفظ به ولم يفي بالغرض المطلوب ... شكراً لمجهودك وروح التعاون بارك الله فيك استاذ مختار 1 رابط هذا التعليق شارك More sharing options...
مختار البركاني قام بنشر نوفمبر 7, 2015 مشاركة قام بنشر نوفمبر 7, 2015 حفظك الله اخي محمد الخازمي ساحتفظ به لعله يفيدني مستقبلا شكرا لنصيحتك رابط هذا التعليق شارك More sharing options...
محمد الورفلي1 قام بنشر نوفمبر 7, 2015 الكاتب مشاركة قام بنشر نوفمبر 7, 2015 ماعاذ الله ان يكوني قصد كما فهمت استاذ مختار انا اقصد انا العبدالفقير لله لدي نسخة من الكود ولم اقصد ان تتحتفظ به انت استاذ مختار اسف لسوء الفهم رابط هذا التعليق شارك More sharing options...
مختار البركاني قام بنشر نوفمبر 7, 2015 مشاركة قام بنشر نوفمبر 7, 2015 (معدل) 47 دقائق مضت, محمد الخازمي said: ماعاذ الله ان يكوني قصد كما فهمت استاذ مختار انا اقصد انا العبدالفقير لله لدي نسخة من الكود ولم اقصد ان تتحتفظ به انت استاذ مختار اسف لسوء الفهم حفظك الله اخي محمد الخازمي اعتذر لك اخي الكريم تم تعديل نوفمبر 7, 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.