ريان أحمد قام بنشر مارس 18, 2014 مشاركة قام بنشر مارس 18, 2014 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 هذين المتشابهين لأنه في الكود السابق يطابق رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر مارس 19, 2014 الكاتب مشاركة قام بنشر مارس 19, 2014 up رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر مارس 19, 2014 مشاركة قام بنشر مارس 19, 2014 السلام عليكم أخى الفاضل استبدله بهذا الكود 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 1 رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر مارس 19, 2014 الكاتب مشاركة قام بنشر مارس 19, 2014 السلام عليكم أستاذي شكرا طبقت الكود لكن بقي لم يجلب المطلوب إليك مثال ggg.rar رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر مارس 19, 2014 مشاركة قام بنشر مارس 19, 2014 أخى الفاضل جربت الكود وهو يعمل بشكل سليم وقد أضفت إليه إضافة بسيطة 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 وبالتالى فهى مختلفة فى حرف واحد رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر مارس 19, 2014 الكاتب مشاركة قام بنشر مارس 19, 2014 (معدل) السلام عليكم طبقت التعديل ورفعته لك في مثال ولم ينجح ggg - copy.rar تم تعديل مارس 19, 2014 بواسطه ريان أحمد رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر مارس 20, 2014 مشاركة قام بنشر مارس 20, 2014 أخى الفاضل لقد جربت الكود للمرة الثانية وهو يعمل بنجاح جرب حدد خلايا العمود B ثم نفذ الكود سوف تجده يعمل بشكل سليم رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر مارس 20, 2014 الكاتب مشاركة قام بنشر مارس 20, 2014 السلام عليكم الكود يعمل ولكن لم يجلب لي حالة OULD BASTAMI AMEUR OULD BESTAMI Ameu أخي هل جربت المرفق جرب المرفق الاذي في المشاركة 6 رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر مارس 20, 2014 مشاركة قام بنشر مارس 20, 2014 أخى الفاضل كيف يقوم الكود بجلب الحالة OULD BASTAMI AMEUR OULD BESTAMI Ameur ويوجد اختلاف فى كلمة BASTAMI حرف A وفى كلمة BESTAMI حرف E وشرط عمل الكود تطابق تام فى الحروف رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر مارس 20, 2014 الكاتب مشاركة قام بنشر مارس 20, 2014 السلام عليكم أخي العمل يقوم على عند عمل المفارنة تطابق تام في الإسم واللقب تشابه يعنى الحالة السابقة يجلبها فهل يتم تعديل الكود لعمل ذلك رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر مارس 20, 2014 مشاركة قام بنشر مارس 20, 2014 الكود يعمل على التطابق التام أما التشابه فقط عمليه صعبه رابط هذا التعليق شارك More sharing options...
حمادة باشا قام بنشر مارس 23, 2014 مشاركة قام بنشر مارس 23, 2014 الأخ الكريم/ ريان أحمد السلام عليكم ورحمة الله وبركاته وبعد إستئذان الأستاذ الفاضل/ رجب جاويش المرفق دالة مخصصة - بكود بسيط - تقوم بعمل المطلوب حسب طريقة البحث التي وصفتها حضرتكم الدالة تفيد في نطاق البحث العام " كلمات متشابهة أو قريبة من بعضها " - كما يمكن إستخدامها لبحث التطابق التام . طريق الإستخدام والأمثلة داخل الملف - تقبل تحياتي Book1-Find Semi-Similar Words.rar 1 رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر مارس 23, 2014 الكاتب مشاركة قام بنشر مارس 23, 2014 السلام عليكم جزاك الله كل خير سأجربها على الملف الأصلي وأخبرك بالنتيجة رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر مارس 23, 2014 الكاتب مشاركة قام بنشر مارس 23, 2014 السلام عليكم شاهد المرفق في المثال أريد ان يعثر على ******OULD BASTAMI AMEUR***** ثث.rar رابط هذا التعليق شارك More sharing options...
حمادة باشا قام بنشر مارس 24, 2014 مشاركة قام بنشر مارس 24, 2014 الأخ الكريم/ ريان أحمد السلام عليكم ورحمة الله وبركاته الدالة تعطي أول أقرب نتيجة حسب معيار البحث المحدد - ولا تنسي وجود حروف مختلفة في منتصف الكلمة فتح الإحتمالات لمعيار البحث أكثر من ذلك نتائجه تكون أقرب إلي العشوائية منها إلي التشابه . تم الحل بتغيير موقع المطابقة داخل الجملة إلي نهايتها عوضا عن البداية . تقبل تحياتي ثث.rar رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.