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

[ولد الحجاز]

عندما اختار الخلية b7  يتغير اللون الى الرمادي والعكس يرجع لونها الى الابيض بعد اختيار خلية ثانية            
            
            

 

mz.rar

[سليم حاصبيا]

استعمل هذا الكود

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Static previous_selection As String

    If previous_selection <> "" Then ' ازالة الخافية من الخلية السابقة
        
        Range(previous_selection).Interior.ColorIndex = xlColorIndexNone
    End If

    'اضافة الخلفية على الخلية الحالية
    Target.Interior.Color = RGB(204, 236, 255)

   
    previous_selection = Target.Address

End Sub

و ليعمل فقط على الخلية B7 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address <> "$B$7" Then
        
        Range("B7").Interior.ColorIndex = xlColorIndexNone
        Else
        Target.Interior.Color = RGB(204, 236, 255)
    End If
 End Sub

 

تم تعديل سبتمبر 23, 2015 بواسطه سليم حاصبيا

[ولد الحجاز]

شكرا 

وكل عام وانت بخير  يا استاذ سليم

ممكن مثال

[عبد العزيز البسكري]

شكرا 

وكل عام وانت بخير  يا استاذ سليم

ممكن مثال

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

و أنا أتابع للإستفادة من  شروحات و مشاركات و خبرات  الأساتذة الأفاضل .. وجدت يا عزيزي ولد الحجاز أنّ الكود المرفق من الأستاذ القدير سليم حاصبيا سوف لن يشتغل لديك لسبب بسيط .. وهو أنّك عامل دمج للخليتيْن B7 و B8 .. أنصحك بإلغاء هذا الدمج كما في الصورة رقم 1 :

ولتغيير اللون إلى الرمادي غير كود اللون من الكود الموجود في حدث الورقة 1 إلى RGB 227, 227, 227

خالص احتراماتي

 

[ولد الحجاز]

 شكرا يا استاذ عزوز

وكل عام وانت بخير