Note: The other languages of the website are Google-translated. Back to English

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

هل فكرت يومًا في إنشاء أرقام يانصيب في Excel ، أو إنشاء مولد أرقام يانصيب في Excel بنفسك؟ في هذه المقالة ، أقدم لك ثلاث طرق لإنجازها بسهولة.


قم بإنشاء أرقام يانصيب باستخدام وظائف Excel

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

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

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

(شنومكس) في الخلية A1 ، أدخل الصيغة = راند ()، ثم اسحب مقبض التعبئة إلى النطاق A2: A50.
(شنومكس) في الخلية بكسنومكس ، أدخل الصيغة =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،XNUMX، FALSE) بداخله ، واسحب مقبض التعبئة إلى النطاق الذي تريده.

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

ثم ستحصل على أرقام اليانصيب كما هو موضح أدناه:

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

سرد بسهولة كل مجموعة من عدة سلاسل من البيانات في Excel

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


كقائمة جميع المجموعات 1

كوتولس ل إكسيل - يتضمن أكثر من 300 أداة يدوية لبرنامج Excel. نسخة تجريبية مجانية كاملة الميزات 30اليوم ، لا حاجة لبطاقة ائتمان! احصل عليه الآن

قم بإنشاء أرقام يانصيب باستخدام VBA Macro

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

1. صحافة قديم + F11 مفاتيح لفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

2. انقر إدراج > وحدة لفتح نافذة وحدة جديدة ، ولصق رمز فبا التالي بداخلها:

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. الآن في مربع الحوار المنبثق ، حدد خلية لإخراج أرقام اليانصيب ، وانقر فوق OK .

ثم سترى 6 أرقام يانصيب فريدة يتم إنشاؤها وعرضها في الخلايا المحددة.


توليد أرقام اليانصيب مع كوتولس ل إكسيل

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

كوتولس ل إكسيل - يتضمن أكثر من 300 أداة يدوية لبرنامج Excel. نسخة تجريبية مجانية كاملة الميزات 30اليوم ، لا حاجة لبطاقة ائتمان! تجربة مجانية الآن!

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

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

كوتولس ل إكسيل - يتضمن أكثر من 300 أداة يدوية لبرنامج Excel. نسخة تجريبية مجانية كاملة الميزات 30اليوم ، لا حاجة لبطاقة ائتمان! احصل عليه الآن


عرض توضيحي: قم بإنشاء أرقام يانصيب باستخدام Kutools for Excel


كوتولس ل إكسيل يتضمن أكثر من 300 أداة يدوية لبرنامج Excel ، يمكن تجربتها مجانًا دون قيود في غضون 30 يومًا. تنزيل وتجربة مجانية الآن!

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


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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (15)
تقييم شنومك من شنومكس · تصنيفات 1
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يرجى القيام بسهولة للعثور على برامج الكمبيوتر
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أود الفوز ببعض رقم الحظ
تم تصغير هذا التعليق بواسطة المشرف على الموقع
: أود أن أجرب برامجك الجديدة وانظر كيف تتنبأ الأرقام
تم تصغير هذا التعليق بواسطة المشرف على الموقع
حساب تخمين اليوم التالي ليانصيب ولاية كيرالا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحباً ، سانتانام ، هل ربحت كل هذا البرنامج؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
احسب رقم يانصيب اليوم التالي ليانصيب كيرالا - الهند
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ما هو الغرض من COUNTIF (B $ 1: B1، B1) -1 في الصيغة في الخطوة B؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا هيونغسوب كيم ،
COUNTIF (B $ 1: B1، B1) -1 سيمنع التكرارات في العمود B. على سبيل المثال ، إذا كانت B1 قيمة فريدة ، فسيعيد هذا الجزء 0 الذي لن يؤثر على نتيجة الترتيب ؛ إذا كان B1 مكررًا ، فسيقوم هذا الجزء بتعديل نتيجة الترتيب قليلاً.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، لقد جربت طريقة Vlookup التي أظهرتها هنا ، وهي تعمل بشكل رائع ومن السهل إنشاء الأرقام للمجموعة من 1 إلى 49.

لكنني كنت أفكر في حذف بعض الأرقام في اللعب على سبيل المثال بدلاً من تشغيل الأرقام ، سيكون لدي 25 رقمًا من 1 إلى 49. كيف سأحتاج إلى تعديل صيغة Vlookup لجعلها تعمل؟
تقييم شنومك من شنومكس
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا Yogi ، آسف لأنني لا أفهم طلبك تمامًا. ماذا تقصد بالحصول على 25 رقمًا من 1 إلى 49؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
نعم 25 رقمًا من 1 إلى 49.
لقد حاولت استخدام نفس الصيغة ولكن بمجرد اختيار رقم أكبر من 25 ، لا يمكن إظهار الرقم التالي في التسلسل ويحدث خطأ.
تقييم شنومك من شنومكس
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لك أماندا على مساعدتك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
الملف لا يعمل مع fromula ، ما هو wronG

واسمحوا لي أن أعرف

أنا نسخ الصيغة الصيغية كل شيء صحيح.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا هناك،

هل يمكنك إرفاق الملف الذي تعمل به من فضلك؟

أماندا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
النظام لا يعمل ، ما هو الخطأ لقد أدخلت كل الصيغة
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL