كيفية التحقق مما إذا كان الرقم عددًا أوليًا في 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" ، انظر لقطة الشاشة:
2. ثم حدد الخلية C2 ، واسحب مقبض التعبئة لأسفل إلى الخلايا التي تريد تطبيق هذه الصيغة ، وسيتم تحديد جميع الأرقام إذا كان عددًا أوليًا أم لا. انظر لقطة الشاشة:
تحقق مما إذا كان الرقم عددًا أوليًا باستخدام وظيفة محددة بواسطة المستخدم
ما يلي وظيفة تعريف المستخدم يمكن أن يساعدك أيضًا في التحقق من الأرقام إذا كانت أولية أم لا ، يرجى القيام بما يلي:
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 ، انظر لقطة الشاشة:
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!