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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
أحمد يوسف ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil كود التحديث التلقائي للارتباطات بالاكسل اكسيل اسئله واجابات


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


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





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

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



29-08-2019 07:33 صباحا
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8446
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 441
قوة السمعة : 24660
الاعجاب : 2790
 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
المشاركات : 1288
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 227
قوة السمعة : 4296
الاعجاب : 562
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif تلوين القيم المكررة في عمود بألوان مختلفة Color Duplicates In Specific Column
بارك الله فيك استاذ ياسر جعله الله في ميزان حسناتك
 

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


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

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

29-08-2019 07:13 مساء
مشاهدة مشاركة منفردة [2]
نصر الإيمان
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 332
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 3
قوة السمعة : 750
الاعجاب : 88
 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
المشاركات : 8446
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 441
قوة السمعة : 24660
الاعجاب : 2790
 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
المشاركات : 1463
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 62
قوة السمعة : 6684
الاعجاب : 1090
 Online 
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
المشاركات : 8446
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 441
قوة السمعة : 24660
الاعجاب : 2790
 offline 
look/images/icons/i1.gif تلوين القيم المكررة في عمود بألوان مختلفة Color Duplicates In Specific Column
وبارك الله فيك أخي الحبيب علي ومشكور على متابعتك المستمرة لكل الموضوعات




30-08-2019 02:38 مساء
مشاهدة مشاركة منفردة [6]
محمد الدسوقى
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 710
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 68
يتابعهم : 9
يتابعونه : 642
قوة السمعة : 7580
الاعجاب : 448
 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
المشاركات : 8446
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 441
قوة السمعة : 24660
الاعجاب : 2790
 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
المشاركات : 148
الجنس : ذكر
تاريخ الميلاد : 1-1-1989
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 328
الاعجاب : 139
 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
المشاركات : 8446
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 441
قوة السمعة : 24660
الاعجاب : 2790
 offline 
look/images/icons/i1.gif تلوين القيم المكررة في عمود بألوان مختلفة Color Duplicates In Specific Column
وجزيت خيراً أخي العزيز حسونة
وفي انتظار طرحك لموضوعات تفيد إخوانك بالمنتدى .. عارف إن عندك درر smile






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

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


 







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

الساعة الآن 09:49 مساء

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