كود لتلوين خلايا مجاورة بناء علي قيمة فى الخلية

[سراب الليل]

لدي خلية A1 إذا وجد فيها رقم 1 يلون الخلايا من B1 إلى F1

[علي السحيب]

السلام عليكم،

جرب أخي الكود التالي:

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

تم تعديل أكتوبر 3, 2005 بواسطه LoveCandle

[skyblue]

استاذي الفاضل love candle

اولا وقبل كل شي كل عام وانتم بخير وشهر مبارك جعله له شهر خير علينا وعليكم وعلى امتنا الاسلاميه .

ثانيا : بخصوص الكود ,فهو يعمل جيدا ولكن تلاحظ لي ان المؤشر لايتحرك بعد تطبيق الكود اي بمعنى اخر لايمكن الاستفادة من الورقة بالكامل لانه كل الخلايا غير نشطة . نأمل التعديل في الكود بشكل لايؤثر على الخلايا الاخرى

وشكرا

[سراب الليل]

جزاك الله خير

إهنئكم بمناسبة دخول رمضان و كل عام وأنتم بخير

أخواني الإعزاء لدي ملاحظات حول الكود

1- الكود لا يعمل بشكل صحيح كما ذكر سابقا من قبل ...

2- أريد لو سمحت اللون تحت الرقم 6 بعد تغيرها من البرمجة

[محمد طاهر عرفه]

لتعميم الكود علي كامل العمود A

فى ورقة العمل

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 1 Then Exit Sub

If Range("a" & Target.Row).Value <= 6 Then
  Range("a" & Target.Row).Offset(0, 1).Range("A1:E1").Interior.ColorIndex = 6
Else
  Range("a" & Target.Row).Offset(0, 1).Range("A1:E1").Interior.ColorIndex = 0
End If

End Sub

اذا كتبت اي رقم اقل او يساوي 6 فى العمود رقم A فى اي خلية سيتم تلوين خمسة خلايا مجاورة و اذا كتبت اكثر من 6 سيتم ازالة اللون و يمكنك التحكم فى المعيار من السطر

If Range("a" & Target.Row).Value <= 6 Then

بان تجعله

= 7

<7

>=10

كما يناسبك

كما يوجد حل آخر فى ورقة العمل الثامية باستخدام التنسيق الشرطي

و لكن يعيبه انك اذا تركت الخلية خالية ستتلون الخلايا المجاورة كانها اقل من 6

ColorcellsBasedonVal.zip

[علي السحيب]

السلام عليكم،

آسف على التأخر في الرد وذلك لإنشغالي خلال الأيام السابقة..

بالنسبة للكود السابق .. فأنا أتفق معك بأنه غير عملي إطلاقاً .. وقت قمت بإستبداله بهذا الكود والذي أرجوا أن يلبي رغبتك.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1").Value = 1 And Target.Address <> "$A$1" Then
Range("B2:F2").Interior.ColorIndex = 6
ElseIf Range("A1").Value > 1 And Target.Address <> "$A$1" Then
Range("B2:F2").Interior.ColorIndex = xlNone
End If
End Sub

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

شكراً،

___________________________________________1.rar

[SPHINX]

الاستاذ علي السحيب

لقد استخدمت الكود التالي

'Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'If Range("S5").Value > 179 And Target.Address <> "$s$5" Then

'Range("A5:R5").Interior.ColorIndex = 6

'ElseIf Range("S5").Value < 180 And Target.Address <> "$s$5" Then

'Range("A5:R5").Interior.ColorIndex = xlNone

'End If

'End Sub

السؤال كيف اعمم هذا الكود على جميع الخلايا في العمود "s"

[SPHINX]

الاستاذ محمد طاهر

لقد استخدمت الكود التالي

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 30 Then Exit Sub

If Range("AD" & Target.Row).Value >= 90 Then

Range("AD" & Target.Row).Offset(-3, -29).Range("A4:AC4").Interior.ColorIndex = 6

Else

Range("AD" & Target.Row).Offset(-3, -29).Range("A4:AC4").Interior.ColorIndex = 0

End If

End Sub

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

اي عندما يكون ناتج المعادلة اكبر من او يساوي 90 يتم التظليل باللون الاصفر ولكن اذا تغير ناتج المعادلة ليصبح 5 او 10 لا يرجع اللون

[فيصل الحربي]

السلام عليكم

حسنا أكواد جميله ججدا

لكن اذا رغبت بتغيير لون الخلفيه بمجرد تنشيط الخليه

واذا خرجت منها الى خليه اخرى يرجع اللون الافتراضي