اخواتى الاساتذة الافاضل بحاجة لمعادلة جمع مايتم تلوينه باللون الاصفر فى عمود

[abouelhassan]

الاخوة الافاضل

احتاج معادلة  اذا قمت بتلوين خلية فى العمود hباللون الاصفر يتم جمعها ويكون الجمع تراكمى

لو الخلية الاولة لونتها بالاصفر وكان فيها رقم 5 والتى تليها لم الونها ثم لونت التى تليها بالاصفر وبها رقم 10 يظهر لى الجمع 15 وهكذا كل ما الون خانة يزيد مجموعها اى معادلة جمع مشروطة باللون الاصفر اذا تم تلوين الخلية بالاصفر يجمع

كل احترامى

New Microsoft Excel Worksheet.rar

[عبدالله باقشير]

السلام عليكم

 

عملت لحضرتك دالة لجمع خلايا معينة حسب لون الخلية التي فيها الدالة

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

جرب واشعرنا بالنتيجة

 

تحياتي

المرفق 2003

جمع مشروط بلون.rar

[abouelhassan]

اشكرك استاذى الحبيب لقلبى

بس احب اوضح ان العمود H به ارقام بالكامل واقوم بتلوين ارقام معينة فيه اريد من يتم تلوينه بالاصفر فقط هو مايتم جمعه

حضرتك فهمتنى العمود h به ارقام  كثيرة من H2 وحتى   H5900  خانات معينة فقط غير مرتبة نريد ان نجمعها فنلونها بالاصفر ليس لها ترتيب ثابت

اريد اى خانة اضع فيها اللون الاصفر يتم جمعها

واشكرك من كل وخالص قلبى                                                  

[عبدالله باقشير]

اشكرك استاذى الحبيب لقلبى

بس احب اوضح ان العمود H به ارقام بالكامل واقوم بتلوين ارقام معينة فيه اريد من يتم تلوينه بالاصفر فقط هو مايتم جمعه

حضرتك فهمتنى العمود h به ارقام  كثيرة من H2 وحتى   H5900  خانات معينة فقط غير مرتبة نريد ان نجمعها فنلونها بالاصفر ليس لها ترتيب ثابت

اريد اى خانة اضع فيها اللون الاصفر يتم جمعها

واشكرك من كل وخالص قلبى                                                  

هذا ما يتم بالفعل

الخلية K2 فيها الدالة وملونة باللون الاصفر

اذن هي تجمع الخلايا الموجودة في متغير الدالة الملونة باللون الاصفر

[عبدالله باقشير]

ويمكنك اضافة هذا السطر بداية الكود

لتجعلها تعمل مع حساب الورقة

Application.Volatile

هكذا

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

المرفق 2003

جمع مشروط بلون.rar

[abouelhassan]

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

اريد بمجرد ان اكتب رقم والونه بالاصفر يت جمعه سريعا بالمعادلة حضرتك فهمتنى ولا اوضح اكثر احترام من القلب اخيك فى الله

[عبدالله باقشير]

لان تغيير اللون ليس حدث يعتمد عليه في حساب الورقة

 

لذا يمكنك الضغط على F9 لتفعيل الحساب

[abouelhassan]

كل الاحترام والتقدير وخالص الدعاء من قلبى بارك الله لك ولاسرتك استاذنا امين

اخيك

[سليم حاصبيا]

السلام عليكم

بعد اذن الاستاذ الكبير عبدالله

كتب لك كود بسيط

لعله يعجبك

sumcolor.rar

[محمود ربيع]

استاذنا الكبير /

عبدالله باقشير

جزاك الله خيرا عمل رائع

لك مني كامل الاحترام والنقدير