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