كيف يمكنك التحقق مما إذا كان العدد أوليًّا في Excel؟
كما نعلم جميعًا، العدد الأولي هو عدد طبيعي يقبل القسمة فقط على عددين طبيعيين مختلفين: الواحد والعدد نفسه. إذا كانت لديك قائمة بأعداد في ورقة عمل، فكيف يمكنك التحقق مما إذا كانت هذه الأعداد أولية أم لا؟
التحقق مما إذا كان العدد عددًا أوليًّا باستخدام صيغة مصفوفة
التحقق مما إذا كان العدد عددًا أوليًّا باستخدام دالة معرَّفة من قِبل المستخدم
التحقق مما إذا كان العدد عددًا أوليًّا باستخدام صيغة مصفوفة
يمكنك الصيغة التالية مساعدةً في تحديد ما إذا كان العدد عددًا أوليًّا أم لا، يُرجى اتباع الخطوات التالية:
1. أدخل الصيغة التالية في خلية فارغة — مثل الخلية C2 المجاورة لبياناتك:
=IF(A2=2,«Prime»,IF(AND(MOD(A2,ROW(INDIRECT("2:"&ROUNDUP(SQRT(A2),0))))<>0),«Prime»,«Not Prime»))(A2هي الخلية التي تحتوي على العدد الذي تريد التحقق منه)، ثم اضغط على مفاتيحCtrl + Shift + Enterمعًا، وستحصل على النتيجة؛ فإذا كان العدد أوليًّا، فسيُعرض «Prime» في الخلية، وإذا لم يكن كذلك، فسيُعرض «Not Prime»، انظر لقطة الشاشة:
2. بعد ذلك، حدد الخلية C2، ثم اسحب مقبض التعبئة لأسفل إلى الخلايا التي تريد تطبيق الصيغة عليها—وسيتم تحديد ما إذا كانت الأعداد أولية أم لا. انظر لقطة الشاشة:
افتح سحر إكسل مع KUTOOLS AI
- التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
- الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
- برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
- تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
- ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!
التحقق مما إذا كان العدد عددًا أوليًّا باستخدام دالة معرَّفة من قِبل المستخدم
الدالة التالية المعرَّفة من قِبل المستخدمUser Defined Functionيمكنها أيضًا مساعدتك في التحقق مما إذا كانت الأعداد أولية أم لا، يُرجى اتباع ما يلي:
1. اضغط مع الاستمرار على مفاتيحALT + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. انقر فوقInsert > Module، ثم الصق الكود التالي في نافذةModule Window.
كود VBA: التحقق مما إذا كان العدد أوليًّا أم لا:
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) في خلية فارغة بجانب قائمة أعدادك. بعد ذلك، اسحب مقبض التعبئة لأسفل حتى تصل إلى الخلايا التي تريد تطبيق الصيغة عليها. إذا كان العدد أوليًّا، سيُعرضTRUE، وإذا لم يكن كذلك، سيُعرضFALSE. راجع لقطة الشاشة التالية:
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل