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

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


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



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





مقارنة عمودين بالتفصيل Compare Two Lists In Detail

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



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

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

إخواني وأحبابي في الله

HOroc_Logo

أقدم لكم كود غاية في الروعة وهو كود مفيد جداً .. الكود سيقوم بعمل مقارنة بين عمودين ، ونتائج الكود ستكون بالتفصيل ، حيث يقوم الكود على سبيل المثال بمقارنة العمود الأول والعمود الثاني كما بالشكل التالي
qcc8W_001

ثم يقوم الكود باستخراج النتائج بهذا الشكل
--------------------------

      ** كل القيم الموجودة في العمودين بدون تكرار (في العمود الثالث)

     ** القيم الموجودة في القائمة الأولى وليس موجود في القائمة الثانية (في العمود الرابع)

    ** القيم الموجودة في القائمة الثانية وليس موجود في القائمة الأولى (في العمود الخامس)

   ** القيم الموجودة في كلا العمودين أي القيم المشتركة فقط (في العمود السادس)

ستكون النتائج بهذا الشكل
xGfRu_002

وأخيراً إليكم الكود المستخدم لتنفيذ عملية المقارنة بين القائميتن
Sub Compare_Two_Lists()
    Dim list1           As Variant
    Dim list2           As Variant
    Dim list3()         As String
    Dim list4()         As String
    Dim list5()         As String
    Dim arrBoth()       As String
    Dim size1           As Long
    Dim size2           As Long
    Dim pointer3        As Long
    Dim pointer4        As Long
    Dim pointer5        As Long
    Dim pointBoth       As Long
    Dim i               As Long
    
    Const iResult       As Long = 2
    
    With Range("A:A")
        list1 = Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp)).Value
    End With
    With Range("B:B")
        list2 = Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp)).Value
    End With
    size1 = UBound(list1, 1)
    size2 = UBound(list2, 1)

    ReDim list3(1 To size1 + size2, 1 To 1)
    ReDim list4(1 To size1, 1 To 1)
    ReDim list5(1 To size2, 1 To 1)
    ReDim arrBoth(1 To size1 + size2, 1 To 1)

    For i = 1 To size1
        pointer3 = pointer3 + 1
        list3(pointer3, 1) = list1(i, 1)

        If IsNumeric(Application.Match(list1(i, 1), list2, 0)) Then
            pointBoth = pointBoth + 1
            arrBoth(pointBoth, 1) = list1(i, 1)
        Else
            pointer4 = pointer4 + 1
            list4(pointer4, 1) = list1(i, 1)
        End If
    Next i

    For i = 1 To size2
        If IsError(Application.Match(list2(i, 1), list1, 0)) Then
            pointer3 = pointer3 + 1
            list3(pointer3, 1) = list2(i, 1)

            pointer5 = pointer5 + 1
            list5(pointer5, 1) = list2(i, 1)
        End If
    Next i

    Application.ScreenUpdating = False
        With Range("C:C").Resize(size1 + size2, 1).Offset(iResult - 1, 0)
            .Value = list3
            .Sort key1:=.Cells(1, 1), order1:=xlAscending, Header:=xlYes
        End With
    
        With Range("D:D").Resize(size1, 1).Offset(iResult - 1, 0)
            .Value = list4
            .Sort key1:=.Cells(1, 1), order1:=xlAscending, Header:=xlYes
        End With
    
        With Range("E:E").Resize(size2, 1).Offset(iResult - 1, 0)
            .Value = list5
            .Sort key1:=.Cells(1, 1), order1:=xlAscending, Header:=xlYes
        End With
    
        With Range("F:F").Resize(size1 + size2, 1).Offset(iResult - 1, 0)
            .Value = arrBoth
            .Sort key1:=.Cells(1, 1), order1:=xlAscending, Header:=xlYes
        End With
    Application.ScreenUpdating = True
End Sub



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

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


أثارت هذه المشاركة إعجاب: Yasser Elaraby، نصر الإيمان، abdulwahed catran، ali mohamed ali، محمد حمود، ahmed sebaee، hassona229،





02-09-2019 07:35 صباحا
مشاهدة مشاركة منفردة [1]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1194
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 25
يتابعهم : 2
يتابعونه : 600
قوة السمعة : 8654
الاعجاب : 464
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif مقارنة عمودين بالتفصيل Compare Two Lists In Detail
جزاكم الله خيرا ابو البراء
10635-10


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


توقيع :Yasser Elaraby
663013020



02-09-2019 07:42 صباحا
مشاهدة مشاركة منفردة [2]
Kamel meraghni
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 182
المشاركات : 105
الجنس : ذكر
تاريخ الميلاد : 23-10-1984
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 637
الاعجاب : 8
 offline 
look/images/icons/i1.gif مقارنة عمودين بالتفصيل Compare Two Lists In Detail
بارك الله فيك

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


توقيع :Kamel meraghni

الحمد لله وكفى والصلاة والسلام على الحبيب المصطفى



142




02-09-2019 07:49 صباحا
مشاهدة مشاركة منفردة [3]
نصر الإيمان
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 312
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 3
قوة السمعة : 719
الاعجاب : 73
 offline 
look/images/icons/i1.gif مقارنة عمودين بالتفصيل Compare Two Lists In Detail
بارك الله في صحتك ومالك وعمرك واولادك استاذ ياسر
جعله الله بميزان حسناتك
قمة الروعه3

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




02-09-2019 08:44 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif مقارنة عمودين بالتفصيل Compare Two Lists In Detail
بارك الله فيكم إخواني وأحبابي في الله وجزيتم خيراً على كلماتكم الطيبة





02-09-2019 09:43 صباحا
مشاهدة مشاركة منفردة [5]
صلاح الصغير
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 205
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 157
الاعجاب : 50
 offline 
look/images/icons/i1.gif مقارنة عمودين بالتفصيل Compare Two Lists In Detail
استاذ / ياسر خليل
اقسم بالله انت اكثر من رائع
و الله العظيم موضوع بجد هيفيد ناس كتير

جزاك الله خير

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




02-09-2019 09:54 صباحا
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif مقارنة عمودين بالتفصيل Compare Two Lists In Detail
بارك الله فيك أخي العزيز صلاح ومشكور على كلماتك المشجعة

أثارت هذه المشاركة إعجاب: صلاح الصغير،




02-09-2019 10:26 صباحا
مشاهدة مشاركة منفردة [7]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1210
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 52
قوة السمعة : 5709
الاعجاب : 711
 offline 
look/images/icons/i1.gif مقارنة عمودين بالتفصيل Compare Two Lists In Detail
بارك الله فيك وجزاك الله كل خير

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


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


02-09-2019 11:16 صباحا
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif مقارنة عمودين بالتفصيل Compare Two Lists In Detail
بارك الله فيك أخي العزيز علي ومشكور على مرورك الكريم





02-09-2019 12:39 مساء
مشاهدة مشاركة منفردة [9]
أباالحسن
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 286
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
يتابعهم : 4
يتابعونه : 12
قوة السمعة : 547
الاعجاب : 20
 offline 
look/images/icons/i1.gif مقارنة عمودين بالتفصيل Compare Two Lists In Detail
جزاكم الله خيرا

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




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

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




08-09-2019 11:04 مساء
مشاهدة مشاركة منفردة [11]
hassona229
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 67
الجنس : ذكر
تاريخ الميلاد : 1-1-1989
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 112
الاعجاب : 45
 offline 
look/images/icons/i1.gif مقارنة عمودين بالتفصيل Compare Two Lists In Detail
جزاكم الله خيرا اخى الكريم
وجعل هذا العمل في ميزان حسناتكم 

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




09-09-2019 07:30 صباحا
مشاهدة مشاركة منفردة [12]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif مقارنة عمودين بالتفصيل Compare Two Lists In Detail
وجزيت خيراً أخي العزيز حسونة بمثل ما دعوت لي وزيادة 142







الكلمات الدلالية
Detail ، Lists ، Compare ، بالتفصيل ، عودين ، مقارنة ،


 







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



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

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