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

عمل رائع وافكار اروع استاذى الحبيب ياسر
جزاك الله خيرا وبارك الله فيك

تسلم أخي الحبيب إسلام ..هذا بعض ما عندكم
تقبل وافر تقديري واحترامي

يمكن بكل بساطة هذا الكود

<br />
Private Sub Worksheet_SelectionChange(ByVal Target As Range)<br />
Me.Cells.Interior.Color = xlNone<br />
Columns(Target.Column).Interior.ColorIndex = 35<br />
Rows(Target.Row).Interior.ColorIndex = 35<br />
End Sub<br />
<br />

شكرا لك استاذنا الكبير سليم ومنور فى هذا المنتدى الكريم
والشكر موصول لأستاذنا الكبير اسلام صاحب الطلعة الجوية الأولى-والشكر الكبير وكل الشكر لأستاذنا المحترم ياسر ابو البراء
جزاكم الله جميعا كل خير -واحسنتم
وبارك الله فى هذا المنتدى الكريم وحفظه بما يحويه من اساتذة وخبراء وعمالقة
وادام الله عليكم نعمة العلم ونور بصيرتكم وزادكم الله من علمه

ولإثراء الموضوع هذا كود ثالث

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
    Application.ScreenUpdating = False
    Cells.Interior.ColorIndex = 0
    With Target
  .EntireRow.Interior.ColorIndex = 4
  .EntireColumn.Interior.ColorIndex = 4
  End With
  Application.ScreenUpdating = True
End Sub

مشكور لاضافاتكم الرائعه استاذ على واستاذ سليم
لكن القصد من هذا الموضوع هو تحديد الخلايا للرؤيه فقط وليس تغيرها جذريا
حيث ان استخدام الاكواد يغير التنسيق بشكل كامل ونهائى
واستاذى الغالى ياسر فهم القصد وعليه وضع موضوع مشابه
وجزاكم الله خيرا على تفاعلكم المثمر
تقبلوا وافر احترامى وتقديرى

المشاركة الأصلية كتبت بواسطة: Eslam Abdullah مشكور لاضافاتكم الرائعه استاذ على واستاذ سليم
لكن القصد من هذا الموضوع هو تحديد الخلايا للرؤيه فقط وليس تغيرها جزريا
حيث ان استخدام الاكواد يغير التنسيق بشكل كامل ونهائى
واستاذى الغالى ياسر فهم القصد وعليه وضع موضوع مشابه
وجزاكم الله خيرا على تفاعلكم المثمر
تقبلوا وافر احترامى وتقديرى

بعد اذنك استاذ اسلام الخلايا لا تتغير جذريا لان عبارة xlno في الكود تعيدها الى اصلها
هلا جربت الكود بنفسك من فضلك

اخى الكريم سليم استخدام الاكواد فى هذا الامر كثير ولكن كما قلت التغيير هنا جذرى
وعفوا استخدام الكلمة xlNone لا يرجع شئ لاصله !!!
بل هى كلمة محجوزه مثلها مثل vbblue أو vbred كل منهم يعكس رقم محدد
وباختصار شديد فما تعكسه الكلمة xlNone هو NoColor أى لا لون
وبما ان ورقة العمل من الاساس التى اختبرت فيها الكود الخاص بك فارغ فمؤكد لم تلاحظ الامر
لكن جرب وضع اى لون اخر وقم بتجربة الكود وسيتضح الامر

المشاركة الأصلية كتبت بواسطة: Eslam Abdullah اخى الكريم سليم استخدام الاكواد فى هذا الامر كثير ولكن كما قلت التغيير هنا جزرى
وعفوا استخدام الكلمة xlNone لا يرجع شئ لاصله !!!
بل هى كلمة محجوزه مثلها مثل vbblue أو vbred كل منهم يعكس رقم محدد
وباختصار شديد فما تعكسه الكلمة xlNone هو NoColor أى لا لون
وبما ان ورقة العمل من الاساس التى اختبرت فيها الكود الخاص بك فارغ فمؤكد لم تلاحظ الامر
لكن جرب وضع اى لون اخر وقم بتجربة الكود وسيتضح الامر

بارك الله بك استاذ اسلام تم توضيح الامر بالنسبة لي

بارك الله فيكم إخواني الكرام .. والله سعدت بهذا التفاعل المثمر والذي أتمنى أن أراه في كل الموضوعات
تقبلوا وافر تقديري واحترامي

بارك الله فيكم وجزاكم الله كل خير
كلها حلول رائعة-احسنتم