مطلوب تنسيق شرطي للصف عند تكرار نفس القيم

[عبدالله الحسان]

السلام عليكم

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

وشكرا

 

 

 

تنسيق شرطي للصف.rar

[سليم حاصبيا]

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

 

تنسيق شرطي للصف salim.zip

[ابو الاب]

اتمنى ان يكون المطلوب في الملف المرفق

تنسيق شرطي للصف.rar

تم تعديل نوفمبر 29, 2015 بواسطه ابو الاب

[عبدالله الحسان]

السلام عليكم

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

وشكرا

 

 

 

تنسيق شرطي للصف.rar

[عبدالله الحسان]

 شكرا للأخوان سليم حاصبيا وابو الاب

والسؤال للأخ سليم 

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

2 hours ago, سليم حاصبيا said:

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

 

تنسيق شرطي للصف salim.zip

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

[مختار حسين محمود]

جرب

2 تنسيق شرطي للصف.rar

[مختار حسين محمود]

أخى عبدالله هذا الموضوع مكرر 

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

انظر الى الموضوع التانى هتلاقى مشاركة لى هناك    أرجو أن تكون وصلت الفكرة

 

[سليم حاصبيا]

جرب هذا الكود

Sub cond()
 Dim lr As Integer
  lr = Cells(Rows.Count, 1).End(3).Row
  Range("a8:c" & lr).Interior.ColorIndex = xlNo
   For i = 8 To lr
    For j = i + 1 To lr

On Error Resume Next

      If Range("a" & i) & Range("b" & i) & Range("c" & i) = Range("a" & j) & Range("b" & j) & Range("c" & j) Then
       Range("a" & i).Resize(1, 3).Interior.ColorIndex = i
       Range("a" & j).Resize(1, 3).Interior.ColorIndex = i
       End If
    Next
    Next
 

End Sub

 

[سليم حاصبيا]

تعديل على الكود ليظهر كل مجموعة بلون واحد

Sub cond()
 Dim lr As Integer
  lr = Cells(Rows.Count, 1).End(3).Row
  Range("a1:c" & lr).Interior.ColorIndex = xlNo
  k = 3
   For i = 1 To lr
    If Range("a" & i).Interior.ColorIndex <> xlNo Then GoTo 1
       For j = i + 1 To lr
    


      If Range("a" & i) & Range("b" & i) & Range("c" & i) = Range("a" & j) & Range("b" & j) & Range("c" & j) Then
       Range("a" & i).Resize(1, 3).Interior.ColorIndex = k
       Range("a" & j).Resize(1, 3).Interior.ColorIndex = k
       End If
    Next
1:
    k = k + 1
    Next
 

End Sub