كيفية التحقق مما إذا كان الرقم عددًا أوليًا في 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 يومًا.

اقرأ أكثر... تحميل مجاني ... شراء...

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

تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...

التعليقات (21)

لا يوجد تقييم. كن أول من يقيم!

يوشي إينوموتو

منذ حوالي 6 سنوات

#18148

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبًا ، أحب مقالتك. شكرًا جزيلاً. أظهرت اختباراتي البسيطة أن 99 كان عددًا أوليًا بينما 99 ليس كما هو الحال مع 99 مقسومًا على 3 و 33 بالإضافة إلى 1 و 99. هل يمكنك إخباري بما هو الخطأ في عمليتي؟

رد

كريج ب

منذ حوالي 5 سنوات

#18605

تم تصغير هذا التعليق بواسطة المشرف على الموقع

صيغة الصفيف أعلاه لا تعمل ولكن وظيفة تعريف المستخدم تعمل وكانت مفيدة للغاية. شكرًا!

رد

كريج ب

منذ حوالي 5 سنوات

#18606

تم تصغير هذا التعليق بواسطة المشرف على الموقع

لا تعمل صيغة الصفيف ولكن الدالة المحددة من قبل المستخدم تعمل وكانت مفيدة للغاية. شكرًا!

رد

ريك

منذ حوالي 5 سنوات

#19688

تم تصغير هذا التعليق بواسطة المشرف على الموقع

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

رد

جون كينيدي أكينو ريك

منذ حوالي 5 سنوات

#19689

تم تصغير هذا التعليق بواسطة المشرف على الموقع

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

رد

جون كينيدي أكينو

منذ حوالي 5 سنوات

#20144

تم تصغير هذا التعليق بواسطة المشرف على الموقع

هذا هو الإصدار الأسرع لدي 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

رد

جان سميتانا (Xsoft)

منذ حوالي 5 سنوات

#21463

تم تصغير هذا التعليق بواسطة المشرف على الموقع

الصيغة الخاصة بك لا تعمل. على سبيل المثال. 1681 ليس عددًا أوليًا ولكن بالصيغة يكون كذلك.
=IF(A2=2,"Prime",IF(AND(MOD(A2,ROW(INDIRECT("2:"&ROUNDUP(SQRT(A2),0))))<>0),"Prime","Not Prime"))

رد

بلغ

سكايانغ جان سميتانا (Xsoft)

منذ حوالي 5 سنوات

#21464

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبًا جان ،
الصيغة أعلاه صحيحة ، بعد لصق الصيغة في خلية ، يجب أن تضغط على Ctrl + Shift + Enter معًا ، وليس مفتاح Enter فقط.
يرجى المحاولة مرة أخرى ، شكرا لك!

رد

بلغ

جان سميتانا (Xsoft) سكايانغ

منذ حوالي 5 سنوات

#21465

تم تصغير هذا التعليق بواسطة المشرف على الموقع

نعم ، كان هذا هو الحال مع محرك البحث المخصص. شكرًا (تم إصلاحه الآن).
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

رد

بلغ

vaibhav

منذ حوالي 4 سنوات

#27553

تم تصغير هذا التعليق بواسطة المشرف على الموقع

حسنًا ، 4095 ليس عددًا أوليًا. لا يزال يعطي نتيجة لا على الرغم من ذلك. انها غير صحيحة.

رد

سكايانغ vaibhav

منذ حوالي 4 سنوات

#27554

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبًا ، فايبهاف ،
عند لصق الصيغة أعلاه ، يجب أن تضغط على Ctrl + Shift + Enter معًا ، وليس فقط مفتاح الإدخال ، يرجى المحاولة مرة أخرى.

رد

بلغ

نايثان

منذ حوالي 3 سنوات

#29330

تم تصغير هذا التعليق بواسطة المشرف على الموقع

يوجد خطأ مرجعي عند كتابة الأرقام التي تحتوي على أكثر من 12 رقمًا.

رد

سكايانغ نايثان

منذ حوالي 3 سنوات

#29331

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبا ناثان
كما قلت ، عندما تكون الأرقام أطول من 12 رقمًا ، ستصبح تدوينًا علميًا. لم يتم تطبيق الصيغة على هذا التنسيق.

رد

بلغ

كيران

منذ حوالي 3 سنوات

#30086

تم تصغير هذا التعليق بواسطة المشرف على الموقع

نعم لقد نجحت عندما فعلت Ctrl + Shift + Enter ... !! شكرا ..: د و هل تمانع في شرح الخوارزمية من فضلك.

رد

جيان

منذ حوالي 3 سنوات

#31797

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبا.

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

شكرا مقدما

رد

بلغ

سكايانغ جيان

منذ حوالي 3 سنوات

#31798

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبا جيان
إذا كانت الصيغة لا تعمل بشكل صحيح بالنسبة لك ، يمكنك تطبيق الطريقة الثانية - دالة معرّفة من قبل المستخدم. من فضلك حاول ، آمل أن يساعدك!
شكرا!

رد

بلغ

جيان سكايانغ

منذ حوالي 3 سنوات

#31799

تم تصغير هذا التعليق بواسطة المشرف على الموقع

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

شكرا!

رد

بلغ

كريس

منذ حوالي 2 سنوات

#32875

تم تصغير هذا التعليق بواسطة المشرف على الموقع

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

رد