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

أولا ما سأفعله هو تلوين الخلية النشطة وليس تظليلها كما بالسابق
حودة (أبو الدهب) بيقولى انت هتتفزلك علينا ما هيا هيا
هرد وأقولوا غشيم احودة

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

اذا سأقدم لكم أفكار للتعامل مع تلك الأمور بشكل مرن
الكود الأول

Private Sub Worksheet_SelectionChange(ByVal Target As Range)<br />
Static Prng As Range<br />
Static num As Integer<br />
On Error Resume Next<br />
<br />
&nbsp; &nbsp; Prng.Interior.ColorIndex = num<br />
&nbsp; &nbsp; num = Target.Cells(1).Interior.ColorIndex<br />
<br />
Target.Cells(1).Interior.ColorIndex = 6<br />
Set Prng = Target.Cells(1)<br />
End Sub<br />

حاضر امستر متقفش بس

Private Sub Worksheet_SelectionChange(ByVal Target As Range)<br />
Static Prng As Range<br />
Static num(4) As Integer<br />
On Error Resume Next<br />
<br />
&nbsp; &nbsp; Prng.Cells(1).Interior.ColorIndex = num(0)<br />
&nbsp; &nbsp; Prng.Cells(1).Offset(1).Interior.ColorIndex = num(1)<br />
&nbsp; &nbsp; Prng.Cells(1).Offset(-1).Interior.ColorIndex = num(2)<br />
&nbsp; &nbsp; Prng.Cells(1).Offset(, 1).Interior.ColorIndex = num(3)<br />
&nbsp; &nbsp; Prng.Cells(1).Offset(, -1).Interior.ColorIndex = num(4)<br />
<br />
&nbsp; &nbsp; num(0) = Target.Cells(1).Interior.ColorIndex<br />
&nbsp; &nbsp; num(1) = Target.Cells(1).Offset(1).Interior.ColorIndex<br />
&nbsp; &nbsp; num(2) = Target.Cells(1).Offset(-1).Interior.ColorIndex<br />
&nbsp; &nbsp; num(3) = Target.Cells(1).Offset(, 1).Interior.ColorIndex<br />
&nbsp; &nbsp; num(4) = Target.Cells(1).Offset(, -1).Interior.ColorIndex<br />
<br />
Target.Cells(1).Offset(-1).Resize(3).Interior.ColorIndex = 6<br />
Target.Cells(1).Offset(, -1).Resize(, 3).Interior.ColorIndex = 6<br />
<br />
Set Prng = Target.Cells(1)<br />
End Sub<br />

بالكود دا ياغاليين سيتم تلوين الخلية النشطة وما فوقها وما تحتها وما يمينها وما يسارها
وعند ترك النطاق لحال سبيله يعود النطاق السابق لما كان عليه
طبعا لو الموضوع كان كبير شويه كنت هستخدم حلقة تكرارية
بس هو مش كبير فكدا زى الفل
طبعا نفس ملاحظة الكود الاسبق عن غلق وفتح الملف وممكن برضوا تستغنى عن المتغير num
ب 5 خلايا لحفظ الالوان الاوليه للخلايا
وبقيت الملاحظات الفطيره (الخطيره) السابقة متنطبق هنا

ونكتفى بهذا القدر والى اللقاء احبابى فى الله ونلتقى بإذن الله فى موضوع جديد وفى كل جديد
مع اكاديمية الصقر والى اللقاء