إختيار الفائز فى أحدى المسابقات بشكل عشوائى

[معتصم محمد]

بسم الله الرحمن الرحيم

اليوم سنتعلم معاً طريقة إختيار الفائز فى أحدى المسابقات بشكل عشوائى، وذلك من خلال إستخدام الدوال Randbetween و الدالة Vlookup و الدالة IF
النتيجة النهائية

مثال : لدينا 11 متسابق مرشحين للفوز بالجائزة كالتالى

المطلوب : أختيار أحد المتسابقين بشكل عشوائى للفوز بالجائزة

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

ملاحظات على المعادلة السابقة
1 » الجزء المكتوب باللون الأحمر هو المسئول عن توليد الأرقام بشكل عشوائى وذلك بين الرقمين 1 و 11، ويمثل قيمة البحث فى الدالة Vlookup
2 » الجزء المكتوب باللون الأخضر يشير إلى منطقة البحث والتى يوجد بها القيمة المراد إستخراجها
3 » الجزء المكتوب باللون البنفسجى يشير لرقم العمود فى منطقة البحث
4 » الجزء المكتوب باللون البرتقالى يبين للدالة Vlookup أننا نريد مطابقة لقيمة البحث

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

فى حالة أننا نريد أن نضبط الدالة السابقة فى حالة تحقق شرط معين وهو إختيار Start وتتوقف الدالة عند إختيار Stop فإننا سنقوم بإستخدام الدالة IF كالتالى

فى المعادلة السابقة نجد الأتى :
1 » الجزء المكتوب باللون الأخضر هو الشرط الخاص بالدالة IF والذى به سنعرف هل الخلية E2 بها Start
2 » الجزء المكتوب باللون الأزرق هى الدالة السابق كتابتها وهى تمثصل النتيجة التى ستظهرها الدالة If فى حالة تحقق الشرط
3 » علامتى التنصيص باللون الأحمر تعنى أن تكون الخلية فارغة فى حالة عدم تحقق الشرط

ملحوظة عامة : يعيب هذه الطريقة أننا إذا أردنا إظهار أكثر من فائز فقد يتكرر نفس الشخص أكثر من مرة

شرح الدوال المستخدمة فى الموضوع
1 » الدالة Randbetween
2 » الدالة Vlookup

3 » الدالة IF

لا تنسونا من خالص دعائكم | إدعوا لى بالتوفيق فى الإمتحانات

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

المصدر : مدونة المعتصم بالله

http://alm3tasem.wordpress.com/2009/07/04/...names-in-excel/

[سالم شباني]

شكرا أخي المعتصم على هذا الموضوع

لدي برنامج يقوم بخلط أسماء المترشحين وتعيين الفائز

للأمانة الملف منقول وهو نوع أكسس

الرابط هنا

http://www.mediafire.com/?nbizdnjfmkx

ملاحظة / خاصية المرفقات لا تعمل

[يوسف عطا]

جميل وبديع

بارك الله فيك

هل مكن أن نمنع تكرار الفائز قبل أن يكون الجميع قد فازوا ؟؟

أى لا يفوز شخص مرتين قبل أن يكون الجميع قد فازو مرة

وهل يمكن ضبط الفائزين على جائزتان ؟؟ أى شخصين كل مرة ؟؟

عل كل حال مشكوووووووووور

كما أهنئك على روعة العرض المتحرك

[m_127899]

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

سؤال أخي معتصم أرجو أن أجد عندك الإجابة

هل يمكن تطويع هذه الدالة مع " طلب كنت طلبته في هذا المنتدى ولم أجد فيه حلا وهو على الرابط " اطلب فيه هل يوجد دالة للتوزيع العشوائي

http://www.officena.net/ib/index.php?showtopic=28826

أرجو أن أجد عنك الحل بارك الله بك

[m_127899]

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

يا حبذا لو ترفق ملف بالمثال كاملا مع أن الشرح واضح بارك الله بك

[معتصم محمد]

سالم شباني : ما قمت به هو فكرة لدمج الدوال ببعضها البعض من أجل إتمام عملية بسيطة

يوسف عطا : للأسف هذه الطريقة كما ذكرت فى الموضوع أنها يعيبها إمكانية تكرار البند أكثر من مرة
لكن هناك دالة تقوم بتوليد الأرقام عشوائياً دون تكرار (الدالة عبارة عن إضافة ضمن 63 دالة أخرى)

m_127899
للأسف لا أعتقد إمكانية تطبيق الطريقة المذكروة هنا على مثالك لأنه سينشا تكرار فى الأسماء

الملف مرفق

Select_winner.rar

[زائر]

الاخ al m3tasem

مشكور اخى

ولكن

يجب ان تنوه ان دالة ( Randbetween ) لن تعمل الا عند اضافة الوظيفة الخاصة ( Analysis Toolpak )

مع تحياتى

[m_127899]

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

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

[معتصم محمد]

أستاذ / أبو تامر
أعتذر عن هذا الخطأ غير المقصود، وهذا هو التوضيح الخاص بإضافة الـ Analysis ToolPack
إكسل 2003
لإستخدام هذه الدالة Randbetween فى نسخة 2003 لابد من القيام بالأتى لكى تُفعل الدالة :
1 » نذهب إلى Tools » Add-Ins
2 » نُحدد Analysis ToolPack

3 » الأن الدالة Randbetween جاهزة للعمل … ألف مبروك !

تم تعديل يوليو 5, 2009 بواسطه al m3tasem

[زائر]

الاخ al m3tasem

لا تعتذر اخى

فلا بأس فكثيرا ما نسهو جميعنا

جهد مشكور اخى al m3tasem

[يحيى حسين]

شكراُ لك أخي المعتصم على موضوعك

و للإفادة يمكننا الاستغناء عن RandBetween و استخدام بدلاً منها Rand

و ايضاً يمكننا إستخدام الدالة Index with Match

و ربطها مع عدد آخر من الدوال

و هذا رابط مشاركة شبيهة للموضوع

http://www.officena.net/ib/index.php?showtopic=28445&hl=

و دمتم في حفظ الله و رعايته

[احمدزمان]

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

اخي المعتصم

بارك الله فيك اخي معلومة ممتازة

جزاك الله كل خير وبارك فيك

[سالم شباني]

السلام عليكم

شكرا أخي معتصم

شكرا للأساتذة الكرام الذين أفادونا كثيرا

[معتصم محمد]

شكراً لجميع الإخوة الأعزاء على مرورهم الكريم
وبالتوفيق للجميع بإذن الله

[احب العلم]

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

 

مثال.rar

[حمادة عمر]

الاخ الكريم / احب العلم

 

بارك الله فيك

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

وان شاء الله ستسعد جدا بالانضمام الي هذا الصرح

ولكن اولا طلبك ليس في مكانه ... والافضل لتجد الاجابات علي سؤالك

هو ان تقوم بعمل موضوع جديد .. فيه طلبك ... ليشاهدة الجميع

ومبدئيا شاهد الرابط التالي ... عله يفيدك ان شاء الله

http://www.officena.net/ib/index.php?showtopic=46421&hl=%D8%A7%D9%84%D8%AD%D8%B1%D9%88%D9%81

جزاك الله خيرا

[احب العلم]

شكرا جزيلا أخي وأستاذي حماده عمر على سرعة ردك جزاك الله كل خير .

[أم عبد الله]

الأستاذ الفاضل / معتصم

 

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