تلوين سطر على حسب القيمة المدخلة

[أبو عبد النور]

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

اريد ان تاحصل على التالي :

لدي جدولان في الورقة.

الجدول الاول :

- تلوين السطر النشط بالاصفر من A الى F إذا كانت القيمة المدخلة في العمود C هي "v" أو "V"

- تلوين السطر النشط بالبرتقالي من A الى F إذا كانت القيمة المدخلة في العمود C هي "r" أو "R"

الجدول الثاني :

- تلوين السطر النشط بالاصفر من G الى L إذا كانت القيمة المدخلة في العمود I هي "v" أو "V"

- تلوين السطر النشط بالبرتقالي من G الى L إذا كانت القيمة المدخلة في العمود I هي "r" أو "R"

لقد كتبت هذا الكود :

Private Sub Worksheet_Change(ByVal Target As Range) 
    Application.EnableEvents = False 
    If Intersect(Target, Range("C2:C" & 
Range("C65536").End(xlUp).Row)) Is Nothing Then 
        If Intersect(Target, Range("I3:I" & 
Range("I65536").End(xlUp).Row)) Is Nothing Then Exit Sub 
    End If 
    On Error GoTo Fin 


    'Premier tableau 
    If Target.Column = 3 And Target.Count = 1 Then 
        Select Case LCase(Target.Text) 
        Case Is = "v" 
            Range("A" & Target.Row & ":F" & 
Target.Row).Interior.ColorIndex = 19 
        Case Is = "r" 
            Range("A" & Target.Row & ":F" & 
Target.Row).Interior.ColorIndex = 44 
        Case Else 
            Range("A" & Target.Row & ":F" & 
Target.Row).Interior.ColorIndex = xlNone 
        End Select 
    End If 


    'Deuxieme tableau 
    If Target.Column = 9 And Target.Count = 1 Then 
        Select Case LCase(Target.Text) 
        Case Is = "v" 
            Range("G" & Target.Row & ":M" & 
Target.Row).Interior.ColorIndex = 19 
        Case Is = "r" 
            Range("G" & Target.Row & ":M" & 
Target.Row).Interior.ColorIndex = 44 
        Case Else 
            Range("G" & Target.Row & ":M" & 
Target.Row).Interior.ColorIndex = xlNone 
        End Select 
    End If 
    Application.EnableEvents = True 
Fin: 
End Sub

[وائل يونس سلامي]

أخي الكريم APT

يمكنك ذلك بشكل أبسط وهو التنسيق الشرطي ونسخ التنسيق إلى أي عدد من السطور كما تريد

أنظر الملف المرفق أرجو أن يكون هو المطلوب تمنياتي لك بالتوفيق

أخوك وائل سلامي

color.rar

[أبو عبد النور]

أخي الكريم APT

يمكنك ذلك بشكل أبسط وهو التنسيق الشرطي ونسخ التنسيق إلى أي عدد من السطور كما تريد

أنظر الملف المرفق أرجو أن يكون هو المطلوب تمنياتي لك بالتوفيق

أخوك وائل سلامي

نعم هذا يحقق الغرض.

بارك الله فيك أخي وائل.

ولكن كيف أوسع نطاق تطبيق الشرط ؟

ثم باستعمال الـ VBA ، كيف يمكن التعديل على الكود أعلاه لتحقيق الغرض ؟

شكراً.

تم تعديل مايو 24, 2007 بواسطه apt

[وائل يونس سلامي]

يمكنك ذلك بنسخ التنسيق إلى أي مجال تريد

ومن ناحية ال VBA أعذرني فلست خبيرا جدا به

وأنا واثق أن الأخوة الرائعين في هذا المنتدى لن يقصرو

وأنا بانتظار ردهم لأتعلم ذلك تمنياتي لك بالتوفيق

[أبو عبد النور]

يمكنك ذلك بنسخ التنسيق إلى أي مجال تريد

ومن ناحية ال VBA أعذرني فلست خبيرا جدا به

وأنا واثق أن الأخوة الرائعين في هذا المنتدى لن يقصرو

وأنا بانتظار ردهم لأتعلم ذلك تمنياتي لك بالتوفيق

كيف يمكن نسخ التنسيق الى اي مجال ؟

بانتظار اصحاب الخبرة في الـ VBA.

[وائل يونس سلامي]

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

وسأبذل ما بوسعي لتقديم المساعده أرجو من الله أن أكون قادرا على ذلك

[أبو عبد النور]

الملف في المرفقات.

عدل عليه ما استطعت.

وفقك الله.

LigneColor.rar

[أبو عبد النور]

هل من جديد ؟

بارك الله فيكم.

[نزار سليمان عيد]

اخي APT

السلام عليكم ورحمة الله

انظر المرفق

واي استفسار اعلمني

تحياتي للجميع

LigneColor.rar

[وائل يونس سلامي]

أستاذي الكريم نزار

كنت بانتظار هذا الرد وهذا الحل بشوق

شكرا جزيلا لك بارك الله فيك دائما تتحفنا بالمفيد

لو بقدر لبوس راسك (: