المساعدة في تلون خلية بلون محدد كند كتابة اسم محدد في خلية ثانية

[angelloay]

السلام عليكم

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

مثال اذا كتبت كلمة اخضر في خلية تتلون الخلية المقابلة باللون الاخضر والاحمر كذلك 

وشكرا لكم

[مختار حسين محمود]

مثال : ضع الكود التالى فى حدث الشيت

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Range("A1").Find("اخضر") Is Nothing Then
Range("A1").Offset(0, 1).Interior.ColorIndex = 4
Else
Range("A1").Offset(0, 1).Interior.Pattern = xlNone
End If
End Sub

اكتب كلمة اخضر فى A1  ستجد أن الخلية B1   صارت خضراء  ثم اخذف الكلمة ستجد الخلية استعادت لونها العادى

والا أرفق ملفا ضع فيه تصورك والنتائج المرجوة   تحياتى

[angelloay]

شكرا لك تم العمل عن طريق التنسيق الشرطي والكود يعمل بنجاح ايضا ولكن لدي مشكلة اخرى ارجو الحل

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

وسوف ارفق ملف العمل وشكرا

TEST ABED PR ams.rar

[مختار حسين محمود]

أخى الكريم  angelloay  

  نسيت أرحب بك فى المنتدى  فأهلا وسهلا بك   ويا حبذا لو تغير اسم الظهور الى العربية لسهولة التواصل

للعلم أن جمع الخلايا ذات الألوان الناجمة عن  التنسيق الشرطى  يشكل صعوبة  على الأقل بالنسبة لى أنا شخصيا

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

واستخدمت دالة  udf  لحساب مجموع الخلايا ذات اللون الواحد  فى المرفق التالى    عسى يحوز اعجابك

Summing cells based on Color.rar