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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة YasserKhalil هل يمكن تغيير مسار الصورة فى الحفظ ونقلها للمسار الجديد اكسيل اسئله واجابات


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





البحث عن التكرار وترتيب البيانات بناءً على الأكواد المتشابهة Find Duplicates Sort By Similar IDs

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



15-11-2019 06:44 مساء
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10461
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 539
قوة السمعة : 36712
عدد الإجابات: 257
 offline 

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

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


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

WI7FG_001

إليكم الكود المستخدم
Sub Find_Duplicates_Sort_By_Similar_IDs()
    Dim x, ws As Worksheet, sh As Worksheet, i As Long
    
    Application.ScreenUpdating = False
        Set ws = ThisWorkbook.Worksheets(1)
        Set sh = ThisWorkbook.Worksheets(2)
            
        With sh
            ws.Cells.Copy .Cells(1)
            .Range("D1").Value = "Helper"
            For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
                x = Application.Match(.Cells(i, 1), .Columns(8), 0)
                If Not IsError(x) Then
                    .Cells(i, 4).Value = x
                Else
                    .Cells(i, 4).Value = "TEMP " & Format(i, "000")
                End If
            Next i
                
            .Range("A1").CurrentRegion.Sort Key1:=.Range("D4"), Order1:=xlAscending, Header:=xlYes
            .Columns(4).ClearContents
        End With
    Application.ScreenUpdating = True
End Sub


وأخيراً إليكم الملف المرفق

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

أخوكم في الله / ياسر خليل أبو البراء
 
 


15-11-2019 06:55 مساء
مشاهدة مشاركة منفردة [1]
azzeddine
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 01-11-2018
رقم العضوية : 8587
المشاركات : 37
الجنس : ذكر
تاريخ الميلاد : 9-1-1978
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 37
 offline 
look/images/icons/i1.gif البحث عن التكرار وترتيب البيانات بناءً على الأكواد المتشابهة Find Duplicates Sort By Similar IDs
بارك الله فيك استاذي الفاضل
لكن عندي استفسار بسيط
قمت بتعيين زر للماكرو بمجرد الضغط عليه يتم اضافته لشيت 2
كيف يمكن تعطيله من شيت النتيجة
وشكرا جزيلا لحضرتك

15-11-2019 07:02 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10461
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 539
قوة السمعة : 36712
عدد الإجابات: 257
 offline 
look/images/icons/i1.gif البحث عن التكرار وترتيب البيانات بناءً على الأكواد المتشابهة Find Duplicates Sort By Similar IDs
يمكن تنفيذ الكود باستخدام Alt + F8 واختيار اسم الماكرو ثم انقر Run


أو إضافة سطر في الكود لحذف زر الأمر إذا كان لابد منه

15-11-2019 07:53 مساء
مشاهدة مشاركة منفردة [3]
محمد خضير
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 15-11-2019
رقم العضوية : 15890
المشاركات : 1
الجنس : ذكر
تاريخ الميلاد : 19-1-1971
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 12
 offline 
look/images/icons/i1.gif البحث عن التكرار وترتيب البيانات بناءً على الأكواد المتشابهة Find Duplicates Sort By Similar IDs
اولا جزاك الله خيرا
ممكن شرح الكود
laugh

16-11-2019 12:36 صباحا
مشاهدة مشاركة منفردة [4]
ali mohamed ali
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1772
الدولة : مصر
الجنس : ذكر
الدعوات : 2
يتابعهم : 0
يتابعونه : 68
قوة السمعة : 9642
عدد الإجابات: 47
 offline 
look/images/icons/i1.gif البحث عن التكرار وترتيب البيانات بناءً على الأكواد المتشابهة Find Duplicates Sort By Similar IDs
بارك الله فيك استاذ ياسر وزادك الله من فضله
توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

16-11-2019 08:02 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10461
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 539
قوة السمعة : 36712
عدد الإجابات: 257
 offline 
look/images/icons/i1.gif البحث عن التكرار وترتيب البيانات بناءً على الأكواد المتشابهة Find Duplicates Sort By Similar IDs
بارك الله فيكم ومشكور على مروركم العطر
الكود فكرته أنني أقوم بنسخ خلايا ورقة العمل (البيانات) لورقة العمل الثانية (النتائج)
ثم باستخدام الكود يتم التعامل مع العمود الرابع ووضع قيم وعمل مطابقة للبحث بناءً على الرقم الكودي بحيث يظهر النتائج للصفوف من الجدول الثاني بالترتيب أما في حالة عدم وجود تطابق يتم وضع القيمة TEMP يليها رقم الصف وذلك للحفاظ على نفس ترتيب الأسماء الغير موجودة في الجدول الثاني ، ثم يتم ترتيب الجدول الأول بناءً على العمود المساعد ثم أخيراً يتم مسح محتويات العمود

31-05-2020 06:36 صباحا
مشاهدة مشاركة منفردة [6]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 812
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 4330
عدد الإجابات: 113
 offline 
look/images/icons/i1.gif البحث عن التكرار وترتيب البيانات بناءً على الأكواد المتشابهة Find Duplicates Sort By Similar IDs
جزاكم الله خيرا وجعله الله في ميزان حسناتكم يوم القيامه




الكلمات الدلالية
بناءً ، البيانات ، وترتيب ، التكرار ، البحث ، الأكواد ، المتشابهة ، Find ، Duplicates ، Sort ، Similar ،


 










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

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