Note: The other languages of the website are Google-translated. Back to English

كيف تصنع أسماء السحب في Excel؟

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

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

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

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


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

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

doc lucky names 1

الملاحظات:

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

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


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

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

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

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

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

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. بعد إدخال الرمز ، انقر فوق الأدوات > المحلية في الفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، ثم في المنبثقة المراجع - VBAProject مربع الحوار ، تحقق وقت تشغيل البرمجة لـ Microsoft الخيار في المراجع المتاحة مربع القائمة ، انظر لقطة الشاشة:

doc lucky names 2

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

doc lucky names 3

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

doc lucky names 4

6. ثم اضغط OK، وتم إنشاء العدد المطلوب من الأسماء عشوائيًا مرة واحدة ، انظر الصورة:

doc lucky names 5


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

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

كوتولس ل إكسيل : مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30. 

بعد تثبيت كوتولس ل إكسيل، يرجى القيام بذلك على النحو التالي:

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

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

3. ثم اضغط Ok زر ، وتم تحديد عدد معين من الأسماء حسب حاجتك ، انظر لقطة الشاشة:

doc lucky names 8

انقر لتنزيل Kutools for Excel والتجربة المجانية الآن!


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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (3)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
خطأ:
#NUM!



الصيغة:
=IF(ROWS(C$2:C2)>B$2,"",INDEX(A$2:A$1500,AGGREGATE(15,6,((ROW(A$2:A$1500)-ROW(A$2)+1)/ISNA(MATCH(A$2:A$1500,C$1:C1,0))),RANDBETWEEN(1,ROWS(A$2:A$1500)-COUNTA(C$1:C1)+1))))
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، Mangipudi ،
تعمل هذه الصيغة بشكل جيد في مصنف Excel الخاص بي ، ما هو إصدار Excel الذي تستخدمه؟
يمكنك أيضًا إعطاء مشكلتك كلقطة شاشة هنا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لدي نفس الخطأ ، لكنه لا يظهر في جميع الأوقات.
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL