ارجاع قيمه بناء على لون الخليه

[monm]

اريد إذا كانت الخليه a1 لونها احمر يكت فى الخليه a10 راسب وإذا كان لونها ابيض يكتب ناجح

[ياسر خليل أبو البراء]

أخي الكريم

يرجى تغيير اسم الظهور للغة العربية

جرب الكود بهذا الشكل لاختبار لون الخلية

Sub Test()
    If Range("A1").Interior.Color = vbRed Then
        Range("A10").Value = "راسب"
    Else
        Range("A10").Value = "ناجح"
    End If
End Sub

أما إذا أردت معادلة فالأفضل أن تعتمد على قيمة الخلية وليس لونها

تقبل تحياتي