أبو عبد النور قام بنشر مايو 24, 2007 مشاركة قام بنشر مايو 24, 2007 السلام عليكم، اريد ان تاحصل على التالي : لدي جدولان في الورقة. الجدول الاول : - تلوين السطر النشط بالاصفر من 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 رابط هذا التعليق شارك More sharing options...
وائل يونس سلامي قام بنشر مايو 24, 2007 مشاركة قام بنشر مايو 24, 2007 أخي الكريم APT يمكنك ذلك بشكل أبسط وهو التنسيق الشرطي ونسخ التنسيق إلى أي عدد من السطور كما تريد أنظر الملف المرفق أرجو أن يكون هو المطلوب تمنياتي لك بالتوفيق أخوك وائل سلامي color.rar رابط هذا التعليق شارك More sharing options...
أبو عبد النور قام بنشر مايو 24, 2007 الكاتب مشاركة قام بنشر مايو 24, 2007 (معدل) أخي الكريم APT يمكنك ذلك بشكل أبسط وهو التنسيق الشرطي ونسخ التنسيق إلى أي عدد من السطور كما تريد أنظر الملف المرفق أرجو أن يكون هو المطلوب تمنياتي لك بالتوفيق أخوك وائل سلامي نعم هذا يحقق الغرض. بارك الله فيك أخي وائل. ولكن كيف أوسع نطاق تطبيق الشرط ؟ ثم باستعمال الـ VBA ، كيف يمكن التعديل على الكود أعلاه لتحقيق الغرض ؟ شكراً. تم تعديل مايو 24, 2007 بواسطه apt رابط هذا التعليق شارك More sharing options...
وائل يونس سلامي قام بنشر مايو 24, 2007 مشاركة قام بنشر مايو 24, 2007 يمكنك ذلك بنسخ التنسيق إلى أي مجال تريد ومن ناحية ال VBA أعذرني فلست خبيرا جدا به وأنا واثق أن الأخوة الرائعين في هذا المنتدى لن يقصرو وأنا بانتظار ردهم لأتعلم ذلك تمنياتي لك بالتوفيق رابط هذا التعليق شارك More sharing options...
أبو عبد النور قام بنشر مايو 25, 2007 الكاتب مشاركة قام بنشر مايو 25, 2007 يمكنك ذلك بنسخ التنسيق إلى أي مجال تريد ومن ناحية ال VBA أعذرني فلست خبيرا جدا به وأنا واثق أن الأخوة الرائعين في هذا المنتدى لن يقصرو وأنا بانتظار ردهم لأتعلم ذلك تمنياتي لك بالتوفيق كيف يمكن نسخ التنسيق الى اي مجال ؟ بانتظار اصحاب الخبرة في الـ VBA. رابط هذا التعليق شارك More sharing options...
وائل يونس سلامي قام بنشر مايو 25, 2007 مشاركة قام بنشر مايو 25, 2007 أخي الكريم أرسل لي ملف وحدد لي ما تريد بالضبط وسأبذل ما بوسعي لتقديم المساعده أرجو من الله أن أكون قادرا على ذلك رابط هذا التعليق شارك More sharing options...
أبو عبد النور قام بنشر مايو 25, 2007 الكاتب مشاركة قام بنشر مايو 25, 2007 الملف في المرفقات. عدل عليه ما استطعت. وفقك الله. LigneColor.rar رابط هذا التعليق شارك More sharing options...
أبو عبد النور قام بنشر مايو 28, 2007 الكاتب مشاركة قام بنشر مايو 28, 2007 هل من جديد ؟ بارك الله فيكم. رابط هذا التعليق شارك More sharing options...
نزار سليمان عيد قام بنشر مايو 28, 2007 مشاركة قام بنشر مايو 28, 2007 اخي APT السلام عليكم ورحمة الله انظر المرفق واي استفسار اعلمني تحياتي للجميع LigneColor.rar رابط هذا التعليق شارك More sharing options...
وائل يونس سلامي قام بنشر مايو 28, 2007 مشاركة قام بنشر مايو 28, 2007 أستاذي الكريم نزار كنت بانتظار هذا الرد وهذا الحل بشوق شكرا جزيلا لك بارك الله فيك دائما تتحفنا بالمفيد لو بقدر لبوس راسك (: رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان