مش لاقى عنوان لسؤالى

[رفيع سعد]

الاساتذة الاقاضل مشرفيين واعضاء المنتدى سلام اللة عليكم ورحمتة وبركاتة طبتم وطاب مسائكم ارجو القاء نظرة على الملف المرفق ان امكن واكون شاكر لكم

s s.rar

[ياسر العربى]

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

ولكن لو كمية البيانات كثيرة الاحتمالات هتكتر المعالجة تصبح بطيئة

ولكن لدي ملف بالمصفوفات ولكن هيطلع لك النتائج بدون اماكنها

اما هذا الملف فممكن تضيف عنوان الشيت اللي فيه الارقام واسماء الخلايا حتي ممكن  نضيف رابط لكل خليه

جرب الملف وبلغنى رأيك

وشكرا

YASSER_Elaraby_4.rar

[رفيع سعد]

بسم اللة الرحمن الرحيم 

استاذى العزيز ياسر العربى اولا اسف على التاخير فى الرد لانى سبت الجهاز شوية لكن الملف بتاع حضرتك بعيد عن المطلوب وللتوضيح انا عندى الرقم الموجود فى الخلية a 2 دة رقم اساسى ومتغير ممكن يكون 12  أو اى رقم تانى انا عايز اى رقميين فى الخلايا كلها مجموعهم يساوى هذا الرقم انهم يخدو اى علامة وممكن رقم واحد يوافق فى الجمع مع اكتر من خلية وارجو ان اكون عرفت اوضح المطلوب 

 

[ياسر العربى]

تفضل بس الملف كدا فيه ارقام كتير متشابهه عشان كدا هتلاقي الوان تراكمت فوق بعض
صغر نطاق الارقام وانت تتأكد من عمل الملف
 

YASSER.rar

[أبو حنــــين]

مرحبا 

تقريا نفس الكود الذي وضعه اخي ياسر

Sub ColorRange()

Application.ScreenUpdating = False
Dim c1 As Range, c2 As Range
Range("b3:i16").Interior.ColorIndex = xlNone: Range("b3:i16").Font.ColorIndex = 1


For Each c1 In Range("b3:i16"): For Each c2 In Range("b3:i16")
If Val(c1.Value) + Val(c2.Value) = Range("a2").Value Then
x = Int(Rnd * 55)
c1.Interior.ColorIndex = Val(x): c2.Interior.ColorIndex = Val(x)
End If
If c1.Value = Range("a2").Value Then c1.Font.ColorIndex = 46
If c2.Value = Range("a2").Value Then c2.Font.ColorIndex = 46

Next
Next
Application.ScreenUpdating = True

End Sub

 

[ياسر العربى]

مشكور اخي ابو حنين  على الكود

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

 

[رفيع سعد]

6 ساعات مضت, ياسر العربى said:

مشكور اخي ابو حنين  على الكود

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

 

بسم اللة الرحمن الرحيم 

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

تم تعديل أكتوبر 9, 2016 بواسطه رفيع سعد

[رفيع سعد]

للرفع