KutoolsforOffice — حل واحد، خمس أدوات قوية.تحقيق المزيد بجهد أقل.

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

المؤلفكيليتاريخ التعديل

هل ترغب في إدراج أرقام عشوائية في Microsoft Excel؟ إليك عدة طرق فعّالة لإدراج أرقام عشوائية ضمن نطاق معيّن:

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

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

إدراج أرقام صحيحة عشوائية/تواريخ/أوقات دون تكرار

إدراج أرقام عشوائية بين عددين باستخدام دالة RAND وصيغ RANDBETWEEN

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

الصيغةالوصف (النتيجة)
=RAND()رقم عشوائي بين 0 و1 (يتغير)
=RAND()*100رقم عشوائي بين 0 و100 (يتغير)
=RANDBETWEEN(low, high)رقم صحيح عشوائي بين عددين صحيحين مُعطَيْن، مثل RANDBETWEEN(50، 100).

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

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

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

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

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

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). انظر لقطات الشاشة أدناه:

إدراج أرقام عشوائية دون الأماكن العشرية:
أرقام صحيحة عشوائية بين 50 و100
إدراج أرقام عشوائية مع 2 الأماكن العشرية:
أرقام عشوائية بين 50 و500 بخانتين عشريتين

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

تسمح لك أداةKutools لـ Excel، وتحديدًا وظيفةإدراج بيانات عشوائية، بإدراج أرقام صحيحة عشوائية غير مكرَّرة بين عددين ضمن نطاق محدَّد في Excel. يُرجى اتباع الخطوات التالية:

Kutools لـ Excel – مزوَّد بأكثر من 300 أداة أساسية لبرنامج Excel! اجعل مهامك في Excel أسرع، وأسهل، وأكثر كفاءة.حمِّل الآن!

1. حدد النطاق الذي تريد إدراج أرقام صحيحة عشوائية فيه، ثم انقر علىKutools > إدراج > إدراج بيانات عشوائية. راجع لقطة الشاشة:
الانتقال إلى إدراج بيانات عشوائية من Kutools

2. في مربع حوارإدراج بيانات عشوائية،(1) انقر على تبويبعدد صحيح،(2)في مربَّعي «من» و«إلى»، اكتب نطاق الأرقام الذي تريد توليده كأعداد صحيحة عشوائية،(3) فعِّل خيارالقيم الفريدة،(4) ثم انقر على زرموافق. انظر لقطة الشاشة:
تعيين الخيارات في مربع حوار إدراج بيانات عشوائية والحصول على الأرقام العشوائية

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

إدراج تواريخ عشوائية (باستثناء عطلة نهاية الأسبوع) دون تكرار باستخدام Kutools لـ Excel
إدراج تواريخ عشوائية بدون تكرار

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

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

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

مقال ذو صلة:

إنشاء سلاسل أحرف عشوائية في نطاق

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

🤖KUTOOLS AI مساعد: ثوّر تحليل البيانات استنادًا إلى:التنفيذ الذكي   |  إنشاء الكود|  إنشاء الصيغ المخصصة  |  تحليل البيانات وإنشاء المخططات البيانية|  استدعاء الوظائف المحسنة…
الميزات الشائعة:البحث، التمييز أو وضع علامة على المكررات   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |  التقريب بدون استخدام الصيغة...
بحث متقدم:VLookup متعدد المعايير  |  VLookup متعدد القيم  |   VLookup عبر أوراق متعددة   |   مطابقة غامضة....
قائمة منسدلة متقدمة:إنشاء قائمة منسدلة بسرعة   |  قائمة منسدلة تابعة   |  قائمة منسدلة متعددة الاختيار....
مدير الأعمدة:إضافة عدد محدد من الأعمدة|نقل الأعمدة|تبديل حالة ظهور الأعمدة المخفية|مقارنة النطاقات والأعمدة...
ميزات مميزة:التركيز على الشبكة   |  عرض التصميم   |شريط الصيغ المحسن   | مدير الدفتر والورقة   |  مكتبة الموارد(نص تلقائي)|  أداة اختيار التاريخ   |  تجميع ورقات العمل  |  تشفير/فك تشفير الخلايا   | إرسال رسائل البريد الإلكتروني حسب القائمة   |  مرشح متقدم   |   تصفية خاصة(تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...) ...
أفضل 15 مجموعات الأدوات:12 أدواتالنصوص(إضافة نص،حذف الأحرف المحددة، ...)|   50+أنواعالمخططات البيانية(مخطط جانت، ...)|   40+ صيغعملية(حساب العمر بناءً على تاريخ الميلاد، ...)|   19 أدواتالإدراج(إدراج رمز QR،إدراج صورة من المسار، ...)|   12 أدواتالتحويل(تحويل إلى كلمات،تحويل العملة، ...)|   7 أدواتدمج وتقسيم(دمج متقدم للصفوف،تقسيم الخلايا، ...)|... وأكثر من ذلك
استخدم Kutools باللغة التي تفضلها – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية و40+ لغات أخرى!

عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...

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

  • تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
  • افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!

جميع الإضافات من Kutools في برنامج تثبيت واحد!

Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.

ExcelWordOutlookTabsPowerPoint
  • حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
  • برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
  • يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
  • تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
  • أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل