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

كيفية التحقق مما إذا كان الرقم عددًا أوليًا في Excel؟

كما نعلم جميعًا ، الرقم الأولي هو عدد طبيعي يحتوي فقط على مقسومين طبيعيين مختلفين: واحد ونفسه. إذا كانت لديك قائمة أرقام في ورقة عمل ، فكيف يمكنك التحقق مما إذا كانت الأرقام أعدادًا أولية؟

تحقق مما إذا كان الرقم عددًا أوليًا باستخدام صيغة صفيف

تحقق مما إذا كان الرقم عددًا أوليًا باستخدام وظيفة محددة بواسطة المستخدم


السهم الأزرق الحق فقاعة تحقق مما إذا كان الرقم عددًا أوليًا باستخدام صيغة صفيف

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

1. أدخل الصيغة التالية في خلية فارغة - C2 على سبيل المثال بجانب البيانات الخاصة بك:

=IF(A2=2,"Prime",IF(AND(MOD(A2,ROW(INDIRECT("2:"&ROUNDUP(SQRT(A2),0))))<>0),"Prime","Not Prime")) (A2 هي الخلية التي تحتوي على الرقم الذي تريد التحقق منه) ، ثم اضغط على كترل + شيفت + إنتر معًا ، وستحصل على النتيجة ، إذا كان الرقم أوليًا ، فسيتم عرض "Prime" في الخلية ، وإذا لم يكن الأمر كذلك ، فسيتم عرض "Not Prime" ، انظر لقطة الشاشة:

تحقق من المستند إذا كان العدد الأولي 1

2. ثم حدد الخلية C2 ، واسحب مقبض التعبئة لأسفل إلى الخلايا التي تريد تطبيق هذه الصيغة ، وسيتم تحديد جميع الأرقام إذا كان عددًا أوليًا أم لا. انظر لقطة الشاشة:

تحقق من المستند إذا كان العدد الأولي 2


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

ما يلي وظيفة تعريف المستخدم يمكن أن يساعدك أيضًا في التحقق من الأرقام إذا كانت أولية أم لا ، يرجى القيام بما يلي:

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

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

كود فبا: تحقق مما إذا كان الرقم أوليًا أم لا:

Function CheckPrime(Numb As Single) As Boolean
'Updateby Extendoffice
    Dim X As Long
    If Numb < 2 Or (Numb <> 2 And Numb Mod 2 = 0) _
     Or Numb <> Int(Numb) Then Exit Function
    For X = 3 To Sqr(Numb) Step 2
        If Numb Mod X = 0 Then Exit Function
    Next
    CheckPrime = True
End Function

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

تحقق من المستند إذا كان العدد الأولي 3


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

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٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (21)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، أحب مقالتك. شكرًا جزيلاً. أظهرت اختباراتي البسيطة أن 99 كان عددًا أوليًا بينما 99 ليس كما هو الحال مع 99 مقسومًا على 3 و 33 بالإضافة إلى 1 و 99. هل يمكنك إخباري بما هو الخطأ في عمليتي؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
صيغة الصفيف أعلاه لا تعمل ولكن وظيفة تعريف المستخدم تعمل وكانت مفيدة للغاية. شكرًا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا تعمل صيغة الصفيف ولكن الدالة المحددة من قبل المستخدم تعمل وكانت مفيدة للغاية. شكرًا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا يبدو أن الوظيفة التي يحددها المستخدم تعمل للأرقام التي تزيد عن 16777213
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Generatoreprimenumbersbetween () begin_number = 99990 'قيمة الإدخال هنا last_number = 99999' قيمة الإدخال هنا primenumbers = "" For a = start_number To last_number لـ b = 2 إلى a If a - b * Int (a / b) = 0 ثم ab ثم الخروج من أجل آخر إذا كان a = b ثم primenumbers = primenumbers & "" & a end if if Next b التالية a MsgBox primenumbers end sub function primenumbersbet between (begin_number، last_number) primenumbers = "" For a = start_number to last_number for b = 2 To أ إذا أ - ب * Int (أ / ب) = 0 وأب ، ثم اخرج من أجل آخر إذا أ = ب ثم الأعداد الأولية = الأعداد الأولية & "" & أ إذا انتهى إذا التالي ب التالي ، الأعداد الأولية بين الأعداد الأولية = الدالة النهائية 'للتحقق مما إذا رقم أولي Sub ISPRIME () number_to_be_checked = 102 'قيمة الإدخال هنا لـ b = 2 To number_to_be_checked إذا كان number_to_be_checked - b * Int (number_to_be_checked / b) = 0 و _ number_to_be_checked b ثم MsgBox "ليس رئيسًا. قابل للقسمة بواسطة" & b Sub Else If number_to_be_checked = b ثم MsgBox "Prime" End If End If Next b End Sub 'للتحقق مما إذا كان الرقم أوليًا الوظيفة ISPRIME2 (number_to_be_checked) لـ b = 2 To number_to_be_checked إذا كان number_to_be_checked - b * Int (number_to_be_checked / b) = 0 و _ number_to_be_checked b ثم ISPRIME2 = "ليس رئيسًا. قابلة للقسمة على "& b إنهاء الوظيفة ، وإلا إذا number_to_be_checked = b ثم ISPRIME2 =" Prime "End If Next إذا التالي b End Function
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا هو الإصدار الأسرع لدي Generatoreprimenumbersbetween3 () start_number = 1 'قيمة الإدخال هنا last_number = 30000' قيمة الإدخال هنا primenumbers = "" For a = begin_number To last_number c = a for b = 2 To c If a Mod b = 0 and cb ثم الخروج من أجل آخر إذا ب = c ثم الأعداد الأولية = الأعداد الأولية & "" & خروج من أجل آخر إذا كان دائريًا (a / (b + 1)) + 1> b ثم c = Round (a / (b + 1)) + 1 End If End If End إذا التالي b التالي ، MsgBox primenumbers End Sub ISPRIME3 () number_to_be_checked = 2000000000 'قيمة الإدخال هنا c = number_to_be_checked لـ b = 2 To c If number_to_be_checked Mod b = 0 ثم MsgBox "ليس Prime. قابل للقسمة على" & b خروج Sub عدا ذلك إذا كان b = c ثم MsgBox "Prime" اخرج Sub Else If Round (number_to_be_checked / (b + 1)) + 1> b ثم c = Round (number_to_be_checked / (b + 1)) + 1 End If End If Next ب End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
الصيغة الخاصة بك لا تعمل. على سبيل المثال. 1681 ليس عددًا أوليًا ولكن بالصيغة يكون كذلك.
=IF(A2=2,"Prime",IF(AND(MOD(A2,ROW(INDIRECT("2:"&ROUNDUP(SQRT(A2),0))))<>0),"Prime","Not Prime"))
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا جان ،
الصيغة أعلاه صحيحة ، بعد لصق الصيغة في خلية ، يجب أن تضغط على Ctrl + Shift + Enter معًا ، وليس مفتاح Enter فقط.
يرجى المحاولة مرة أخرى ، شكرا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
نعم ، كان هذا هو الحال مع محرك البحث المخصص. شكرًا (تم إصلاحه الآن).
https://superuser.com/questions/674566/when-to-use-ctrlshiftenter-and-when-to-use-enter-in-excel

راجع البديل التشيكي إلى:
=IF(A2=2,"Prime",IF(AND(MOD(A2,ROW(INDIRECT("2:"&ROUNDUP(SQRT(A2),0))))<>0),"Prime","Not Prime"))
هو:
=KDYŽ(A2=2;"Prime";KDYŽ(A(MOD(A2;ŘÁDEK(NEPŘÍMÝ.ODKAZ("2:"&ROUNDUP(ODMOCNINA(A2);0))))<>0);"Prime";"Not Prime"))

قارن: https://imgur.com/a/4MgeV
تم تصغير هذا التعليق بواسطة المشرف على الموقع
حسنًا ، 4095 ليس عددًا أوليًا. لا يزال يعطي نتيجة لا على الرغم من ذلك. انها غير صحيحة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، فايبهاف ،
عند لصق الصيغة أعلاه ، يجب أن تضغط على Ctrl + Shift + Enter معًا ، وليس فقط مفتاح الإدخال ، يرجى المحاولة مرة أخرى.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يوجد خطأ مرجعي عند كتابة الأرقام التي تحتوي على أكثر من 12 رقمًا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ناثان
كما قلت ، عندما تكون الأرقام أطول من 12 رقمًا ، ستصبح تدوينًا علميًا. لم يتم تطبيق الصيغة على هذا التنسيق.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
نعم لقد نجحت عندما فعلت Ctrl + Shift + Enter ... !! شكرا ..: د و هل تمانع في شرح الخوارزمية من فضلك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا.

أنا أستخدم إصدارًا إيطاليًا من Excel ، لذا لا تعمل الصيغة ولدي خطأ. هل يمكنك مساعدتي؟

شكرا مقدما
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا جيان
إذا كانت الصيغة لا تعمل بشكل صحيح بالنسبة لك ، يمكنك تطبيق الطريقة الثانية - دالة معرّفة من قبل المستخدم. من فضلك حاول ، آمل أن يساعدك!
شكرا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا سكاييانغ.
إذا كان من الممكن أن يكون مفيدًا للباحثين الآخرين ، فأعلمك أنني وجدت الحل لمشكلتي هنا => http://www.riolab.org/index.php?option=com_content&view=article&id=172&Itemid=68

شكرا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هناك بالتأكيد مشكلة في هذه المعادلة. لقد قمت بعمل نسخة / لصق مباشر وتحققت من أنها نسخة مخلصة ولكنها لا تزال تحتوي على 9 و 15 و 21 و 25 و 33 و 35 و 39 كأعداد أولية بينما من الواضح أنها ليست كذلك. عند الفحص السريع ، يبدو أن العوامل 3 و 5 تؤدي إلى نوع من المشاكل. إنها معادلة معقدة للغاية لخلية واحدة - لدرجة أنه لا يمكنني معرفة ما تحاول فعله. عادةً ما أقوم بتقسيم مثل هذه الأشياء إلى خلايا متعددة لتسهيل عملية تصحيح الأخطاء (والتي أعتقد أنها أفضل ممارسات Excel).
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هناك بالتأكيد مشكلة في هذه المعادلة. لقد قمت بعمل نسخة / لصق مباشر وتحققت من أنها نسخة مخلصة ولكنها لا تزال تحتوي على 9 و 15 و 21 و 25 و 33 و 35 و 39 كأعداد أولية بينما من الواضح أنها ليست كذلك. عند الفحص السريع ، يبدو أن العوامل 3 و 5 تؤدي إلى نوع من المشاكل. إنها معادلة معقدة للغاية لخلية واحدة - لدرجة أنه لا يمكنني معرفة ما تحاول فعله. عادةً ما أقوم بتقسيم مثل هذه الأشياء إلى خلايا متعددة لتسهيل عملية تصحيح الأخطاء (والتي أعتقد أنها أفضل ممارسات Excel). يبدو أن الوظيفة تعمل.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا تدخل التركيبات في الخلية. حدد الخلية ثم الصق الصيغ في شريط الصيغ واضغط على ctrl + shft + Enter. يجب أن يضع {حول الصيغ} وإلا فإنه خطأ.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كريج ، شكرًا - هذا يعمل! معذرةً ، لم أقرأ التعليمات بدقة كافية.
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

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