مقارنة اسماء

[صلاح الصغير]

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

يوجد جدولين بهم اسماء ربما تتشابه كليا ما بين الجدول الاول و الثانى

و ربما تختلف فى الكتابة و لكن تتشابه مثل هاني أحمد و هانى احمد

و ربما تتشابه فى الاسم الاول و الثانى

اريد تقريب الاسماء فى الجدولين لسهولة المقارنة و استخراج المتشابه تماما

ارجو اكون قد اوضحت

عذرا لانى ساقوم بالمتابعة بعد غد و ليس اليوم او الغد للعطلة الرسمية

مقارنة اسماء.rar

تم تعديل ديسمبر 24, 2018 بواسطه صلاح الصغير

[صلاح الصغير]

UP

[صلاح الصغير]

UP

[ابو زين]

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

علما بان دالة ربما تفي ("";IF(C3=D3;"TRUE=

تم تعديل ديسمبر 27, 2018 بواسطه ابو زين

[صلاح الصغير]

اخى العزيز

الغرض هو ان هناك اسماء مختلفة بجدولين 

اولا : اريد ترتيب الجدولين ابجديا

ثانيا : اريد في حالة وجود اسم غير موجود له مقابل بالجدول الثانى تكون الخلية المقابلة له خالية

ثالثا : الغرض الاساسى هو البحث عن الاسماء المكررة بالجدولين و لكن بالنظر لاختلاف الهجاء او الاختلاف فى الاسم الثالث مثلا

[ابو زين]

هذا عمل الاستاذ سليم حصيبا لعله يفيدك

 

ترتيب ابجدي.xlsx

[صلاح الصغير]

في ٢٧‏/١٢‏/٢٠١٨ at 18:47, ابو زين said:

هذا عمل الاستاذ سليم حصيبا لعله يفيدك

 

ترتيب ابجدي.xlsx

اخى العزيز

الغرض هو ان هناك اسماء مختلفة بجدولين 

اولا : اريد ترتيب الجدولين ابجديا

ثانيا : اريد في حالة وجود اسم غير موجود له مقابل بالجدول الثانى تكون الخلية المقابلة له خالية

ثالثا : الغرض الاساسى هو البحث عن الاسماء المكررة بالجدولين و لكن بالنظر لاختلاف الهجاء او الاختلاف فى الاسم الثالث مثلا

اخى ابو زين

فكرة معقولة 

و لكن تفيد فى حالة وجود قائمة واحدة للاسماء

و لكن المطلوب المقارنة بين قائمتين للاسماء

[صلاح الصغير]

في ٢٧‏/١٢‏/٢٠١٨ at 18:47, ابو زين said:

هذا عمل الاستاذ سليم حصيبا لعله يفيدك

 

ترتيب ابجدي.xlsx

اخى العزيز

الغرض هو ان هناك اسماء مختلفة بجدولين 

اولا : اريد ترتيب الجدولين ابجديا

ثانيا : اريد في حالة وجود اسم غير موجود له مقابل بالجدول الثانى تكون الخلية المقابلة له خالية

ثالثا : الغرض الاساسى هو البحث عن الاسماء المكررة بالجدولين و لكن بالنظر لاختلاف الهجاء او الاختلاف فى الاسم الثالث مثلا

up

up

[صلاح الصغير]

في ٢٧‏/١٢‏/٢٠١٨ at 18:47, ابو زين said:

هذا عمل الاستاذ سليم حصيبا لعله يفيدك

 

ترتيب ابجدي.xlsx

اخى العزيز

الغرض هو ان هناك اسماء مختلفة بجدولين 

اولا : اريد ترتيب الجدولين ابجديا

ثانيا : اريد في حالة وجود اسم غير موجود له مقابل بالجدول الثانى تكون الخلية المقابلة له خالية

ثالثا : الغرض الاساسى هو البحث عن الاسماء المكررة بالجدولين و لكن بالنظر لاختلاف الهجاء او الاختلاف فى الاسم الثالث مثلا

up

[صلاح الصغير]

في ٢٧‏/١٢‏/٢٠١٨ at 18:47, ابو زين said:

هذا عمل الاستاذ سليم حصيبا لعله يفيدك

 

ترتيب ابجدي.xlsx

اخى العزيز

الغرض هو ان هناك اسماء مختلفة بجدولين 

اولا : اريد ترتيب الجدولين ابجديا

ثانيا : اريد في حالة وجود اسم غير موجود له مقابل بالجدول الثانى تكون الخلية المقابلة له خالية

ثالثا : الغرض الاساسى هو البحث عن الاسماء المكررة بالجدولين و لكن بالنظر لاختلاف الهجاء او الاختلاف فى الاسم الثالث مثلا

up

up

[صلاح الصغير]

في ٢٧‏/١٢‏/٢٠١٨ at 18:47, ابو زين said:

هذا عمل الاستاذ سليم حصيبا لعله يفيدك

 

ترتيب ابجدي.xlsx

اخى العزيز

الغرض هو ان هناك اسماء مختلفة بجدولين 

اولا : اريد ترتيب الجدولين ابجديا

ثانيا : اريد في حالة وجود اسم غير موجود له مقابل بالجدول الثانى تكون الخلية المقابلة له خالية

ثالثا : الغرض الاساسى هو البحث عن الاسماء المكررة بالجدولين و لكن بالنظر لاختلاف الهجاء او الاختلاف فى الاسم الثالث مثلا

up

وصلت لرقم قياسى من القراءات ما شاء الله 191 قراءة

يمكن الموضوع صعب بس و الله مهم جدا و يمكن يكون جديد

و شكرا 

[بن علية حاجي]

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

الأمر صعب جدا جدا بالمعادلات لعل الأكواد تفي بالغرض -بتحفظ شديد-...

معذرة أخي الكريم لعدم تقديم المساعدة...

بن علية حاجي

[صلاح الصغير]

في ٢٧‏/١٢‏/٢٠١٨ at 18:47, ابو زين said:

هذا عمل الاستاذ سليم حصيبا لعله يفيدك

 

ترتيب ابجدي.xlsx

اخى العزيز

الغرض هو ان هناك اسماء مختلفة بجدولين 

اولا : اريد ترتيب الجدولين ابجديا

ثانيا : اريد في حالة وجود اسم غير موجود له مقابل بالجدول الثانى تكون الخلية المقابلة له خالية

ثالثا : الغرض الاساسى هو البحث عن الاسماء المكررة بالجدولين و لكن بالنظر لاختلاف الهجاء او الاختلاف فى الاسم الثالث مثلا

up

شكرا للاهتمام

ا / بن علية

[ابو زين]

لعل هذا يفيدك( اضف اسمائك في القائمتين تترتب ابجديا ثم من القائمة المنسدلة يستخرج المتقارب والمتطابق)

 

match-2-columns.xlsm

تم تعديل يناير 10, 2019 بواسطه ابو زين

[ابو زين]

match-2-columns.xlsm

[ابو زين]

لعل هذا يفيدك( اضف اسمائك  تترتب ابجديا ثم من القائمة المنسدلة يستخرج المتقارب والمتطابق)

 

match-2-columns.xlsm

[صلاح الصغير]

استاذ / ابو زين

شكرا لحضرتك

هو حضرتك مشكورا قربت شوية من الحل

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

و ثانيا ظهور التطابق من دون قائمة منسدلة و ليكن ظهور المتطابق فى اعمدة منفصلة او مرتبين ابجدين فى عمود واحد

و شكرا للاهتمام

في ٢٧‏/١٢‏/٢٠١٨ at 18:47, ابو زين said:

هذا عمل الاستاذ سليم حصيبا لعله يفيدك

 

ترتيب ابجدي.xlsx

اخى العزيز

الغرض هو ان هناك اسماء مختلفة بجدولين 

اولا : اريد ترتيب الجدولين ابجديا

ثانيا : اريد في حالة وجود اسم غير موجود له مقابل بالجدول الثانى تكون الخلية المقابلة له خالية

ثالثا : الغرض الاساسى هو البحث عن الاسماء المكررة بالجدولين و لكن بالنظر لاختلاف الهجاء او الاختلاف فى الاسم الثالث مثلا

up

[Ali Mohamed Ali]

تفضل هذا الكود اذا قمت بالكتابة فى العمود الأول  A 

والعمود الثالث C

سيعمل هذا الكود على تلوين المتشابه الغير متماثل باللون الأصفر

Sub compare_cols122()
    Dim NameList As Worksheet
    Dim i As Long, j As Long
    Set NameList = Excel.Worksheets("Names")
    Dim rngNames As Range
    Set rngNames = Range("A1", Range("A1").Offset(Rows.Count - 1).End(xlUp))
    Dim varNames As Variant
    varNames = rngNames.Value2
    Dim rngData As Range
    Set rngData = Range("C1", Range("C1").Offset(Rows.Count - 1).End(xlUp))
    Dim varData As Variant
    varData = rngData.Value2
    Application.ScreenUpdating = False
    For i = LBound(varNames) + 1 To UBound(varNames)
        For j = LBound(varData) + 1 To UBound(varData)
            If varNames(i, 1) <> "" Then
                If InStr(1, varData(j, 1), varNames(i, 1), vbTextCompare) > 0 Then
                    NameList.Cells(j, 3).Interior.ColorIndex = 6
                    NameList.Cells(i, 1).Interior.ColorIndex = 6
                    Exit For
                Else
                End If
            End If
        Next j
    Next i
    Application.ScreenUpdating = True
End Sub

 

[صلاح الصغير]

استاذ / على

 

شكرا للاهتمام

اى ملف تقصد تريد تنفيذ الكود عليه

برجاء تنزيل ملف لانه اعتقد محتاج مراجعة

 

تم تعديل يناير 16, 2019 بواسطه صلاح الصغير

[Ali Mohamed Ali]

اى ملف تريد وليكن هذا كمثال

 

 

مع مقارنة عمودين مع بعضهما.xlsm

[صلاح الصغير]

 

طيب شوف حضرتك ده كده

مع مقارنة عمودين مع بعضهما.xlsm

يوجد اسم متشابه

تم تعديل يناير 16, 2019 بواسطه صلاح الصغير

[صلاح الصغير]

 

up

[صلاح الصغير]

 

up

[صلاح الصغير]

 

up

[صلاح الصغير]

 

up