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

1. في ورقة عمل فارغة ، اكتب رؤوس الأعمدة في النطاق A1: C1 كما هو موضح أدناه لقطة الشاشة:

2. أدخل الصيغ في العمود A والعمود B والعمود C:

(شنومكس) في الخلية A1 ، أدخل الصيغة = راند ()، ثم اسحب مقبض التعبئة إلى النطاق A2: A50.
(شنومكس) في الخلية بكسنومكس ، أدخل الصيغة =RANK($A2,$A$2:$A$50)+COUNTIF(B$1:B1,B1)-1، ثم اسحب مقبض التعبئة إلى النطاق B2: B50. (في الصيغة ، A2 هو الرقم العشوائي المتبقي للخلية الحالية ، $ A $ 2: $ A $ 50 هي جميع الأرقام العشوائية التي حصلنا عليها من الصيغة الأولى ، B $ 1 هي الخلية الأولى في العمود B ، و B1 هي الخلية الموجودة أعلى الحالي زنزانة).
(3) في النطاق C2: C50 ، أدخل أرقام التسلسل من 1 إلى 49.

ثم ستحصل على طاولة كما هو موضح في لقطة الشاشة اليسرى:

 

الصيغة معقدة للغاية بحيث لا يمكن تذكرها؟ احفظ الصيغة كمدخل نص تلقائي لإعادة استخدامه بنقرة واحدة فقط في المستقبل! اقرأ أكثر…     التجربة المجانية

3. ابحث عن نطاق فارغ ، اكتب أرقام التسلسل أفقيًا في صف كما هو موضح أدناه لقطة الشاشة:

4. أسفل الرقم التسلسلي الأول 1 ، أدخل الصيغة = VLOOKUP (G1، $ B $ 1: $ C $ 50,2،XNUMX، FALSE) بداخله ، واسحب مقبض التعبئة إلى النطاق الذي تريده.

ملاحظة: في هذه الصيغة ، G1 هي الخلية ذات رقم التسلسل الأول 1 ، $ B $ 1: $ C $ 50 عبارة عن عمود الترتيب الفريد وعمود رقم الكرة ، 2 تعني العثور على قيم في العمود الثاني من النطاق $ B $ 1: $ C $ 50 .

ثم ستحصل على أرقام اليانصيب كما هو موضح أدناه:

5. إنه اختياري. لمنع تغيير أرقام اليانصيب تلقائيًا عند تحديث ورقة العمل الحالية ، يمكنك النقر فوق المعادلة > خيارات الحساب > كتيب.

سرد بسهولة كل مجموعة من عدة سلاسل من البيانات في Excel

كوتولس ل إكسيل سرد كافة المجموعات تم تصميم الأداة المساعدة لتعميم جميع المجموعات الممكنة من عدة سلاسل معينة من البيانات ، وإدراج هذه المجموعات في عمود كما هو موضح أدناه لقطة الشاشة.

ستوجهك هذه الطريقة إلى تطبيق ماكرو VBA لإنشاء أرقام يانصيب في Excel. الرجاء القيام بما يلي:

1. صحافة قديم + F11 مفاتيح لفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

2. انقر إدراج > وحدة لفتح نافذة وحدة جديدة ، ولصق رمز فبا التالي بداخلها:

VBA: مولد رقم اليانصيب في Excel

Sub LotteyCode()
Dim Rng As Range
Dim WorkRng As Range
Dim xNumbers(49) As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Out put to (single cell):", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.Range("A1")
For xIndex = 1 To 49
xNumbers(xIndex) = xIndex
Next
For xIndex = 1 To 6
xNum = 1 + Application.Round(Rnd * (49 - xIndex), 0)
WorkRng.Offset(0, xIndex - 1).Value = xNumbers(xNum)
xNumbers(xNum) = xNumbers(50 - xIndex)
Next
End Sub

3. اضغط على F5 مفتاح أو انقر فوق يجري زر لتشغيل هذا الماكرو VBA.

4. الآن في مربع الحوار المنبثق ، حدد خلية لإخراج أرقام اليانصيب ، وانقر فوق OK .

ثم سترى 6 أرقام يانصيب فريدة يتم إنشاؤها وعرضها في الخلايا المحددة.

إذا كان لديك Kutools for Excel مثبتًا ، فإن ملف أدخل بيانات عشوائية يمكن أن تساعدك الأداة المساعدة في إنشاء أرقام يانصيب في Excel مرة واحدة.

1. حدد 6 خلايا متجاورة ، مثل A1: F1 ، ثم انقر فوق ملف كوتولس > إدراج > أدخل بيانات عشوائية.

2. الآن يظهر مربع الحوار "إدراج بيانات عشوائية". اذهب إلى عدد صحيح علامة التبويب ، اكتب 1 in من نوع الصندوق 49 in إلى مربع ، تحقق من قيم فريدة الخيار، وانقر فوق OK زر. الآن سترى 6 أرقام يانصيب فريدة يتم إنشاؤها وعرضها في الخلايا المحددة على الفور.

حدد الخلايا بشكل عشوائي بناءً على المعايير في Excel

أضف لون الخلفية / التعبئة عشوائيًا للخلايا في Excel