كيفية إدراج أرقام عشوائية (صحيحة) بين رقمين بدون تكرار في Excel؟

ستقوم هذه الطريقة بتطبيق دالة RAND ودالة RANDBETWEEN لإدراج أرقام عشوائية بين رقمين في نطاق محدد في Excel. يرجى الاطلاع على الصيغ أدناه:

انظر لقطات الشاشة أدناه:

أرقام عشوائية بين 0 و 1 =RAND()

أرقام عشوائية بين 0 و 100 =RAND()*100

أرقام صحيحة عشوائية بين 50 و 100 =RANDBETWEEN(50, 100)

يمكن أن يساعدك الكود البرمجي VBA أدناه في إدراج أي أرقام صحيحة عشوائية أو أرقام عشوائية بعدد منازل عشرية معينة في نطاق محدد في Excel. يرجى القيام بما يلي:

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

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

Public Function RandomNumbers(Num1 As Long, Num2 As Long, Optional Decimals As Integer)
'Update20131113
Application.Volatile
Randomize
If IsMissing(Decimals) Or Decimals = 0 Then
    RandomNumbers = Int((Num2 + 1 - Num1) * Rnd + Num1)
Else
    RandomNumbers = Round((Num2 - Num1) * Rnd + Num1, Decimals)
End If
End Function

3. احفظ وأغلق الكود، ثم في خلية فارغة، أدخل هذه الصيغة =RandomNumbers(X,Y,Z)، حيث X يشير إلى الحد الأدنى للأرقام، Y يشير إلى الحد الأعلى للأرقام، و Z هو عدد المنازل العشرية المحددة للأرقام العشوائية.

على سبيل المثال، إذا كنت أرغب في توليد بعض الأعداد الصحيحة بين 50 و 1000، يمكنني إدخال هذه الصيغة =randomnumbers (50,1000,0)؛ وإدراج أرقام عشوائية بين 50 و 100 مع منزلتين عشريتين بهذه الصيغة =randomnumbers (50,100,2). انظر لقطات الشاشة أدناه:

إدراج أرقام عشوائية بدون منازل عشرية:

إدراج أرقام عشوائية مع منزلتين عشريتين:

إدراج أرقام صحيحة عشوائية / تواريخ / وقت بدون تكرارات بواسطة Kutools لـ Excel

المقالة ذات الصلة:

توليد سلاسل محارف عشوائية في نطاق