أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil مع أكاديمية الصقر اخفي أكوادك وعيش حياتك EvilClippy VBA Project Unviewable Protection اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





تلوين القيم المكررة في عمود بألوان مختلفة Color Duplicates In Specific Column

السلام عليكم ورحمة الله وبركاته أقدم لكم كود يقوم بتلوين القيم المكررة في عمود بألون مختلفة ، أي أن كل قيمة مكررة يتم ت ..



29-08-2019 07:33 صباحا
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 

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

أقدم لكم كود يقوم بتلوين القيم المكررة في عمود بألون مختلفة ، أي أن كل قيمة مكررة يتم تلوينها بلون مختلف عن القيم الأخرى ، مما يسهل استخراج القيم المكررة بمجرد النظر إلى القيم
MEttu_ColourDuplicates01

يوضع الكود في موديول عادي ، اضغط Alt + F11 من لوحة المفاتيح للذهاب لمحرر الأكواد ، ثم من قائمة Insert اختر الأمر Module لإدراج موديول عادي ثم الصق الكود التالي
Sub Color_Duplicates_In_Specific_Column()
    Dim r As Range, dic As Object, w

    Set dic = CreateObject("Scripting.Dictionary")
    dic.CompareMode = 1

    With Range("A1", Range("A" & Rows.Count).End(xlUp))
        .Interior.ColorIndex = xlNone
        For Each r In .Cells
            If Not dic.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

                dic(r.Value) = w
            Else
                w = dic(r.Value)
                r.Interior.Color = RGB(w(2)(0), w(2)(1), w(2)(2))
                If Not IsEmpty(dic(r.Value)(1)) Then dic(r.Value)(1).Interior.Color = RGB(w(2)(0), w(2)(1), w(2)(2))
                w(1) = Empty
                dic(r.Value) = w
            End If
        Next r
    End With
End Sub



لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

إعداد وتقديم / ياسر خليل أبو البراء
 
 


أثارت هذه المشاركة إعجاب: محمود ابو الدهب، مالك ماريه، نصر الإيمان، ali mohamed ali، محمد الدسوقى، hassona229،





29-08-2019 05:03 مساء
مشاهدة مشاركة منفردة [1]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1238
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 212
قوة السمعة : 4092
الاعجاب : 476
موقعي : زيارة موقعي
 Online 
look/images/icons/i1.gif تلوين القيم المكررة في عمود بألوان مختلفة Color Duplicates In Specific Column
بارك الله فيك استاذ ياسر جعله الله في ميزان حسناتك
 

أثارت هذه المشاركة إعجاب: YasserKhalil،


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب


29-08-2019 07:13 مساء
مشاهدة مشاركة منفردة [2]
نصر الإيمان
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 312
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 3
قوة السمعة : 719
الاعجاب : 73
 offline 
look/images/icons/i1.gif تلوين القيم المكررة في عمود بألوان مختلفة Color Duplicates In Specific Column
بارك الله فيك استاذ ياسر
جعله الله في ميزان حسناتك111

أثارت هذه المشاركة إعجاب: YasserKhalil،




29-08-2019 09:23 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif تلوين القيم المكررة في عمود بألوان مختلفة Color Duplicates In Specific Column
أخي الحبيب محمود .. أخي الحبيب نصر الإيمان
بارك الله فيكما وجزيتما خير الجزاء

أثارت هذه المشاركة إعجاب: محمود ابو الدهب،




30-08-2019 01:58 مساء
مشاهدة مشاركة منفردة [4]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1210
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 52
قوة السمعة : 5709
الاعجاب : 711
 offline 
look/images/icons/i1.gif تلوين القيم المكررة في عمود بألوان مختلفة Color Duplicates In Specific Column
بارك الله فيك استاذى الكريم

أثارت هذه المشاركة إعجاب: YasserKhalil،


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


30-08-2019 02:26 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif تلوين القيم المكررة في عمود بألوان مختلفة Color Duplicates In Specific Column
وبارك الله فيك أخي الحبيب علي ومشكور على متابعتك المستمرة لكل الموضوعات





30-08-2019 02:38 مساء
مشاهدة مشاركة منفردة [6]
محمد الدسوقى
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 639
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 55
يتابعهم : 9
يتابعونه : 534
قوة السمعة : 6873
الاعجاب : 246
 offline 
look/images/icons/i1.gif تلوين القيم المكررة في عمود بألوان مختلفة Color Duplicates In Specific Column
بارك الله فيك أخى الحبيب / أبو البراء
ولى ملحوظة صغيرة على الكود :
الكود يعتبر الصفوف القارغة بين البيانات أنها مكررة لذلك يعطيها لون كما لو كانت تحتوى على بيانات مكررة
بمعنى تركت 3 صفوف فارغة بين بيان وآخر عند تنفيذ الكود أعطى لهذه الصفوف الثلاثة فى العمود لون كما لو كانت تحتوى على بيانات مكررة 
-----------------------
فرجاء التوضيح هل هذا سوء فهم منى للكود أم يحتاج إلى إضافة بسيطة فى آخر الكود وهو تخطى الصفوف الفارغة

 

أثارت هذه المشاركة إعجاب: YasserKhalil، hassona229،




30-08-2019 02:45 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif تلوين القيم المكررة في عمود بألوان مختلفة Color Duplicates In Specific Column
بارك الله فيك أخي الحبيب محمد الدسوقي
يمكن بعد جملة التكرار وضع شرط لاستثناء الخلايا الفارغة وعدم التعامل معها ..
لكن يفترض أن قواعد البيانات متصلة وليست منفصلة (هذا في غالب الأحيان)

أثارت هذه المشاركة إعجاب: محمد الدسوقى، hassona229،




03-09-2019 09:43 مساء
مشاهدة مشاركة منفردة [8]
hassona229
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 67
الجنس : ذكر
تاريخ الميلاد : 1-1-1989
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 112
الاعجاب : 45
 offline 
look/images/icons/i1.gif تلوين القيم المكررة في عمود بألوان مختلفة Color Duplicates In Specific Column
جزاكم الله خيرا اخى الكريم وجعل هذا العمل في ميزان حسناتكم

أثارت هذه المشاركة إعجاب: YasserKhalil،




04-09-2019 06:39 صباحا
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif تلوين القيم المكررة في عمود بألوان مختلفة Color Duplicates In Specific Column
وجزيت خيراً أخي العزيز حسونة
وفي انتظار طرحك لموضوعات تفيد إخوانك بالمنتدى .. عارف إن عندك درر smile






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
استخراج القيم المكررة فقط Eslam Abdullah
20 959 ياسر فتحى البنا

الكلمات الدلالية
Column ، Specific ، Duplicates ، Color ، مختلفة ، بألوان ، عمود ، المكررة ، القيم ، تلوين ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 02:56 صباحا

أعلن هنا
أعلن هنا
أعلن هنا