عذاب الزمان قام بنشر يوليو 14, 2019 مشاركة قام بنشر يوليو 14, 2019 السلام عليكم ورحمة الله وبركاته ارجو من الاساتذة الكرام بيان كيفية 1- جمع محتويات الخلايا ذات لون واحد فقط وليكن الاحمر فقط . 2- عدد الخلايا ذات لون واحد فقط وليكن الاحمر فقط . وذلك باستخدام الكود رجاءا . مع الشكر للجميع مقدما ......... تجربة.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة Ali Mohamed Ali قام بنشر يوليو 14, 2019 أفضل إجابة مشاركة قام بنشر يوليو 14, 2019 وعليكم السلام تفضل لك ما طلبت تجربة.xlsm 2 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يوليو 15, 2019 مشاركة قام بنشر يوليو 15, 2019 UDF رائعة اخي علي لكن اليس هناك من مجال لاختصارها دون الحاجة الى (vResult) لتبدو بهذا الشكل Option Explicit Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean) Dim rCell As Range, lCol# lCol = rColor.Interior.ColorIndex ColorFunction = 0 For Each rCell In rRange If rCell.Interior.ColorIndex = lCol Then _ ColorFunction = _ ColorFunction + IIf(SUM, Application.SUM(rCell), 1) Next rCell End Function 1 رابط هذا التعليق شارك More sharing options...
عذاب الزمان قام بنشر يوليو 15, 2019 الكاتب مشاركة قام بنشر يوليو 15, 2019 الاخ ALI MOHAMED ALI الاخ سليم حاصبيا الطريقتان عملتا بنفس الكيفية ولكما جزيل الشكر والامتنان ... لكن عندما الون اي خلية جديدة او ارفع تلوين خلية حمراء سابقه فان ( العدد) و(الجمع) لايتغيران الا بالنقر على خلية دالة العدد او الجمع ثم انتر ليقوم باحتسابها ؟ المفروض عند تغيير اللون او تلوين جديد يقوم تلقائيا بحساب العدد والمجموع ..... وانتظر اجابتكم مع جزيل الشكر ... رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يوليو 15, 2019 مشاركة قام بنشر يوليو 15, 2019 تم التعديل على الكود Option Explicit Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean) Application.Volatile Dim rCell As Range, lCol# lCol = rColor.Interior.ColorIndex ColorFunction = 0 For Each rCell In rRange If rCell.Interior.ColorIndex = lCol Then _ ColorFunction = _ ColorFunction + IIf(SUM, Application.SUM(rCell), 1) Next rCell End Function 1 رابط هذا التعليق شارك More sharing options...
عذاب الزمان قام بنشر يوليو 15, 2019 الكاتب مشاركة قام بنشر يوليو 15, 2019 الاخ سليم المحترم لم يتغير شيء نفس النتيجة السابقة تجربة.xlsm رابط هذا التعليق شارك More sharing options...
خالد ابوعوف قام بنشر يوليو 16, 2019 مشاركة قام بنشر يوليو 16, 2019 تمام الدالة والكود يعمل لدي رابط هذا التعليق شارك More sharing options...
عذاب الزمان قام بنشر يوليو 16, 2019 الكاتب مشاركة قام بنشر يوليو 16, 2019 الاخ خالد .... نعم يعمل ... صح ... لكن ... عند تغيير لون الخلية لا يتاثر العدد او الجمع تلقائيا الا بعد النقر على خلية اللون ثم انتر او باستخدام نسخ التنسيق .... ما طلبته هو ان يتغيير العدد والمجموع بمجرد اعطاء لون للخلية ... تحياتي وشكرا للاهتمام .... رابط هذا التعليق شارك 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.