السلام عليكم
اخي
و بعد اذن اخي ابو اسامه
R = Target.Row
c = Target.Column
If R > 1 And R < 19 And c < 15 Then
Range("RR").Interior.ColorIndex = xlNone
Range("FR").Interior.ColorIndex = 6
Range(Cells(R, 1), Cells(R, 15)).Interior.ColorIndex = 3
Else
Range("RR").Interior.ColorIndex = xlNone
Range("FR").Interior.ColorIndex = xlNone
End If
اخي السطر الاول يقصد به ان ال R تمثل الصف المستهدف
اما السطر الثاني يقصد به ان ال C تمثل العمود المستهدف
السطر الثالث اذا كانت الخليه التي نحددها بالماوس بين العمود الاول و العمود ال 19 قبل العمود ال 15 فانه
فان النطاق المسمي داخل الشيت و هو RR يكون بلا لون وهو الذي من الصف 2 الي الصف 18 لتفريغ اي لو بالنطاق
و النطاق المسمي داخل الشيت و هو FR و المقصود به الصف الاول يكون اللون =6 و هو الاصفر
و الصف الذي تقع به هذه الخليه المحدده يمثل الخلايا التي تحت الاعمده من 1 الي 15 يكون لونه 3 و هو الاحمر
غير ذلك
اي(اذا كانت الخلية التي نحددها تقع خارج النطاق الذي حدد و هو بين العمود الاول و العمود 19 يعني الصف 2 و الصف 18)
و قد تمثلت قيمة الصف بال R لاخذ نفس قيم الاعمده من 1 الي 19 للصفوف
فانه
النطاق المسمي داخل الشيت و هو RR يكون بلا لون
النطاق المسمي داخل الشيت و هو FR يكون بلا لون
اتمني اكون وفقت بالتوضيح
مع التاكيد علي كلام الاخ الفاضل ابو اسامه من الضروره بالتعلم بالانجليزيه و محاولة فهم الكود و ليس حفظه ومره مع مره تنسجم مع الاكود و يسهل قرائتها
فابدا بالصعب للتسهيل عليك فيما بعد
ارجو ان يعذرني اخي ابو اسامه لتدخلي هذا دون اذن
خالص تحياتي