بسم الله الرحمن الرحيم  
   
عندي جدول في الإكسل من (C9:C39) وهذا الجدول فيه أيام الأسبوع لحساب أوقات العمل للموظف الواحد ويوم الجمعة إجازة المطلوب عند ظهور يوم الجمعة تلوين الخلية من (S9:B9)بلون معين يكمن تحديدها من الشفرة 
 
ويفضل لون الأصفر بالشفرة التالية : #FFFF99 
وجزاه الله الخير الذي أرسل الشفرة و لاكن فيه عيب واحد أن الخلية لا يمكن أن تنتقل إلى خلية أخرى  
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
If Range("A1").Value = 1 Then 
Range("B1:F1").Select 
With Selection.Interior 
       .ColorIndex = 5 
   End With 
End If 
End Sub 
أرجو المساعدة وجزاكم الله خير ..........