تلوين المتشابه

[ناصر سعيد]

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

قبل كل شيء يجزيكم الله كل خير وبعد :

عندي ملف به عمودان بكل منهما ارقام عشوائيه

المطلوب هو تلوين المتشابه من العمودين بلون واحد

مع ملحوظه : ان الرقم في العمود الاول فيه تكرار  وايضا يوجد تكرار في العمود التاني

فلو كان عدد التكرار لرقم مثلا 5 مرات

اذن سيتم تلوين من العمود التاني نفس الرقم وبنفس العدد

والملف به المزيد من التوضيح

تلوين المتشابه.rar

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

جرب هذا الكود

Sub talween()
Dim t As Integer
 t = 4
 Range("a3:b15").Interior.ColorIndex = xlNo
 For i = 1 To Range("a3:b15").Count
  
            For k = 1 To Range("a3:b15").Count
                   If Application.CountIf(Range("a3:b15"), Range("a3:b15").Cells(i)) = 1 Then
                       Range("a3:b15").Cells(i).Interior.ColorIndex = xlNo
                       Exit For
                   End If
               If Range("a3:b14").Cells(i) = Range("a3:b15").Cells(k) Then
                       Range("a3:b15").Cells(k).Interior.ColorIndex = t
                End If
            Next
      t = t + 1
   Next

End Sub

 

[ناصر سعيد]

استاذ سليم

الهي ربنا يحفظك ويصونك بحق الله ... جاري التجربه

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

 

استاذ سليم

الهي ربنا يحفظك ويصونك بحق الله ... جاري التجربه

تم التعديل على الماكرو بحيث لا يتعاطى مع القيم غير المكررة

[ناصر سعيد]

لو تكرمت خليك معايا 5 دقايق لتجربه الملف .. بعد اذنك

اخي الكريم

الرقم واحد في العمود الاول

لايوجد له تكرار في العمود التاني ولذلك من المفروض لايتم تلوينه

مازلت انا في مرحله تجربه الملف

 

الرقم 2 في العمود الاول مكرر مرتان 

ونفس الرقم اللي هو ال2 مكرر في العمود التاني مكرر 4 مرات المفروض يتم تلوين الرقم ال2 مرتان فقط  في العمود الاول ومرتان فقط في العمود التاني

[ياسر خليل أبو البراء]

الأفضل إرفاق النتائج المتوقعة ليسهل فهم المطلوب .. وهل التلوين لكل رقم بلون مختلف أم كل التكرارات تتم بنفس اللون؟

[ناصر سعيد]

استاذ ياسر  .. جزاكم الله خيرا

تم ارفاق النتائج المتوقعه في الملف المرفق بالمشاركه الاولى لي

جزاك الله خيرا

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

 

لو تكرمت خليك معايا 5 دقايق لتجربه الملف .. بعد اذنك

اخي الكريم

الرقم واحد في العمود الاول

لايوجد له تكرار في العمود التاني ولذلك من المفروض لايتم تلوينه

مازلت انا في مرحله تجربه الملف

 

الرقم 2 في العمود الاول مكرر مرتان 

ونفس الرقم اللي هو ال2 مكرر في العمود التاني مكرر 4 مرات المفروض يتم تلوين الرقم ال2 مرتان فقط  في العمود الاول ومرتان فقط في العمود التاني

تم تعديل الماكرو (انظر الى الاقتياس الاول)و استبدل الماكرو بالجديد

[ياسر خليل أبو البراء]

إذاً تقصد أن يتم تلوين المكرر الأول في العمود الأول مع نفس الرقم المكرر في العمود الثاني

ثم يتم تلوين المكرر الثاني في العمود الأول مع نفس الرقم المكرر في العمود الثاني وهكذا ..إلى أن لا يكون هناك مكرر في العمود الأول أي تنتهي الأرقام المكررة في العمود الأول

وهكذا الأمر مع كل الأرقام

ويتم التلوين بلون مختلف لكل تكرار ...

أكد ما فهمته إذا ما كان صحيحاً أم لا

[ناصر سعيد]

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

ثانيا لو الرقم في العمود الاول موجود مرتان مثلا وفي العمود التاني موجود 6 مرات مثلا

نلون الرقم مرتان فقط في العمود الاو ل ومرتان في العمود التاني ويتبقى الرقم 4 مرات مكرر لكن غير ملون

استاذ سليم

ستتم التجربه

=============================================

لم الحظ اي تغيير استاذ سليم

============================

استاذ ياسر

نعم صح تاكيد ماتفضلت به من قول

[ناصر سعيد]

الملون باللون الابيض ليس مكرر بالعمود الاخر

[ناصر سعيد]

للرفع رفع الله مقداركم

[ناصر سعيد]

جاءني الحل من الاستاذ المبجل رجب جاويش

حفظه الله ورعاه

 

تلوين المتشابه بالعدد.rar

وارسلت الملف هنا ليكون مرجعا لمن يهمه

[ناصر سعيد]

تعديل بالمسح.rar