كيف يمكن إجراء سحب الحظ للأسماء في 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 لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات.
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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل