كيف تُولِّد أرقام اليانصيب في 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 في مربعإلى، وفعّل خيارالقيم الفريدة، ثم انقر على زرموافق. سترى الآن أن أرقام اليانصيب الفريدة الستة قد تم توليدها وعرضها فورًا في الخلايا المحددة.

سترشدك هذه الطريقة إلى تطبيق ماكرو 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 أو انقر على زرتشغيللتشغيل ماكرو VBA هذا.

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

بعد ذلك، ستظهر أمامك 6 أرقام فريدة من اليانصيب تم توليدها وعرضها في الخلايا المحددة.

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

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