سراب الليل قام بنشر أكتوبر 13, 2005 مشاركة قام بنشر أكتوبر 13, 2005 بسم الله الرحمن الرحيم عندي جدول في الإكسل من (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 أرجو المساعدة وجزاكم الله خير .......... رابط هذا التعليق شارك More sharing options...
علي السحيب قام بنشر أكتوبر 13, 2005 مشاركة قام بنشر أكتوبر 13, 2005 السلام عليكم، المرفق التالي يحتوي على كود قام الأستاذ محمد طاهر بإرفاقة في مشاركة سابقة موجودة على الرابط التالي .. وقد قمت بالتعديل عليه بعض الشيء لكي يتوافق مع ما تحتاج إليه: http://www.officena.net/ib/index.php?showtopic=9727 والآن إليك المرفق ___________________________________.zip رابط هذا التعليق شارك More sharing options...
الردود الموصى بها