نعديل الكود فى الالوان

[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

الكود السابق يقوم بتلوين الصف من a5 :r5 في حاله ما اذا كان القيمة في s5 اكبر من 179

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

[omar elhosseini]

هل تقصد تلوين الصف الخامس بالكامل ام اى عمود تقصد

[SPHINX]

لا اقصد تلوين الصفوف التي تنطبق عليها القيمة المذكوره

ولو قلت القيمه يرجع للون الاصلي

[SPHINX]

استاذ تامر

هل يجوز ذلك

[omar elhosseini]

الاخ SPHINX

شاهد المرفق

t.rar

[SPHINX]

استاذي

لك كل التقدير لمساعدتك ولكن

اعتقد انني لم استطيع اوضح المطلوب فلازالت لم يتم التعديل وذلك لانه ينطبق شرط التلوين فقط على الصف رقم 5 في العمود S

وكل ماريده ان ينطبق على كل الصفوف

فمثلا اذا كان ناتج عملية الطرح (عدد الايام ما بين تاريخين) الموجود في s5 or s8 or s8 or s9 وهكذا اكبر من او يساوي 180 يتم التظليل

ارجو ان اكون قد اوضحت طلبي

[SPHINX]

استاذي

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

 Private Sub Worksheet_Change(ByVal Target As Range)

Sheets("TRCK").Select
    ActiveWorkbook.DisplayDrawingObjects = xlAll
Dim rng As Range

    'column "v" = column 22
    'On Error GoTo leave
    If Target.Column = 22 Then
        i = Target.Row
        Set rng = Range(Cells(i, 2), Cells(i, 23))
        'if you like it better, you could use:
        Set rng = Range("a" & i & ":ad" & i)
        Select Case Target.Value
            Case "sent", "SENT", "Sent"
                rng.Interior.ColorIndex = 6
            Case "pending", "PENDING", "Pending"
                rng.Interior.ColorIndex = 3
            Case "approved", "APPROVED", "Approved"
                rng.Interior.ColorIndex = 0
            'Case "NON RET"
            '    rng.Interior.ColorIndex = 36
            'Case "DUPL CALL"
            '    rng.Interior.Color = RGB(100, 0, 0)
   End Select
End If
        If Target.Column = 30 Then
        i = Target.Row
        Set rng = Range(Cells(i, 2), Cells(i, 31))
        'if you like it better, you could use:
        Set rng = Range("a" & i & ":ad" & i)
        Select Case Target.Value
            Case Is > 179
                rng.Interior.ColorIndex = 6
           Case Is < 179
                rng.Interior.ColorIndex = 0
                
         End Select
    End If
    Application.ScreenUpdating = True
'leave:
End Sub

تم تعديل يناير 4, 2007 بواسطه SPHINX

[omar elhosseini]

الاخ SPHINX

تحياتى لك

اخى اعجبنى الموضوع فأرجو مساعدتى حتى استطيع مساعدتك

حسب ما هو موجود بالكود

الكود يحتوى على معيارين

المعيار الاول هو العمود رقم 22 اى العمود (V) ذو رأس العمود (Status)

فأذا احتوت الخلية على (SENT) كان لون سطر البيانات (أصفر)

و أذا احتوت الخلية على (PENDING) كان لون سطر البيانات (أحمر)

و أذا احتوت الخلية على (APPROVED) يكون سطر البيانات بدون لون

ام المعيار الثانى هو العمود رقم 30 اى العمود (AD) ذو رأس العمود (Days)

اذا احتوت الخلية على رقم اكبر من (179) كان لون سطر البيانات (أصفر)

و اذا احتوت الخلية على رقم أصغر من (179) يكون سطر البيانات بدون لون

مع ملاحظة نقطتين مع المعيار الثانى

1 - اذا احتوت خلية المعيار الثانى على القيمة (179) لن يتامل معها المعيار الثانى .

2 - اما اذا احتوت خلية المعيار الثانى على قيمة خلاف (179) يتم تنفيذ المعيار الثانى .

ويجب الانتباه جيدا الى انه اذا احتوت خلايا المعيار الاول والثانى على قيم ينطبق عليها شروط المعيار المناظر لها

يتم تنفيذ معيار اخر خلية منهما تم التعديل عليها بدون الالتزام بالمعيار الاخر

هذا ما يقوم به الكود فأذا كان المطلوب خلاف ذلك ارجو توضيح المطلوب

حتى ننتقل الى البند الثانى وهو البحث

تحياتى

[SPHINX]

نعم هو المطلوب

فانة عندما يتم تغير الخلية في العمود رقم 22 (V)الى Approved يكون تلوين الصف بدون لون

ولكن عندما تكون قيمة طرح التواريخ في الخلية المتواجده في العمود رقم 30 (AD) والخلية الموجدة في العامود رقم 22 (V) سوف يتم تلوين كامل الصف مرة اخرى حتى اذا كانت Approved الى اي لون نحدده

هل يوجد لديك اكواد الالوان

تم تعديل يناير 4, 2007 بواسطه SPHINX

[omar elhosseini]

الاخ SPHINX

اليك اولا ارقام الوان خلفية الخلية فى الملف المرفق

ColorNumber.rar

ثانيا المعيار الاول ليس به اى مشكله

و على ذلك حسب فهمى المشكلة فى المعيار الثانى فقط

اى انك تريد عندما يتم التغير فى خلية العمود رقم 30 (AD) بطريقة غير مباشرة يتم التلوين حسب المعيار الثانى

اذا كان هذا ما تريد

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

و يريدون ترحيل هذه البيانات المحدثة الى ورقة اخرى ثانية بثانية فور تحديثها .

وهى مشكلة مطروحة منذ فترة طويله ولا اعتقد انه تم التوصل الى حل لها

ولكننى سأحاول ايجاد بعض الحلول الذكية لها .

ولكن قبل ذلك يجب عليك ادراج المعادلات فى العمود رقم 30 (AD)

تحياتى

[SPHINX]

المعادلة بسيطه وهي

= (today()-w5)

وبعد ذلك عمل نسخ لنفس المعادلة في كامل العمود w