الرجاء المساعدة ان امكن بخصوص التنسيق الشرطي ( القيم المكرره)

[fantap]

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

 برجاء المساعده ...

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

اريد فقط   معرفة  كيفية تلوين كل عميل مكرر  بلون مميز عن العميل الاخر 

مثال  عندي  عميل  اسمه "احمد "  و عميل اخر اسمه محمد و عميل اخر اسمه مصطفي 

اريد ان الاكسيل  يلون جميع تكرارات العميل احمد  باللون الاحمر

و جميع تكرارات  العميل محمد  بلون مميز مختلف

و جميع تكرارت العميل مصطفي بلون مميز  اخر    مختلف  عن السابقين

حيث عند استخدام  التنسيق الشرطي و استخدام  تبويب القيم  المكرره  يقوم الاكسيل  بفرر القيم المكرره و اعطاء  لون  ثابث لكل  القيم المكرره

شكرا جزيلا  تم وضع مثال بسيط

مثال بسيط.xlsx

[أبوعيد]

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

اذا كان العملاء كثيرون فلا يمكن تلوين كل عميل بلون مختلف لان الالوان قليلة فلابد من تكرار بعض الالوان

لذلك سنلجا الي فكرة اخري

اذا نجحت في تطبيق الفكرة سارسلها لك هنا

جاري العمل

 

تقبل تحياتي

[أبوعيد]

تفضل جرب هذا

تلوين العملاء.xlsm

[fantap]

شكرا جزيلا  ممتاز .... و لكن يوجد عندي استفسارين

1- انا لست بمثل خبرتك استاذي الفاضل ابو عيد جزاك الله خيرا ... كيف ادرج هذه الكواد في الشيت الرئيسي الخاص بي 

2-  عند ادخال اسم جديد في الشيت و لكن لا يوجد له  تكرار لها الاسم يقوم ايضا بتلوين الخليه باللون .... ان امكن  اذا الاسم  غير  مكرر لا يقوم  بتلوين  الخليه  و تستمر علي نفس لونها الاساس بدون تلوين..

 

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

 

شكرا جزيلا مرة ثانيه

[أبوعيد]

1/ ارسل شيت متكامل مثل الذي تستخدمه في عملك حتي اعرف امرين :

أ- البيانات تبدا من اي سطر (بدون سطر العنوان)؟ 

ب- ما هو اول عمود واخر عمود في البيانات؟ 

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

وبعدها ساعطيك طريقة نقل الاكواد 

 

2/ من الصعب تترك الاسم الجديد بدون لون

لان بدون لون هو اصلا لون ابيض

تخيل انك اضفت 20 اسما جديدا مرة واحدة فقط

فكل هذه الاسماء الجديدة سيكون لونها ابيض وتبدو وكانها متطابقة لان لها نفس اللون

 

[fantap]

هل من الممكن تثبيت لون  ثابت  للاسماء بدون تكرار .... حيث استطيع ان اقم بتمييز العملاء الغير متكررين  بهذا اللون

شكرا جزيلا

[lionheart]

Sub Test()
    Dim w, d As Object, r As Range
    Set d = CreateObject("Scripting.Dictionary")
    d.CompareMode = 1
    With Range("A2", Range("A" & Rows.Count).End(xlUp))
        .Interior.colorIndex = xlNone
        For Each r In .Cells
            If Not d.Exists(r.Value) Then
                ReDim w(1 To 2)
                Set w(1) = r
                With Application.WorksheetFunction
                    w(2) = Array(.RandBetween(0, 255), .RandBetween(0, 255), .RandBetween(0, 255))
                End With
                d(r.Value) = w
            Else
                w = d(r.Value)
                r.Interior.Color = RGB(w(2)(0), w(2)(1), w(2)(2))
                If Not IsEmpty(d(r.Value)(1)) Then d(r.Value)(1).Interior.Color = RGB(w(2)(0), w(2)(1), w(2)(2))
                w(1) = Empty
                d(r.Value) = w
            End If
        Next r
    End With
End Sub

 

[fantap]

كيف استفيد  بهذ الكود ...

انا ليس لدي اي خبره قي مجال برمجة .... 

شكرا جزيلا

[lionheart]

To implement ..
With your workbook active press Alt+F11 to bring up the vba window.
In the Visual Basic window use the menu to Insert|Module
Copy and Paste the code below into the main right hand pane that opens at step 2.
Close the Visual Basic window.
Press Alt+F8 to bring up the Macro dialog
Select the macro & click ‘Run’
Your workbook will need to be saved as a macro-enabled workbook (*.xlsm)

 

Don't forget to remove the conditional formatting from the worksheet

 

[fantap]

شكرا جزيلا  مجهود رائع و مميز جدا جدا جدا  لقد قمت  بالتجربه و  هذا الكود اشتغل  بشكل ممتاز  و انا عندي استفسار  اخير من فضلك 

وهو  اريد  تفعيل هذا  الكود  علي  العمود  رقم 8 ( اسم المودع) من الشيت الخاص بي    كيف اعدل علي  هذا الكود ليفي بهذا الغرض

و في النهايه  انا مقدر مجهود المتميز جدا جدا جدا

موفق اخي الكريم  مع خالص تحياتي 

ايداعات عملاء.xlsx

[lionheart]

Just change the range in this line to suit your needs

Range("A2", Range("A" & Rows.Count).End(xlUp))

 

[fantap]

شكرا جزيلا  جاري التجربه

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

مقدر تعبك و مجهودك و حسن تعاونك

[lionheart]

Try the code with large amount of data and tell us the final result and the time that will the code take

[fantap]

تمت التجربه  اخي الكريم علي شيت  كبير مكون من 9000 صف و استغل تمام  اما  الوقت لم يستغرق سوي  لخطات قليه 

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

هل من الممكن اضافه اللوان نمط النقش اللي الالوان  حتي لا يكون فيه وجود تكررات للاوان

شكرا جزيلا اخي الكريم  موفق  باذن الله تعالي

تم تعديل فبراير 26, 2022 بواسطه fantap

[lionheart]

Can you attach the file that has 3000 rows? It is supposed not so big number of rows 

[lionheart]

Here's a file with 3000 rows

File.xlsm