تلوين الخلية بالقائمة

[فهمي كاظم]

السلام عليكم

 

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

 

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

 

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

azx.zip

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

تفضل جزء من الحل

azx.rar

[الخالدي]

السلام عليكم ورحمة الله وبركاته

وهنا تكملة الجزء المتبقي

ارجو ان يكون الحل مقبول

في امان الله

azx3.rar

[فهمي كاظم]

شكرا لكم جمعيا على هذا التعاون

 

ممكن شرح لطريقة تلوين الخلايا واكون من الشاكرين

 

كذلك اتمنى ان تظهر رسالة بان الاسم مكرر عند اختيار اسم سبق اختياره

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

شكرا لكم جمعيا على هذا التعاون

 

ممكن شرح لطريقة تلوين الخلايا واكون من الشاكرين

 

كذلك اتمنى ان تظهر رسالة بان الاسم مكرر عند اختيار اسم سبق اختياره

تفضل أخي الحبيب الملف التالي

azx.rar

[فهمي كاظم]

اشكركم على هذا التعاون الرائع

 

لكن اتمنى تعليمي هذه الطريقة التلوين وعدم التكرار

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

ألأخ الحبيب فهمي

لديك الكود في المرفق في مشاركتي السابقة حاول تقرا وتغير النطاقات كما فهمت .. حاول وجرب ولو قابلتك مشكلة سنكون بعون الله وإذنه معك

[فهمي كاظم]

شكرا اخي ياسر

 

كيف اغير بالكود ياليت توضح لي ( الكود اين اجده )

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

اضغط Alt +F11 سيفتح لك محرر الأكواد

Private Sub Worksheet_Change(ByVal Target As Range)
Dim DupCtr As Double
LastRow = Cells(Rows.Count, Target.Column).End(xlUp).Row

    If Not Intersect(Target, Range("D8:M26")) Is Nothing Then
    
        DupCtr = Application.WorksheetFunction.CountIf(Range(Cells(8, Target.Column), Cells(LastRow, Target.Column)), Target.Text)
        If DupCtr > 1 Then
            MsgBox "لقد أدخلت اسم موجود من قبل"
            Application.EnableEvents = False
            Target.ClearContents
            Application.EnableEvents = True
        End If
    
    End If
End Sub

النطاق من D8:M26 المراد العمل من خلاله

الرقم 8 في السطر التالي له رقم الصف

تم تعديل أكتوبر 27, 2014 بواسطه YasserKhalil

[فهمي كاظم]

شكرا اخي كيف اضيف اسماء اخرى واعطيها لون معين

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

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

أخي الحبيب

من التنسيق الشرطي قم بتغيير المعادلة لهذا الشكل

=OR(D8="عمرو";D8="علي";D8="جعفر";D8="صقر")

ويمكنك إضافة أسماء جديدة بكل سهولة عن طريق إضافة علامة

;

قبل القوس الأخير ثم

D8=

ثم الاسم بين أقواس تنصيص

[فهمي كاظم]

جزاك الله خيرا

 

بقى هل استطيع السماح لبعض الاسماء بالتكرار في نفس العمود