abouelhassan قام بنشر سبتمبر 19, 2014 مشاركة قام بنشر سبتمبر 19, 2014 الاخوة الافاضل احتاج معادلة اذا قمت بتلوين خلية فى العمود hباللون الاصفر يتم جمعها ويكون الجمع تراكمى لو الخلية الاولة لونتها بالاصفر وكان فيها رقم 5 والتى تليها لم الونها ثم لونت التى تليها بالاصفر وبها رقم 10 يظهر لى الجمع 15 وهكذا كل ما الون خانة يزيد مجموعها اى معادلة جمع مشروطة باللون الاصفر اذا تم تلوين الخلية بالاصفر يجمع كل احترامى New Microsoft Excel Worksheet.rar رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر سبتمبر 19, 2014 مشاركة قام بنشر سبتمبر 19, 2014 السلام عليكم عملت لحضرتك دالة لجمع خلايا معينة حسب لون الخلية التي فيها الدالة 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 رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر سبتمبر 19, 2014 الكاتب مشاركة قام بنشر سبتمبر 19, 2014 اشكرك استاذى الحبيب لقلبى بس احب اوضح ان العمود H به ارقام بالكامل واقوم بتلوين ارقام معينة فيه اريد من يتم تلوينه بالاصفر فقط هو مايتم جمعه حضرتك فهمتنى العمود h به ارقام كثيرة من H2 وحتى H5900 خانات معينة فقط غير مرتبة نريد ان نجمعها فنلونها بالاصفر ليس لها ترتيب ثابت اريد اى خانة اضع فيها اللون الاصفر يتم جمعها واشكرك من كل وخالص قلبى رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر سبتمبر 19, 2014 مشاركة قام بنشر سبتمبر 19, 2014 اشكرك استاذى الحبيب لقلبى بس احب اوضح ان العمود H به ارقام بالكامل واقوم بتلوين ارقام معينة فيه اريد من يتم تلوينه بالاصفر فقط هو مايتم جمعه حضرتك فهمتنى العمود h به ارقام كثيرة من H2 وحتى H5900 خانات معينة فقط غير مرتبة نريد ان نجمعها فنلونها بالاصفر ليس لها ترتيب ثابت اريد اى خانة اضع فيها اللون الاصفر يتم جمعها واشكرك من كل وخالص قلبى هذا ما يتم بالفعل الخلية K2 فيها الدالة وملونة باللون الاصفر اذن هي تجمع الخلايا الموجودة في متغير الدالة الملونة باللون الاصفر رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر سبتمبر 19, 2014 مشاركة قام بنشر سبتمبر 19, 2014 ويمكنك اضافة هذا السطر بداية الكود لتجعلها تعمل مع حساب الورقة 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 رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر سبتمبر 19, 2014 الكاتب مشاركة قام بنشر سبتمبر 19, 2014 بارك الله فيك استاذنا بس هناك مشكلة بسيطة حضرتك اكتب رقم وقم بتلونه بالاصفر لن يتم الجمع الا اذا عملنا دبل كليك على المعادلة ثم انتر لا يتم التفاعل سريعا اريد بمجرد ان اكتب رقم والونه بالاصفر يت جمعه سريعا بالمعادلة حضرتك فهمتنى ولا اوضح اكثر احترام من القلب اخيك فى الله رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر سبتمبر 19, 2014 مشاركة قام بنشر سبتمبر 19, 2014 لان تغيير اللون ليس حدث يعتمد عليه في حساب الورقة لذا يمكنك الضغط على F9 لتفعيل الحساب رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر سبتمبر 19, 2014 الكاتب مشاركة قام بنشر سبتمبر 19, 2014 كل الاحترام والتقدير وخالص الدعاء من قلبى بارك الله لك ولاسرتك استاذنا امين اخيك 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر سبتمبر 19, 2014 مشاركة قام بنشر سبتمبر 19, 2014 السلام عليكم بعد اذن الاستاذ الكبير عبدالله كتب لك كود بسيط لعله يعجبك sumcolor.rar 1 رابط هذا التعليق شارك More sharing options...
محمود ربيع قام بنشر سبتمبر 19, 2014 مشاركة قام بنشر سبتمبر 19, 2014 استاذنا الكبير / عبدالله باقشير جزاك الله خيرا عمل رائع لك مني كامل الاحترام والنقدير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان