معادلة لعد الاسماء دون تكرار

[samycalls]

المطلوب معادلة لعد الاسماء دون تكرار .. وأكون شاكراً لكم ..

معادلة لعد الاسماء دون تكرار.rar

[أم عبد الله]

الأستاذ / سامي

 

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

 

إليك الملف به المطلوب.

معادلة لعد الاسماء دون تكرار1.rar

[سليم حاصبيا]

السلام عليكم 

اليك يا صديقي هذا الملف /ربما ينال اعجابك

معادلة لعد الاسماء دون تكرار 1.rar

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

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

ولكن طلب الأخ السائل هو الحصول على عدد الأسماء الفريدة فقط ؟

وهنا يتم توجية الأخ السائل لعملية البحث أولا ؟ فإذا لم يجد الإجابة الشافية لطلبة يقوم بعرض سؤالة والإيضاح من جانبة أنه لم يجد مايبحث عنه

حتى تكون الإجابة جديدة وإضافة لمكتبة المنتدى

لإنى على علم تام بأن المنتدى يحتوى على العديد والعديد من الإجابات لهذا السؤال

=SUMPRODUCT(1/COUNTIF(C6:C41,C6:C41))

وهذه المعادلة كافية للإجابة على طلبة

تقبلوا تحياتى

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

أرجو من الأساتذة الأفاضل

الأخت الغالية " أم عبد الله "

وأخى العزيز " سليم "

ألا يغضبوا منى من هذه الملحوظة " وأن هذا لايقلل من روعة حلولهم "

ولكن الغرض هو عد الأستسهال فى عرض السؤال ، والرغبة فى البحث أولا

حتى تكون الأجابة إضافة للسائل والمنتدى على حدا سواء

تقبلوا تحياتى

[أم عبد الله]

أستاذنا العبقري /جمال عبد السميع

 

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

 

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

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

أختى الغالية " أم عبد الله "

أنا كنت متأكد من سعة صدرك ، وذكائك  فى تفهم الغرض من مشاركتى لأنى ألاحظ تكرار الإجابات بشكل غريب ، لاأدرى هل هو الأستسهال أم عدم الرغبة فى البحث " وهذا بالطبع يقع على عاتق صاحب السؤال " الذى يطرح سؤاله قبل عملية البحث

لأن المنتدى أصبح مثقل بمحتواه وهذا بالطبع يؤثر على سرعتة  فى الأداء ، وكثرة تعرضة للصيانة ، وهذا الصرح هو منفذنا للتعلم فأرجو من الجميع الرغبة والحرص فى التعامل معه

لأنه فى نهاية الأمرهو منتدانا نحن ، ونحن الأكثر إستفادة منه

تقبلى تحياتى وشكرى على ذكائك وتفهمك للأمر

[سليم حاصبيا]

أستاذ/جمال

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

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

لكن كما تعرف هناك بعض المشاركات التي تتعدد فيها الاسئلة(في اكثر من مشاركة مع نفس الشخص بشأن نفس الموضوع) وبعد ان تكون قد اجبت غلى السؤال الأول تفاجىء بالسوال الثاني بمعطياتو طلبات جديدة 

تداركاً لهذا قمت بالرد على اكثر من احتمال (لا اعرف اذا كنت مخطئاً)

                                                                                       مع الاعتذار

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

العفو أخى الحبيب " من أنا لكى تعتذر له على فعل الخير "

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

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

وشكرا على ردكم

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

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

ومن أجل أخى الحبيب " سامى "

صاحب السؤال

وإجابة جديدة له وللزملاء ، يمكنة إستخدام هذا الكود لإظهار عدد الأسماء الفريدة فى مدى معين ،ولكنه يقوم بتحديد المدى الذى يريد " عد " الأسماء الفريدة فية

Sub gama1()
    Dim r As Range, e
    With CreateObject("Scripting.Dictionary")
        .CompareMode = 1
        For Each r In Selection
            For Each e In Split(Replace(r.Value, " ", ""))
                .Item(e) = .Item(e) + 1
            Next
        Next
        MsgBox "عدد الكلمات الفريدة فى المدى المختار: " & Format(.Count)
    End With
End Sub

عد الأسماء الفريدة.rar

[samycalls]

لقد كانت الحلول غير متوقعة فهى أكثر مما كنت انتظر .. شكراً اخوانى الأعزاء على هذا الجهد الرائع ..