كيفية عمل سحب أسماء حظ في Excel؟
في الأنشطة المهنية، اجتماعات الفريق، أو المناسبات الخاصة، غالبًا ما يكون من الضروري اختيار عدد قليل من المشاركين المحظوظين أو الفائزين عشوائيًا من قائمة كبيرة من الأسماء - على سبيل المثال، لسحب فريق، جوائز عشوائية، أو اختيار المتطوعين. يمكن أن يكون السحب اليدوي للأسماء من القبعة غير فعال أو غير عملي عند التعامل مع القوائم الرقمية، خاصةً مع زيادة عدد الأسماء. لحسن الحظ، يوفر Excel مجموعة متنوعة من الطرق العملية لإجراء اختيار عشوائي من قائمتك، مما يتيح لك إنشاء تجارب سحب حظ شفافة وقابلة للتكرار ومخصصة مباشرة داخل جداول البيانات الخاصة بك. ستوضح لك هذه المقالة عدة طرق فعالة لاختيار الأسماء عشوائيًا في Excel، مع تسليط الضوء على السيناريوهات، المزايا والاعتبارات، بالإضافة إلى مشاركة نصائح مفيدة لتجنب الأخطاء الشائعة أثناء العمل.
استخراج أسماء عشوائية لعمل سحب الحظ باستخدام صيغة
اختر أسماء عشوائية لعمل سحب الحظ باستخدام Kutools لـ Excel
استخراج أسماء عشوائية لعمل سحب الحظ باستخدام كود VBA
البديل: استخراج أسماء عشوائية باستخدام دالة RAND والفرز
استخراج أسماء عشوائية لعمل سحب الحظ باستخدام صيغة
إذا كنت بحاجة إلى اختيار عدد معين من الأسماء (على سبيل المثال، 3 فائزين) بشكل عشوائي من عمود يحتوي على أسماء، يمكنك استخدام نهج الصيغ المعقدة. هذا النهج يتجنب تلقائيًا التحديدات المكررة ويحدث النتائج كلما تم إعادة حساب المصنف. وهو مناسب بشكل خاص لاختيار عدد صغير وثابت من الأسماء من قائمة ذات حجم متوسط، خاصة عندما تريد أن تكون العملية قابلة للتتبع ولا تتطلب إضافات أو أكواد إضافية.
للاستخدام بهذه الطريقة، اتبع الخطوات أدناه:
أدخل الصيغة التالية في خلية فارغة حيث تريد ظهور أول نتيجة لسحب الحظ (على سبيل المثال، C2):
=IF(ROWS(C$2:C2)>B$2,"",INDEX(A$2:A$16,AGGREGATE(15,6,((ROW(A$2:A$16)-ROW(A$2)+1)/ISNA(MATCH(A$2:A$16,C$1:C1,0))),RANDBETWEEN(1,ROWS(A$2:A$16)-COUNTA(C$1:C1)+1))))بعد إدخال الصيغة، اسحب مقبض التعبئة لأسفل لعدد الصفوف التي تعادل عدد الأسماء التي تريد سحبها (على سبيل المثال، إذا كنت تريد سحب 3 أسماء، اسحب لأسفل 3 صفوف حتى C4). ستظهر الأسماء المسحوبة تلقائيًا في الخلايا. انظر لقطة الشاشة:
شرح المعلمات ونصائح عملية:
- في هذه الصيغة:
- A2:A16 — هذه هي قائمة الأسماء المصدر لديك. غيّر هذا النطاق ليتناسب مع بيانات الأسماء الفعلية لديك.
- B2 — هذه الخلية يجب أن تحتوي على العدد الإجمالي للأسماء التي تريد اختيارها عشوائيًا (على سبيل المثال، أدخل 3).
- C2 — هذه هي الخلية الأولى في قائمة النتائج الخاصة بك حيث تدخل الصيغة.
- C1 — هذه هي الخلية الموجودة مباشرة فوق الصيغة. وهي ضرورية لكي تعمل بنية الصيغة بشكل صحيح، حتى لو تركتها فارغة.
- هذه الطريقة ديناميكية: إذا كنت بحاجة إلى مجموعة جديدة من الأسماء العشوائية، ما عليك سوى الضغط على F9 لإعادة الحساب والحصول على مجموعة نتائج جديدة.
- لمنع الصيغ من التغيير في كل مرة يتم فيها إعادة حساب ورقة العمل، قد ترغب في نسخ النتائج واستخدام 'لصق خاص' > 'قيم' لجعل الأسماء المسحوبة ثابتة.
- إذا كانت قائمة الأسماء لديك أكبر أو إذا كنت ترغب في تشغيل السحب عدة مرات، تأكد من عدم تداخل عمود النتائج مع قائمة الأسماء الخاصة بك، حيث يمكن أن يتسبب ذلك في حدوث أخطاء.
تحذير: تحقق مرتين من أن مراجع الخلايا صحيحة وأن النطاقات تتطابق مع بياناتك الفعلية. قد يؤدي تغيير هيكل ورقة العمل أو حذف الخلايا المشار إليها إلى كسر الصيغة.
اختر أسماء عشوائية لعمل سحب الحظ باستخدام Kutools لـ Excel
إذا كنت تفضل طريقة بسيطة وتفاعلية دون كتابة صيغ، فإن Kutools لـ Excel يقدم طريقة مباشرة لاختيار الأسماء عشوائيًا من خلال ميزة فرز النطاق عشوائيًا. هذا الحل مفيد بشكل خاص للمستخدمين غير التقنيين أو عندما تريد العمل بصريًا وبسرعة، خاصة مع مجموعات البيانات الكبيرة أو عندما تحتاج إلى تكرار السحب بشكل متكرر.
بعد تثبيت Kutools لـ Excel، اتبع الخطوات التالية:
1. حدد قائمة الأسماء بالكامل التي ترغب في استخدامها لسحب الحظ. ثم انقر على Kutools > نطاق > فرز / تحديد نطاق عشوائي. انظر لقطة الشاشة:
2. في مربع الحوار فرز/تحديد نطاق عشوائي، انتقل إلى تبويب التحديد. هنا، اكتب عدد الأسماء العشوائية التي تريدها في مربع عدد الخلايا المراد تحديدها (على سبيل المثال، 3)، ثم اختر تحديد خلايا عشوائية تحت قسم نوع التحديد. هذا يسمح لك باختيار أي عدد من الأسماء الفريدة عشوائيًا. انظر لقطة الشاشة:
3. انقر على موافق. سيتم تحديد العدد المحدد من الأسماء بشكل عشوائي وإبرازها في قائمتك، بحيث يمكنك بسهولة تحديد الفائزين أو المشاركين المختارين. انظر لقطة الشاشة:
تبرز هذه الطريقة لسهولة استخدامها وموثوقيتها، مع خيارات إضافية لفرز أو خلط الأسماء إذا رغبت. يمكنك استخدام هذه الميزة عدة مرات كما هو مطلوب، وتجنب الأخطاء اليدوية أو التكرار الشائع في الحسابات اليدوية. إنها مثالية لأولئك الذين يريدون حل سريع دون القلق بشأن الصيغ أو البرمجة.
ملاحظة: تأكد من عدم تحديد بيانات أخرى غير ذات صلة في النطاق الخاص بك، حيث تمثل الخلايا المميزة فقط أسماء الفائزين. يمكن نسخ الأسماء المميزة أو وضع علامات عليها حسب الحاجة للاستخدام المستقبلي.
انقر لتنزيل Kutools لـ Excel وتجربته مجانًا الآن!
باختصار، يوفر استخدام Kutools لـ Excel طريقة سهلة الاستخدام وفعالة للغاية لإدارة السحوبات العشوائية. إنه مناسب بشكل خاص عندما تكون الموثوقية وسهولة الاستخدام هي اهتماماتك الرئيسية، أو عندما تحتاج إلى إجراء سحوبات متعددة بأحجام مجموعات مختلفة.
استخراج أسماء عشوائية لعمل سحب الحظ باستخدام كود VBA
للسيناريوهات المتقدمة أو عندما تريد أتمتة العملية بمرونة أكبر، يمكن استخدام كود VBA لاستخراج أسماء عشوائية من قائمتك. هذا الحل مناسب إذا كنت مرتاحًا لخيارات المطور في Excel وتريد تكرار السحب أو تعديل العمليات - مثل إخراج النتائج إلى موقع معين أو التعامل مع قوائم أكبر.
اتبع هذه الخطوات لاستخدام VBA للسحب:
1. اضغط على Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.
2. انقر على إدراج > وحدة لإنشاء وحدة جديدة، ثم انسخ والصق كود VBA أدناه في نافذة الوحدة.
كود VBA: استخراج أسماء عشوائية من قائمة:
Public Sub LuckyDraw()
Dim I, J, xRnd As Long
Dim xSRg, xDRg As Range
Dim xDic As New Dictionary
Dim xnum, xLastRow As Long
On Error Resume Next
Set xSRg = Application.InputBox("Please select the data list:", "KuTools for Excel", Selection.Address, , , , , 8)
If xSRg Is Nothing Then Exit Sub
Set xDRg = Application.InputBox("Please selecta cell to put the result:", "KuTools for Excel", , , , , , 8)
If xDRg Is Nothing Then Exit Sub
xLastRow = xSRg.Rows.Count
Set xSRg = xSRg(1)
Set xDRg = xDRg(1)
xnum = Range("B2")
If xnum < 1 Then Exit Sub
J = 0
For I = 1 To xnum
LabExit:
xRnd = Int(Rnd() * xLastRow)
If xDic.Exists(xRnd) Then GoTo LabExit
xDic.Add xRnd, ""
xDRg.Offset(J, 0).Value = xSRg.Offset(xRnd, 0).Value
J = J + 1
Next
End Sub
توضيح المعلمات: في الكود، B2 هي الخلية التي تدخل فيها عدد الأسماء العشوائية لاستخراجها. يمكنك تغيير مراجع الخلايا حسب الحاجة.
3. بعد لصق الكود، انتقل إلى أدوات > مراجع في نافذة محرر VBA. في مربع الحوار الذي يفتح، حدد الخيار Microsoft Scripting Runtime في قائمة المراجع المتاحة. هذه الخطوة ضرورية لتمكين قاموس البرمجة المستخدم في الكود. انظر لقطة الشاشة:
4. انقر على موافق لإغلاق مربع الحوار، ثم اضغط على F5 لتشغيل الكود. سيظهر مربع مطالبة يطلب منك تحديد قائمة البيانات التي تحتوي على الأسماء التي تريد سحبها منها. انظر لقطة الشاشة:
5. انقر على موافق. سيظهر مربع مطالبة آخر لاختيار الخلية المستهدفة حيث تريد عرض نتائج السحب. انظر لقطة الشاشة:
6. انقر على موافق لإكمال العملية. ثم سيتم إخراج الأسماء المختارة عشوائيًا فورًا بدءًا من الخلية التي حددتها. انظر لقطة الشاشة:
نصائح عملية: قبل تشغيل الكود، تأكد من حفظ عملك. إذا واجهت أخطاء، تحقق مرتين من إعدادات المراجع واختيارات نطاق الخلايا. هذه الطريقة تعطيك تحكم أكبر، ولكنها الأنسب للمستخدمين الذين هم على دراية بعمليات VBA الأساسية.
المزايا والعيوب: نهج VBA قوي للتخصيص ويمكن تكييفه لمتطلبات متقدمة، مثل استبعاد الفائزين السابقين، أتمتة الإشعارات، والمزيد. ومع ذلك، فإنه يتطلب معرفة أساسية بـ VBA وقد لا يكون مناسبًا إلا إذا كانت البرامج النصية مسموح بها في بيئتك.
البديل: استخراج أسماء عشوائية باستخدام دالة RAND والفرز
بالإضافة إلى الأساليب المذكورة أعلاه، هناك حل عملي ومرئي آخر وهو استخدام دالة RAND في Excel جنبًا إلى جنب مع الفرز. هذه الطريقة بسيطة، لا تتطلب صيغ ذات بنية معقدة، ولا تحتاج إلى إضافات أو برمجيات - مما يجعلها مناسبة للسحب العرضي والسريع في أي إصدار من Excel. وهي مفيدة بشكل خاص عندما تريد رؤية الترتيب العشوائي يدويًا والتحقق منه.
إليك كيفية القيام بذلك:
- أضف عمود مساعد بجانب قائمة الأسماء الخاصة بك، وأدخل =RAND() في الخلية الأولى من العمود المساعد (على سبيل المثال، إذا كانت أسماؤك في A2:A16، أدخل =RAND() في B2).
- انسخ الصيغة لأسفل بجانب القائمة بالكامل. كل خلية ستُملأ برقم عشري عشوائي.
- حدد كل من قائمة الأسماء الأصلية وعمود RAND المساعد.
- انتقل إلى تبويب البيانات واختر فرز. قم بتعيين الفرز لاستخدام العمود المساعد مع قيم RAND، بترتيب من الأصغر إلى الأكبر (أو العكس). هذا سيقوم بإعادة ترتيب القائمة بالكامل بشكل عشوائي.
- بمجرد الفرز، اختر ببساطة أول N اسم من القائمة المعاد ترتيبها كفائزي السحب.
نصائح وملاحظات: في كل مرة يتم فيها إعادة حساب ورقة العمل، ستُحدَّث دالة RAND. إذا كنت تريد تجميد نتائج السحب، انسخ الأسماء والصقها كقيم في مكان آخر. إذا كنت تريد سحبًا آخر، ما عليك سوى إعادة الحساب (F9).
المزايا: هذا النهج سهل التنفيذ للغاية، ولا يتطلب أي إعداد إضافي، وهو واضح لإظهار النزاهة أثناء السحوبات المباشرة. ومع ذلك، فهو أقل ملاءمة إذا كنت بحاجة إلى تكرار السحب بشكل متكرر أو تتطلب ميزات متقدمة مثل قوائم الاستبعاد، والتي يمكن التعامل معها بشكل أفضل بواسطة الصيغ، VBA، أو Kutools.
باختصار، يوفر Excel طرقًا متعددة لاختيار الأسماء عشوائيًا لسحب الحظ. الاختيار بين الطرق يعتمد على تفضيلاتك للبساطة، التخصيص، أو التفاعل البصري. بالنسبة للاستخدام اليدوي المباشر، يُوصى باستخدام RAND والفرز أو Kutools لـ Excel. بالنسبة للحلول الديناميكية والقابلة لإعادة الاستخدام، توفر الصيغ أو VBA مرونة إضافية. إذا واجهت أخطاء أو نتائج غير متوقعة، تحقق مرتين من مراجع الخلايا، اختيارات النطاق، وتأكد من تمكين الإضافات أو إعدادات الماكرو اللازمة. لتحقيق أفضل النتائج، احفظ دائمًا بياناتك قبل بدء السحب وتحقق من النتائج لتجنب الأخطاء في الأنشطة أو الأحداث المهمة للفريق.
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في Excel باستخدام Kutools لـ Excel، واختبر كفاءة غير مسبوقة. Kutools لـ Excel يوفر أكثر من300 ميزة متقدمة لزيادة الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة الأكثر أهمية بالنسبة لك...
Office Tab يجلب واجهة التبويب إلى Office ويجعل عملك أسهل بكثير
- تفعيل تحرير وقراءة عبر التبويبات في Word، Excel، PowerPoint، Publisher، Access، Visio وProject.
- افتح وأنشئ عدة مستندات في تبويبات جديدة في نفس النافذة، بدلاً من نوافذ مستقلة.
- يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات اليومية من الفأرة!
جميع إضافات Kutools. مثبت واحد
حزمة Kutools for Office تجمع بين إضافات Excel وWord وOutlook وPowerPoint إضافة إلى Office Tab Pro، وهي مثالية للفرق التي تعمل عبر تطبيقات Office.
- حزمة الكل في واحد — إضافات Excel وWord وOutlook وPowerPoint + Office Tab Pro
- مثبّت واحد، ترخيص واحد — إعداد في دقائق (جاهز لـ MSI)
- الأداء الأفضل معًا — إنتاجية مُبسطة عبر تطبيقات Office
- تجربة كاملة لمدة30 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد