عبدالله الحسان قام بنشر نوفمبر 29, 2015 مشاركة قام بنشر نوفمبر 29, 2015 السلام عليكم أرجو المساعدة في معادلة أو كود للتنسيق الشرطي عند تكرار صف يحتوي بالطبع على نفس القيم كما في الملف المرفق وشكرا تنسيق شرطي للصف.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر نوفمبر 29, 2015 مشاركة قام بنشر نوفمبر 29, 2015 ربما يكون هذا ما تريد تنسيق شرطي للصف salim.zip 1 رابط هذا التعليق شارك More sharing options...
ابو الاب قام بنشر نوفمبر 29, 2015 مشاركة قام بنشر نوفمبر 29, 2015 (معدل) اتمنى ان يكون المطلوب في الملف المرفق تنسيق شرطي للصف.rar تم تعديل نوفمبر 29, 2015 بواسطه ابو الاب 1 رابط هذا التعليق شارك More sharing options...
عبدالله الحسان قام بنشر نوفمبر 29, 2015 الكاتب مشاركة قام بنشر نوفمبر 29, 2015 السلام عليكم أرجو المساعدة في معادلة أو كود للتنسيق الشرطي عند تكرار صف يحتوي بالطبع على نفس القيم كما في الملف المرفق وشكرا تنسيق شرطي للصف.rar رابط هذا التعليق شارك More sharing options...
عبدالله الحسان قام بنشر نوفمبر 29, 2015 الكاتب مشاركة قام بنشر نوفمبر 29, 2015 شكرا للأخوان سليم حاصبيا وابو الاب والسؤال للأخ سليم في حالة التكرار هل يمكن تفير ألوان التنسيق الشرطي لتصبح متعددة بدلا من لون واحد فقط 2 hours ago, سليم حاصبيا said: ربما يكون هذا ما تريد تنسيق شرطي للصف salim.zip في حالة التكرار هل يمكن تفير ألوان التنسيق الشرطي لتصبح متعددة بدلا من لون واحد فقط رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر نوفمبر 29, 2015 مشاركة قام بنشر نوفمبر 29, 2015 جرب 2 تنسيق شرطي للصف.rar رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر نوفمبر 29, 2015 مشاركة قام بنشر نوفمبر 29, 2015 أخى عبدالله هذا الموضوع مكرر أرجو منك ومن كل الزملاء الانتباه لهذا الأمر حتى لا يضيع وقت وجهد الأعضاء سدى انظر الى الموضوع التانى هتلاقى مشاركة لى هناك أرجو أن تكون وصلت الفكرة 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر نوفمبر 29, 2015 مشاركة قام بنشر نوفمبر 29, 2015 جرب هذا الكود 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 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر نوفمبر 30, 2015 مشاركة قام بنشر نوفمبر 30, 2015 تعديل على الكود ليظهر كل مجموعة بلون واحد 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 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.