إجمالي مرات مشاهدة الصفحة

الخميس، 18 أغسطس 2016

تظليل الخلية النشطة فقط باستخدام التنسيق الشرطي Highlight ActiveCell Only Using Conditional Formatting

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

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

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









المعادلة المستخدمة في تسمية النطاق ActiveCellAddress بالشكل التالي :
=ADDRESS(1,1)
المعادلة المستخدمة في التنسيق الشرطي بالشكل التالي :
=ADDRESS(ROW(A1),COLUMN(A1))=ActiveCellAddress
وأخيراً بعد الانتهاء من الخطوات السابقة يوضع الكود التالي في حدث ورقة العمل :


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

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

تحميل الملف من هنا

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

هناك 7 تعليقات:

  1. موضوع ابحث عنه من زمان
    مشكوووور

    ردحذف
  2. مشكور على مرورك العطر أخي الكريم أبو مالك
    والحمد لله أن وجدت بغيتك
    تقبل تحياتي

    ردحذف
  3. وجزيت خيراً أخي عمار بمثل ما دعوت لي

    ردحذف
  4. روعة أخى ياسر جزاك الله خيرا

    ردحذف
  5. الأورع هو مرورك العطر بالمدونة أخي الغالي مختار

    ردحذف
  6. .انضم إلى eToro وقُد ثورة التكنولوجيا المالية

    انضم إلى مسيرة النجاح اتصل بأكثر من 4 ملايين متداول ومستثمر من 170 دولة

    ردحذف