كيفية إجراء سحب أسماء الحظ في Excel؟

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

استخراج أسماء عشوائية لإجراء سحب الحظ باستخدام صيغة

اختيار أسماء عشوائية لإجراء سحب الحظ باستخدام Kutools لـ Excel

استخراج أسماء عشوائية لإجراء سحب الحظ باستخدام كود VBA

استخراج أسماء عشوائية لإجراء سحب الحظ باستخدام صيغة

على سبيل المثال، إذا كنت أرغب في استخراج أي 3 أسماء من قائمة الأسماء، يمكن أن تساعدك الصيغة الطويلة التالية، يرجى القيام بما يلي:

أدخل هذه الصيغة في خلية فارغة حيث تريد وضع النتيجة: =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)))) , ثم اسحب مقبض التعبئة لأسفل إلى الخلايا حسب الحاجة، انظر إلى لقطة الشاشة:

ملاحظات:

1. في الصيغة أعلاه: A2:A16 هي قائمة الأسماء التي تريد استخراجها بشكل عشوائي، B2 هو العدد المطلوب الذي تريد استخراج الأسماء منه، C2 هي الخلية التي سيتم إدخال الصيغة فيها، وC1 هي الخلية فوق الخلية التي تحتوي على الصيغة.

2. يمكنك الضغط على مفتاح F9 للحصول على مجموعة جديدة من الأسماء بشكل عشوائي.

اختيار أسماء عشوائية لإجراء سحب الحظ باستخدام Kutools لـ Excel

قد تكون الطريقتان السابقتان صعبتين بالنسبة لمعظم الناس، هنا، إذا كان لديك Kutools لـ Excel، باستخدام ميزة Sort Range Randomly (فرز النطاق عشوائيًا)، يمكنك اختيار الأسماء بسرعة وبشكل عشوائي.

بعد تثبيت Kutools لـ Excel، يرجى القيام بما يلي:

1. حدد قائمة الأسماء التي تريد اختيارها بشكل عشوائي. ثم انقر على Kutools > نطاق > فرز / تحديد نطاق عشوائيًا، انظر إلى لقطة الشاشة:

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

3. ثم انقر على زر موافق، وسيتم اختيار عدد معين من الأسماء كما تحتاج، انظر إلى لقطة الشاشة:

انقر لتنزيل Kutools لـ Excel وتجربته مجانًا الآن!

استخراج أسماء عشوائية لإجراء سحب الحظ باستخدام كود VBA

هنا، يمكن أن يساعدك أيضًا كود VBA في إنهاء هذه المهمة، يرجى القيام بما يلي:

1. اضغط باستمرار على مفاتيح Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر على إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.

كود 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. بعد إدخال الكود، انقر على أدوات > مراجع في نافذة Microsoft Visual Basic for Applications المفتوحة، وبعد ذلك، في مربع الحوار References – VBAProject المنبثق، اختر خيار Microsoft Scripting Runtime في قائمة المراجع المتاحة، انظر إلى لقطة الشاشة:

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

5. انقر على زر موافق، وسينبثق مربع تنبيه آخر، يرجى تحديد خلية حيث تريد وضع النتيجة، انظر إلى لقطة الشاشة:

6. ثم انقر على موافق، وسيتم إنشاء العدد المطلوب من الأسماء عشوائيًا دفعة واحدة، انظر إلى لقطة الشاشة: