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


إخواني الكرام في الموضوع السابق قمنا بتظليل صف وعمود الخلية النشطة ، أما موضوعنا الآن هو تظليل الخلية النشطة فقط باستخدام التنسيق الشرطي ..


خطوات العمل :
سأدع الصور تتحدث ، فخير الكلام ما قل ودل


















المعادلة المستخدمة في تسمية النطاق ActiveCellAddress بالشكل التالي :

=ADDRESS(1,1)<br />

المعادلة المستخدمة في التنسيق الشرطي بالشكل التالي :

=ADDRESS(ROW(A1),COLUMN(A1))=ActiveCellAddress<br />

وأخيراً بعد الانتهاء من الخطوات السابقة يوضع الكود التالي في حدث ورقة العمل :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With ThisWorkbook.Names("ActiveCellAddress")
        .Name = "ActiveCellAddress"
        .RefersToR1C1 = "=ADDRESS(" & ActiveCell.Row & "," & ActiveCell.Column & ")"
    End With
End Sub

وإليكم الملف المرفق مطبق فيه الموضوع بالكامل


رابط الملف من هنا

إعداد وتقديم / ياسر خليل أبو البراء