كيفية توليد أرقام اليانصيب في برنامج Excel؟

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

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

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

(1) في الخلية A2، أدخل الصيغة =RAND()ثم اسحب مقبض التعبئة إلى النطاق A2:A50.
(2) في الخلية B2، أدخل الصيغة =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,FALSE) فيها، ثم اسحب مقبض التعبئة إلى النطاق الذي تحتاجه.

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

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

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

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

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

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

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

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

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

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 أو انقر على زر التشغيل لتشغيل هذا الماكرو.

4الآن في مربع الحوار المنبثق، حدد خلية لعرض أرقام اليانصيب، واضغط على الزر موافق .

ثم سترى أن 6 أرقام يانصيب فريدة تم توليدها وتظهر في الخلايا المحددة.

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

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