يتغير لون خليه بمجرد ادخال معلومات بالجدول

[لؤي زناده]

السلام عليكم اخواني الاعضاء

ممكن اخواني ان يكون امر بان يتغير لون الخلية بمجرد ادخال امر وان يعود للونها الاصلي بمجرد ادخال بيانات فيها 

الرجاء الطريقه 

 

[أبوعيد]

ادخال أمر ..... ادخال بيانات

الرجاء التوضيح أكثر بمثال

[أبوبسمله]

اخى لؤى ما الداعى لفتح موضوع جديد بنفس الاسم وبنفس اليوم  http://www.officena.net/ib/topic/67678-يتغير-لون-خليه-بمجرد-ادخال-معلومات-بالجدول/

اكتفى بعد ذلك ان لم تجد استجابه بوضع مشاركه فى موضوعك للرفع مثلا حتى يكون الموضوع بالاعلى ليراه الجميع وسوف يشاركك من يفهم سؤالك بكل تاكيد

تقبل مرورى واعذرنى لكلامى هذا ولكن حفاظا على المنتدى بالتوفيق

 

[لؤي زناده]

15 hours ago, أحمد الفلاحجى said:

 

شكرا اخي الكريم على المرور وحياكم الله 

من الممكن اني لم انتبه الى ذلك التكرار واذا من الممكن تحذف الموضوع التاني

اخي الكريم 

عند الكتابه في أي خليه من a ولغاية j أي بيانات ان يتغير لون الخلية f الى الاحمر وعند الكتابة بالخليه f يرجع لونها الى الابيض

وهذا مثال 

Book1.rar

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

أخي الكريم لؤي

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

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    
    If Target.Row > 7 And Target.Column >= 1 And Target.Column < 11 And Target.Column <> 6 Then
        Cells(Target.Row, 6).Interior.ColorIndex = 3
    End If
    
    If Target.Row > 7 And Target.Column = 6 Then
        Target.Interior.ColorIndex = xlNone
    End If
End Sub

تقبل تحياتي

 

[لؤي زناده]

4 hours ago, ياسر خليل أبو البراء said:

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Target.Row > 7 And Target.Column >= 1 And Target.Column < 11 And Target.Column <> 6 Then Cells(Target.Row, 6).Interior.ColorIndex = 3 End If If Target.Row > 7 And Target.Column = 6 Then Target.Interior.ColorIndex = xlNone End If End Sub

مشكور اخي على العبور الكريم من حضرتك بس مش زابطه معي 

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

أخي الكريم

إذاً مزيد من التوضيح لإزالةا لغموض ..أنا عملت الكود بناءً على ما فهمت من كلامك .. ما هو شكل النتائج المتوقعة؟

[لؤي زناده]

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

اخي الكريم ياسر اشكرك من كل قلبي 

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

على العموم شكرا جزيلا لك ولكن اخي تعطل عندي 

CTRL Z 

هل من المايكرو السبب ؟؟؟؟؟ 

تم تعديل مارس 2, 2016 بواسطه لؤي زناده

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

أخي الكريم

نعم التعامل مع الأكواد لا يدعم التراجع لذا يرجى عمل نسخ احتياطية من ملفاتك بشكل دائم ..

والحمد لله الذي بنعمته تتم الصالحات ..