كتابة نعم فى حالة تشابة جزء من الاسم باسم اخر او لا فى الاختلاف الكامل

[فضل حسين]

الى خبراء واعضاء منتداى العزيز والعظيم

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

كل عام وانتم بخير داعيا لكم المولى عز وجل ان يعيد عليكم هذة الايام المباركة بالخير واليمن والبركات

وان تكونوا فى نفس هذا اليوم فى العام القادم ان شاء الله على جبل عرفات اللهم امين لكم وللجميع

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

جزاكم الله كل خير على  كل ماتقدمونه 

فضل.rar

تم تعديل أكتوبر 4, 2014 بواسطه فضل 1

[جمال عبد السميع]

رغم شدة مشاغلى وعدم قدرتى على تتبع المنتدى

إلا إننى عند مشاهدة طلبك لم أستطع التأخير ، عن الأجابة

وخاصا لصعوبة مقارنة الأسماء وخاصا العربية

وأرجو من حضرتك عند إستخدام هذه الدالة وهى دالة معرفة أن تحرص كل الحرص من حيث حالة الأحرف

لأنى لاحظت على سبيل المثال كتابتك لأسم " أية " مرة هكذا ، ومرة أخرى هكذا " أيه " وبالطبع نتيجة المعادلة ستكون خطأ المعادلة

إلى حضرتك المعادلة وهى دالة معرفة " UDF "

Function CompNames(Rng1 As Range, Rng2 As Range) As String
If Rng1 = Rng2 And Rng1.Value = "" Then
CompNames = ""
Exit Function
End If
n1 = Split(UCase(Rng1))
n2 = Split(UCase(Rng2))
CompNames = "لا"
For c1 = 0 To UBound(n1)
For c2 = 0 To UBound(n2)
If n1(c1) = n2(c2) Then
CompNames = "نعم"
Exit Function
End If
Next c2
Next c1
End Function

- المعادلة

 =CompNames(B2,C2)

تقبل تحيات أخيك

[فضل حسين]

استاذنا الفاضل / جمال عبدالسميع

امبراطور  المعادلات

اسمحلى اولا ان اشكر الله واقول كما يقول منتدانا العظيم فى هذة الايام المباركة

الله اكبر                الله اكبر                    الله اكبر                  لااله الا الله

الله اكبر                الله اكبر                   ولله الحمد

 فاالله اكبر ولله الحمد على نعمه التى لاتعد ولاتحصى 

والله اكبر ولله الحمد على نعمة هدايتنا وتوفيقنا واشتراكنا فى هذا المنتدى العظيم بكل مافيه من خبراء واعضاء لايدخرون جهدا فى اسعاد الاخرين وتقديم العون للاخرين وسيادتك واحد منهم

ففعلا يااخى الفاضل / جمال عبدالسميع - امبراطور المعادلات

انت وكل الاخوة الافاضل فى هذا المنتدى العظيم نعمة نحمد الله عليها وندعوا الله ان يدوم علينا هذه النعمة وعلى الاخرين ,

الف مليون شكر لك ياحبيبى على هذة الدالة المعرفة الرائعة مثل حضرتك

واشكرك مرة ثانية على ذوقك واخلاقك الرفيعة وهذا ماتعودناه من سيادتكم بالرغم من انشغالكم وكان الله فى عونكم الا انكم لم تقصروا وكعادتكم تسعدوننا دائما بافكاركم ومعادلاتكم .

كل عام وسيادتكم بخير ولاتنسى معى اخى الكريم

الله اكبر       الله اكبر        الله اكبر                   لااله الا الله

الله اكبر       الله اكبر        ولله الحمد

تم تعديل أكتوبر 5, 2014 بواسطه فضل 1

[جمال عبد السميع]

شكرا أخى الحبيب وهذا كثير علية جدا

وكل سنة وحضرتك طيب

وهذه معادلة عادية بعيدا عن الأكواد أتمنى تحقق ماتريد

=IF(OR(LEFT(B2,FIND(" ",B2))=LEFT(C2,FIND(" ",C2)),LEFT(B2,FIND("^",SUBSTITUTE(TRIM(B2)," ","^",2)))=LEFT(C2,FIND("^",SUBSTITUTE(TRIM(C2)," ","^",2)))),"نعم","لا")

للمرة المليون أخى حاذر من الأحرف " كالهمزة على الألف " أ " ، " ا " - والياء "ى" ، "ي " - والتاء المربوطة " ة " والهاء " ه "

فهى تغير الأختيار تماما

تقبل تحيات أخيك

[فضل حسين]

استاذى الفاضل / جمال عبدالسميع     -   امبراطور المعادلة

جزاك الله كل خير وزادك الله علما وتوفيقا

المعادلة العادية جميلة وتؤدى الغرض بكفاءة عالية 

ولكن يوجد ملاحظة  بسيطة عند تنفيذها وهى

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

ولكن ياحبيبى تسلم الايادى وربنا يخليك لنا يارب وعمل رائع 

وعلى فكرة ملحوظتك وهى الاخذ فى الاعتبار حالة الحروف هى فى الاعتبار 

جزاك الله كل خير وربنا يكرمك يارب 

 

[جمال عبد السميع]

الحمد لله أخى

أما بخصوص المسافة يمكن إستخدام دالة " TRIM "

كالأتى :

=IF(OR(TRIM(LEFT(TRIM(B2),FIND(" ",TRIM(B2))))=TRIM(LEFT(TRIM(C2),FIND(" ",TRIM(C2)))),TRIM(LEFT(TRIM(B2),FIND("^",SUBSTITUTE(TRIM(B2)," ","^",2)))=TRIM(LEFT(TRIM(C2),FIND("^",SUBSTITUTE(TRIM(C2)," ","^",2)))))),"نعم","لا")

تقبل تحياتى

[فضل حسين]

استاذى الفاضل / جمال عبدالسميع 

امبراطور المعادلة

تماما ياباشا والف شكر ياباشا وتسلم العقول النيرة والافكار الجميلة

وكل عام وانتم بخير والعام القادم نباركلك وانت قادم من الحج ان شاء الله 

اخوك فضل