توضح هذه المقالة 4 أمثلة منشئ الأرقام العشوائية مع عدم وجود تكرارات باستخدام VBA في Excel. سنستخدم هنا وظيفة Rnd المضمنة في Excel لتهيئة الكود الخاص بنا. دعنا نتعمق في الأمثلة لتعلم تقنيات إنشاء أرقام عشوائية فريدة.

تنزيل Practice Workbook

تنزيل هذا المصنف التدريبي للتمرين أثناء قراءة هذه المقالة.

4 أمثلة على مولد الأرقام العشوائية بدون تكرار في Excel VBA

كتابة التعليمات البرمجية في محرر Visual Basic

إلى إنشاء أرقام عشوائية بدون تكرار ، نحتاج إلى فتح و كتابة VBA كود في محرر أساسيات مرئية. اتبع الخطوات لفتح المحرر الأساسي المرئي واكتب بعض التعليمات البرمجية هناك.

• انتقل إلى علامة التبويب المطور من شريط Excel .
• انقر فوق الخيار Visual Basic.

• في النافذة Visual Basic For Applications ، انقر فوق إدراج القائمة المنسدلة إلى حدد وحدة جديدة خيار .

الآن ضع كود داخل محرر الكود المرئي و اضغط F5 إلى تشغيل

1. استخدام وظيفة VBA Rnd لإنشاء رقم عشوائي بدون تكرارات

يتم استخدام وظيفة Rnd في Excel VBA إلى قم بإنشاء أرقام عشوائية تكون بين 0 و 1 حصري.

المهمة : إنشاء 10 أرقام عشوائية بين 0 و 1 في خلايا A1: A10.

Code : أدخل الكود التالي في محرر visual basic واضغط F5 لتشغيل .

4239

الإخراج : تظهر لقطة الشاشة أعلاه 10 أرقام عشوائية فريدة في النطاق من 0 و 1.

شرح الكود:

في هذا الكود ، استخدمنا دالة Rnd إلى أدخل أرقامًا عشوائية في نطاق الخلايا A1: A10 . قبل إدخال a رقم جديد ، استخدمنا Do while Loop إلى انظر للرقم في نطاق الخلايا المحدد مسبقًا (A1: A10) سواء كان موجودًا بالفعل أو ليس . للتحقق من وجود وجود للرقم في نطاق الخلايا في كل مرة ، قمنا بتكوين الكود باستخدام وظيفة COUNTIF ، هذه الوظيفة يتحقق من a رقم عشوائي جديد في قائمة من أرقام موجودة بالفعل قبل إدخالها.

اقرأ المزيد : صيغة Excel لإنشاء رقم عشوائي (5 أمثلة)

2. مولد الأرقام العشوائية للمحددين السفليين والعليا مع عدم وجود تكرارات

إلى إنشاء أرقام عشوائية ضمن نطاق محدد ، نحتاج إلى قم بتعيين Lowerbound و upperbound في كود VBA الخاص بنا. للحصول على معلومات ، فإن Lowerbound هو أقل رقم و أعلى هو أعلى رقم في النطاق لمولد الأرقام العشوائية. يمكننا استخدام الصيغة التالية في التعليمات البرمجية. مولد الأرقام- عشري

المهمة : توليد 10 أرقام عشوائية بين 10 و 20 في الخلايا A1: A10.

Code : أدخل الكود التالي في محرر visual basic واضغط F5 لتشغيل تشغيل .

1603

الإخراج : تظهر لقطة الشاشة أعلاه 10 أرقام عشوائية فريدة في النطاق من 1 و 10.

2.2 مولد الأرقام العشوائية- عدد صحيح

في هذا الرسم التوضيحي ، سنستخدم وظيفة VBA Int إلى إزالة الجزء الجزء الكسري من الأرقام العشوائية .

المهمة : أنشئ 20 رقمًا صحيحًا عشوائيًا بين 1 و 20 في الخلايا A1: B10.

Code : أدخل الكود التالي في محرر visual basic واضغط F5 لتشغيل تشغيل .

5289

الإخراج : تظهر لقطة الشاشة أعلاه 20 رقمًا صحيحًا عشوائيًا فريدًا في النطاق من 1 إلى 20.

اقرأ المزيد: مولد الأرقام العشوائية في Excel بدون تكرار (9 طرق)

قراءات مماثلة

• مولد رقم عشوائي مع أداة تحليل البيانات والوظائف في Excel
• كيف توليد بيانات عشوائية في Excel (9طرق سهلة)
• مولد أرقام عشوائي مكون من 5 أرقام في Excel (7 أمثلة)
• مولد أرقام عشوائي مكون من 4 أرقام في Excel (8 أمثلة)
• إنشاء رقم عشوائي من القائمة في Excel (4 طرق)

3. تحديد المنازل العشرية لمولِّد الأرقام العشوائية الفريدة في Excel VBA

يمكننا استخدام وظيفة Round في الكود الخاص بنا إلى تحديد رقم من منازل عشرية في أرقام فريدة تم إنشاؤها عشوائيًا . إن بناء الجملة للوظيفة هو-

دائري (تعبير ، [عدد عشري])

نحتاج إلى تحديد الوسيطة الثانية وفقًا لمتطلبات .

المهمة : إنشاء 20 رقمًا عشوائيًا مع منزلتين عشريتين بين 1 و 20 في الخلايا A1: B10.

Code : أدخل الكود التالي في محرر visual basic واضغط F5 إلى تشغيل .

3964

الإخراج : تظهر لقطة الشاشة أعلاه 20 رقمًا صحيحًا عشوائيًا فريدًا مع منزلتان عشريتان في النطاق من 1 و 20.

قراءة المزيد: إنشاء رقم عشوائي في Excel باستخدام الكسور العشرية (3 طرق)

4. قم بتطوير Userform لمولد الأرقام العشوائية بدون تكرارات في Excel VBA

في هذا الرسم التوضيحي ، سنوضح كيفية استخدام UserForm في Excel VBA إلى إنشاء أرقام عشوائية مع بدون تكرارات .

المهمة: إنشاء20 رقمًا عشوائيًا في نطاق الخلايا A1: B10 باستخدام UserForm مع قيم الإدخال (i) Lowerbound (ii) الجزء العلوي (iii) عدد المنازل العشرية.

إنشاء UserForm:

اتبع الخطوات أدناه لإنشاء UserForm مع حقول الإدخال المطلوبة .

• انتقل إلى علامة التبويب Developer من شريط Excel .
• انقر فوق على مرئي خيار أساسي.

• في نافذة Visual Basic For Applications ، انقر فوق إدراج القائمة المنسدلة إلى حدد الخيار UserForm .

• في UserForm add a التسمية .
• التسمية التوضيحية التسمية كـ LowerBound في الخصائص.

• أضف الآن ثلاثة مربعات نصية في UserForm .

• في هذه المرحلة ، أضف a CommandButton وتسميته إنشاء .

• الآن ، انقر نقرًا مزدوجًا فوق CommandButton ثم ضع الرمز التالي في محرر الكود .

5184

• اضغط على F5 لتشغيل تشغيل الرمز و UserForm به ظهر .
• ضع Lowerbound ، upperbound ، و number من منازل عشرية في UserForm واضغط على إنشاءالزر .

الإخراج : في الخلايا A1: B10 ، يوجد 20 عشوائيًا الأرقام مع منزلتان عشريتان في النطاق من 1 إلى 30.

اقرأ المزيد: كيفية إنشاء أرقام عشوائية بدون تكرارات في Excel (7 طرق)

أشياء يجب تذكرها

• يمكننا أيضًا استخدام وظيفة الإصلاح بدلاً من دالة Int إلى تولد أرقامًا صحيحة فريدة . تزيل الوظيفة الجزء الكسري من رقم تمامًا مثل دالة Int .

خاتمة

الآن ، نحن نعرف كيفية إنشاء أرقام عشوائية فريدة باستخدام VBA في Excel بمساعدة الأمثلة المناسبة. نأمل أن يساعدك ذلك على استخدام الوظيفة بثقة أكبر. أي أسئلة أو اقتراحات لا تنسى وضعها في مربع التعليق أدناه.