نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيفية توليد جميع الأرقام الأولية بين رقمين معينين في إكسيل؟

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

توليد جميع الأرقام الأولية بين اثنين من الأرقام المعطاة مع الصيغ

توليد جميع الأرقام الأولية بين اثنين من أرقام معينة مع وظيفة تعريف المستخدم


السهم الأزرق الفقاعة اليمنى توليد جميع الأرقام الأولية بين اثنين من الأرقام المعطاة مع الصيغ


الجمع بين تحديد الاسم وظيفة والصيغ، يمكنك سرد أو توليد جميع الأرقام الأولية بين الرقمين محددة. يرجى القيام بما يلي:

1. يرجى إنشاء اسم النطاق الأول بالنقر الصيغ > مدير الاسم، وفي مدير الاسم مربع الحوار، انقر فوق جديد زر، انظر الصورة:

قائمة دوك الأعداد الأولية شنومكس

2. في اسم جديد مربع الحوار، في الاسم مربع النص، يرجى إدخال RNG كاسم النطاق، ثم أدخل هذه الصيغة: = ROW (! غير مباشرة (Sheet1 $ B $ 1 و":" وSheet1 $ B $ 2)) (Sheet1 هي ورقة العمل الحالية التي استخدمتها، B1 و B2 هي أرقام البداية والنهاية التي حددتها) في يعود الى مربع النص، ثم انقر فوق OK زر للعودة إلى الحوار السابق. انظر لقطة الشاشة:

قائمة دوك الأعداد الأولية شنومكس

3. انتقل على النقر جديد زر لإنشاء اسم نطاق آخر، في اسم جديد مربع الحوار، أدخل اسما رئيسي في الاسم مربع النص، ثم أدخل هذه الصيغة: =SMALL(IF(MMULT(--(IF(rng>TRANSPOSE(rng-Sheet1!$B$1+2),MOD(rng,(rng>TRANSPOSE(rng-Sheet1!$B$1+2))*TRANSPOSE(rng-Sheet1!$B$1+2)))=0),rng-Sheet1!$B$1+2)=0,rng),ROW(INDIRECT("1:"&Sheet1!$B$2))) (RNG هو اسم النطاق الأول الذي قمت بإنشائه في ستيبنومك) في يعود الى مربع النص، انظر الصورة:

قائمة دوك الأعداد الأولية شنومكس

4. ثم اضغط OK وإغلاق الحوارات، وحدد عمود واحد الذي تريد إدراج جميع الأرقام الأولية، وأدخل هذه الصيغة: = IFERROR (رئيس الوزراء، "")(رئيسي هو اسم النطاق الذي قمت بإنشائه في الخطوة شنومكس) في شريط الصيغة، ثم اضغط كترل + شيفت + إنتر مفاتيح معا، يتم سرد كافة الأرقام الأولية بين رقمين معينين كما يلي قطة شاشة أظهرت:

قائمة دوك الأعداد الأولية شنومكس


السهم الأزرق الفقاعة اليمنى توليد جميع الأرقام الأولية بين اثنين من أرقام معينة مع وظيفة تعريف المستخدم

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

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

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

فبا كود: توليد جميع الأرقام الأولية بين رقمين محددين:

Function PRIME(St, En As Long)
'Updateby Extendoffice 20160613
Dim num As String
For n = St To En
    For m = 2 To n - 1
        If n Mod m = 0 Then GoTo 20:
    Next m
    num = num & n & ","
20:
Next n
PRIME = num
End Function

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

قائمة دوك الأعداد الأولية شنومكس


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

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

علامة تبويب Office توفر واجهة مبوبة لـ Office ، واجعل عملك أسهل بكثير

  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
أسفل مكتبه
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    John Kennedy Aquino · 2 years ago
    Sub generateprimenumbersbetween3()
    starting_number = 1 'input value here
    last_number = 10000 'input value here
    primenumbers = ""
    For a = starting_number To last_number
    c = a
    For b = 2 To c
    If a Mod b = 0 And c b Then
    Exit For
    Else
    If b = c Then
    primenumbers = primenumbers & " " & a
    Exit For
    Else
    If Round(a / (b + 1)) + 1 > b Then
    c = Round(a / (b + 1)) + 1
    End If
    End If
    End If
    Next b
    Next a
    MsgBox primenumbers
    End Sub

    Function PRIMENUMBERSBETWEEN3(starting_number, last_number)
    primenumbers = ""
    For a = starting_number To last_number
    c = a
    For b = 2 To c
    If a Mod b = 0 And c b Then
    Exit For
    Else
    If b = c Then
    primenumbers = primenumbers & " " & a
    Exit For
    Else
    If Round(a / (b + 1)) + 1 > b Then
    c = Round(a / (b + 1)) + 1
    End If
    End If
    End If
    Next b
    Next a
    PRIMENUMBERSBETWEEN3 = primenumbers
    End Function

    Sub ISPRIME3()
    number_to_be_checked = 15485863 'input value here
    c = number_to_be_checked
    For b = 2 To c
    If number_to_be_checked Mod b = 0 And c b Then
    MsgBox "Not Prime. Divisible by " & b
    Exit Sub
    Else
    If b = c Then
    MsgBox "Prime"
    Exit Sub
    Else
    If Round(number_to_be_checked / (b + 1)) + 1 > b Then
    c = Round(number_to_be_checked / (b + 1)) + 1
    End If
    End If
    End If
    Next b
    End Sub
  • To post as a guest, your comment is unpublished.
    John Kennedy Aquino · 2 years ago
    Sub generateprimenumbersbetween()
    starting_number = 1 'input value here
    last_number = 2000 'input value here
    primenumbers = ""
    For a = starting_number To last_number
    For b = 2 To a
    If a - b * Int(a / b) = 0 And a b Then
    Exit For
    Else
    If a = b Then
    primenumbers = primenumbers & " " & a
    End If
    End If
    Next b
    Next a
    MsgBox primenumbers
    End Sub

    Function primenumbersbetween(starting_number, last_number)
    primenumbers = ""
    For a = starting_number To last_number
    For b = 2 To a
    If a - b * Int(a / b) = 0 And a b Then
    Exit For
    Else
    If a = b Then
    primenumbers = primenumbers & " " & a
    End If
    End If
    Next b
    Next a
    primenumbersbetween = primenumbers
    End Function

    'to check if a number is prime
    Sub ISPRIME()
    number_to_be_checked = 102 'input value here
    For b = 2 To number_to_be_checked
    If number_to_be_checked - b * Int(number_to_be_checked / b) = 0 And _
    number_to_be_checked b Then
    MsgBox "Not Prime. Divisible by " & b
    Exit Sub
    Else
    If number_to_be_checked = b Then
    MsgBox "Prime"
    End If
    End If
    Next b
    End Sub

    'to check if a number is prime
    Function ISPRIME2(number_to_be_checked)
    For b = 2 To number_to_be_checked
    If number_to_be_checked - b * Int(number_to_be_checked / b) = 0 And _
    number_to_be_checked b Then
    ISPRIME2 = "Not Prime. Divisible by " & b
    Exit Function
    Else
    If number_to_be_checked = b Then
    ISPRIME2 = "Prime"
    End If
    End If
    Next b
    End Function