الرجاء تعديل هذا الكود

[ريان أحمد]

Sub Find_Matches()
    Dim CompareRange As Variant, x As Variant, y As Variant
    Set CompareRange = Range("a2:a41510")
     For Each x In Selection
        For Each y In CompareRange
            If x = y Then x.Offset(0, 3) = x
        Next y
    Next x
End Sub

 

 

بحيث يصيح يجلب  

 

Abdeslem

ABDESSELAM

 

هذين المتشابهين

 

لأنه في الكود السابق يطابق

[ريان أحمد]

up

[رجب جاويش]

السلام عليكم

أخى الفاضل

استبدله بهذا الكود

Sub Find_Matches()
    Dim CompareRange As Variant, x As Variant, y As Variant
    Set CompareRange = Range("a2:a41510")
     For Each x In Selection
        For Each y In CompareRange
            If UCase(x) = UCase(y) Then x.Offset(0, 3) = x
        Next y
    Next x
End Sub

[ريان أحمد]

السلام عليكم

 

أستاذي شكرا طبقت الكود لكن بقي لم يجلب المطلوب إليك مثال

ggg.rar

[رجب جاويش]

أخى الفاضل

جربت الكود وهو يعمل بشكل سليم

وقد أضفت إليه إضافة بسيطة

Sub Find_Matches()
    Dim CompareRange As Variant, x As Variant, y As Variant
    LR = Cells(Rows.Count, 1).End(xlUp).Row
    Set CompareRange = Range("a2:a" & LR)
     For Each x In Selection
        For Each y In CompareRange
            If UCase(x) = UCase(y) Then x.Offset(0, 3) = x
        Next y
    Next x
End Sub

وإن كنت تقصد الجملة الأولى

فى العمود الأول OULD BASTAMI AMEUR

وفى العمود الثانى OULD BESTAMI Ameur

وبالتالى فهى مختلفة فى حرف واحد

[ريان أحمد]

السلام عليكم

 

طبقت التعديل ورفعته لك في مثال ولم ينجح

ggg - copy.rar

تم تعديل مارس 19, 2014 بواسطه ريان أحمد

[رجب جاويش]

أخى الفاضل

لقد جربت الكود للمرة الثانية وهو يعمل بنجاح

جرب حدد خلايا العمود B  ثم  نفذ الكود

سوف تجده يعمل بشكل سليم

[ريان أحمد]

السلام عليكم

 

الكود يعمل ولكن لم يجلب لي حالة

 

OULD BASTAMI AMEUR

 OULD BESTAMI Ameu

 

 

أخي هل جربت المرفق   جرب المرفق الاذي في المشاركة 6

[رجب جاويش]

أخى الفاضل

كيف يقوم الكود بجلب الحالة

OULD BASTAMI AMEUR

 OULD BESTAMI Ameur

ويوجد اختلاف فى كلمة BASTAMI  حرف A  وفى كلمة BESTAMI  حرف E

وشرط عمل الكود تطابق تام فى الحروف

[ريان أحمد]

 السلام عليكم

 

أخي  العمل يقوم على عند عمل المفارنة تطابق تام في الإسم واللقب  تشابه  يعنى الحالة السابقة يجلبها

 

فهل يتم تعديل الكود لعمل ذلك

[رجب جاويش]

الكود يعمل على التطابق التام

أما التشابه فقط عمليه صعبه

[حمادة باشا]

الأخ الكريم/ ريان أحمد

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

وبعد إستئذان الأستاذ الفاضل/ رجب جاويش

المرفق دالة مخصصة - بكود بسيط - تقوم بعمل المطلوب حسب طريقة البحث التي وصفتها حضرتكم

الدالة تفيد في نطاق البحث العام " كلمات متشابهة أو قريبة من بعضها " - كما يمكن إستخدامها لبحث التطابق التام .

طريق الإستخدام والأمثلة داخل الملف - تقبل تحياتي

 

Book1-Find Semi-Similar Words.rar

[ريان أحمد]

السلام عليكم جزاك الله كل خير

 

سأجربها على الملف الأصلي وأخبرك بالنتيجة

[ريان أحمد]

السلام عليكم 

 

شاهد المرفق في المثال أريد ان يعثر على ******OULD BASTAMI AMEUR*****

ثث.rar

[حمادة باشا]

الأخ الكريم/ ريان أحمد

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

الدالة تعطي أول أقرب نتيجة حسب معيار البحث المحدد - ولا تنسي وجود حروف مختلفة في منتصف الكلمة

فتح الإحتمالات لمعيار البحث أكثر من ذلك نتائجه تكون أقرب إلي العشوائية منها إلي التشابه .

تم الحل بتغيير موقع المطابقة داخل الجملة إلي نهايتها عوضا عن البداية .

تقبل تحياتي

 

ثث.rar