تغير القيمه بناء علي لون الخلفيه التي تتغير بتنسيق شرطي

[تامر خليفة]

مرحبا للجميع

كما هو مبين من اسم السؤال

ارجو من الاخوة المساعدة في ايجاد الدالة التي تقوم بتغير قيمة خليه بناء علي لون خليه اخري التي يتغير لونها بناء علي تسنيق شرطي

مثال

الخلية A1 بها تنسيق شرطي يغير في لون الخليه

اريد ان اكتب مثلا في الخلية A2 كلمة "تم" اذا كان لون الخليه A1 أحمر

و اكتب مثلا في الخلية A2 كلمة "غير تام" اذا كان لون الخليه A1 أسود

ارجو ان اجد الحل لديكم

شكرا للجميع

[تامر خليفة]

واضح اني غلطت و نزلت نفس الموضوع اكتر من مره بدون عمد

من فضل الادمن حذف الموضوعين المتشابهيين مع تقبل اعتذاري

[عبدالله المجرب]

تم حذف المواضيع المكررة

هل ممكن ترفق مثال

[تامر خليفة]

هذا المرفق المراد التعديل عليه

وجزاكم الله كل خير مقدما

[تامر خليفة]

Tamer.rar

المرفقات

[الـعيدروس]

السلام عليكم

جرب هذا الكود

Public Sub Ali_F()

Dim Rt As Range

Set Rt = [A1]

With [A2]

  Select Case S_F(Rt)

    Case Is = 255

	 .Value = "تم"

    Case Is = 0

	 .Value = "غير تام"

  End Select

End With

End Sub

Public Function S_F(ByVal C_R As Range) As Integer

Dim Colr As String

Colr = C_R.FormatConditions(1).Interior.Color

S_F = Colr

End Function

Tamer_A.rar

تم تعديل نوفمبر 7, 2012 بواسطه عباد