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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
ashraf_hertlion hassona229-- لا تميز خلال هذه الفترة YasserKhalil مطلوب تعديل الكود للطباعة اكسيل اسئله واجابات


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





دالة معرفة لتأكيد تشابه النصوص

بســـــم الله والحـمد للـــه والصـلاة والسـلام علـى رسـول الله أهلا ومرحبا بكم أخوانى الكرام من جديد ومعكم عريف مجند من ..



25-05-2019 12:23 مساء
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 5
يتابعهم : 0
يتابعونه : 90
قوة السمعة : 10845
موقعي : زيارة موقعي
عدد الإجابات: 6
 offline 

بســـــم الله والحـمد للـــه والصـلاة والسـلام علـى رسـول الله
أهلا ومرحبا بكم أخوانى الكرام من جديد

ومعكم عريف مجند من القوات المسلحه فى أجازة جديده من جديد الجديد biggrin2
وفى فقرة سؤال وجواب

كان السؤال بإحدى جروبات الفيس بوك من أخونا مأمون مصطفى
طرح أخونا مأمون سؤال جميل وهو كما بالصورة التالية

FvPAZ_2019-05-25_113923
وكما بالصورة أخونا مأمون عايز يستخدم التنسيق الشرطى لتلوين النص المتشابه وليس المتطابق
وأعطى أمثله منها
محمد سعد , محمد السعد , محمد سعدى
من المفترض هنا أن ثلاثتهم متشابهين
ومن هنا تأتى إحدى الدوال المعرفة من دوال الصقر للإنقاذ biggrin2
دالة AlsaqrSimilar
الدالة تقوم بإكتشاف النصوص المتشابه وترجع قيمة منطقية إما TRUE أو FALSE

وحســـب الطلب هو قايل تشابه النص حسب اكبر عدد من الحروف

وأنا لقيت بعض النصوص قد تكون بها تشابه كبير فى الحروف
الى انها متباعده ولا تعطى أى نوع من أنواع التشابه
ولذلــــــــــــــك
قمت بتلافى هذا النوع من التشابه والتجربه تعود لكم فى النهايه اذا كان هناك اختلاف بالأراء

اذا استخدام الدالة كالتالى

C B A -
=AlsaqrSimilar($A$1:$A$8,A1) TRUE محمد سعد 1
=AlsaqrSimilar($A$1:$A$8,A2) TRUE محمد السعد 2
=AlsaqrSimilar($A$1:$A$8,A3) TRUE محمد سعدى 3
=AlsaqrSimilar($A$1:$A$8,A4) FALSE اسلام عبدالعزيز 4
=AlsaqrSimilar($A$1:$A$8,A5) FALSE حسام خطاب 5
=AlsaqrSimilar($A$1:$A$8,A6) FALSE ياسر خليل 6
=AlsaqrSimilar($A$1:$A$8,A7) TRUE ياسر العربى 7
=AlsaqrSimilar($A$1:$A$8,A8) TRUE ياسر عربى 8

وكما موضح بالجدول أعلاه استخدام الدالة بسيط جدا
تتكون من 2 باراميتر
الأول هو النطاق المراد اختبار تكرار تشابه النص بها
والثانى هى الخلية المراد اختبار تكرارها بالتشابه داخل النطاق المحدد

ويمكن استخدام تلك القيم فى التنسيق الشرطى
لتظليل النصوص المتشابهه بنفس الطريقة
وكـــود الـدالـة هــو :-

Function AlsaqrSimilar(rng As Range, cr As Variant) As Boolean
'Developer: Eslam Abdullah
Dim serial%, a%, i%, adrs$, str$, chk As Boolean, cell As Variant
adrs = cr.address: cr = Application.Trim(cr)
    For Each cell In rng
        If cell.address <> adrs Then
            cell = Application.Trim(cell): str = cell: a = 0
            For i = 1 To Len(cr)
                serial = InStr(str, Mid(cr, i, 1))
                If serial > 0 Then
                    str = Mid(str, 1, serial - 1) & Mid(str, serial + 1)
                    a = a + 1
                Else
                    If str = "" Then Exit For
                End If
            Next i
            If a / (Application.Max(Len(cell), Len(cr)) + (cell & cr = "")) > 0.7 Then AlsaqrSimilar = True: Exit Function
        End If
    Next cell
End Function

 
كـــان معكم أخـوكـم فـى الله إســـلام عبدالله
لا تنسونا مـن صالح دعائكم 81











 
 


25-05-2019 01:34 مساء
مشاهدة مشاركة منفردة [1]
Yasser Elaraby
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1293
الجنس : ذكر
الدعوات : 13
يتابعهم : 2
يتابعونه : 724
قوة السمعة : 9894
موقعي : زيارة موقعي
عدد الإجابات: 9
 offline 
look/images/icons/i1.gif دالة معرفة لتأكيد تشابه النصوص
منور ياغالي ايه الشغل الحلو دا
جزاكم الله خيرا
2015_1418710703_134

توقيع :Yasser Elaraby
663013020


25-05-2019 02:17 مساء
مشاهدة مشاركة منفردة [2]
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 5
يتابعهم : 0
يتابعونه : 90
قوة السمعة : 10845
موقعي : زيارة موقعي
عدد الإجابات: 6
 offline 
look/images/icons/i1.gif دالة معرفة لتأكيد تشابه النصوص
ميغسى بوكو أغالى هذا بعض ما عندكم biggrin2

26-05-2019 12:14 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif دالة معرفة لتأكيد تشابه النصوص
الله ينور يا سمسم .. بارك الله فيك وجزيت خيراً
وكل عام وأنت بخير

26-05-2019 12:41 صباحا
مشاهدة مشاركة منفردة [4]
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 5
يتابعهم : 0
يتابعونه : 90
قوة السمعة : 10845
موقعي : زيارة موقعي
عدد الإجابات: 6
 offline 
look/images/icons/i1.gif دالة معرفة لتأكيد تشابه النصوص
مشكور لمرورك الكريم أستاذى الغالى ياسر
كل عام وانت بألف خير

26-05-2019 08:00 صباحا
مشاهدة مشاركة منفردة [5]
محمد حسن المحمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 80
المشاركات : 723
الجنس : ذكر
تاريخ الميلاد : 14-5-1965
الدعوات : 2
يتابعهم : 69
يتابعونه : 32
قوة السمعة : 4115
عدد الإجابات: 4
 offline 
look/images/icons/i1.gif دالة معرفة لتأكيد تشابه النصوص
890264
ما شاء الله لا قوة إلا بالله
أحسنتم أحسن الله إليكم
123
توقيع :محمد حسن المحمد

الرفقُ ما كان في شيءٍ إلاَّ زانهُ ، وما نُزع من شيءٍ إلاَّ شانُه ،اللينُ في الخطاب ، البسمةُ الرائقةُ على المحيا، 
الكلمةُ الطيبةُ عند اللقاء ، هذه حُلَلٌ منسوجةٌ يرتديها السعداء


26-05-2019 09:42 صباحا
مشاهدة مشاركة منفردة [6]
ali mohamed ali
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1769
الدولة : مصر
الجنس : ذكر
الدعوات : 2
يتابعهم : 0
يتابعونه : 68
قوة السمعة : 9642
عدد الإجابات: 47
 offline 
look/images/icons/i1.gif دالة معرفة لتأكيد تشابه النصوص
رائع استاذ اسلام بارك الله فيك وجعله الله فى ميزان حسناتك وزادك الله من فضله
توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله




الكلمات الدلالية
النصوص ، تشابه ، لتأكيد ، معرفة ، دالة ،


 










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

الساعة الآن 01:25 مساء