كيف يمكن توليد جميع الأعداد الأولية بين عددين معطيين في Excel؟
هل سبق أن حاولت في Excel إدراج قائمة بجميع الأعداد الأولية بين عددين معطيين؟ في هذه المقالة، سأعرض لك بعض الطرق المثيرة للاهتمام للتعامل مع هذه المهمة.
توليد جميع الأعداد الأولية بين عددين معطيين باستخدام الصيغ
توليد جميع الأعداد الأولية بين عددين معطيين باستخدام دالة معرّفة من قِبل المستخدم
توليد جميع الأعداد الأولية بين عددين معطيين باستخدام الصيغ
باستخدام دالةتعريف اسممع الصيغ، يمكنك إدراج أو توليد جميع الأعداد الأولية بين عددين محددين. اتبع الخطوات التالية:
1. لإنشاء أول اسم خلية، انقر علىالصيغ > مدير الأسماء، ثم في مربع الحوارمدير الأسماء، انقر على الزرجديد. راجع لقطة الشاشة:
2. في مربع الحواراسم جديد، أدخلrng كاسم للخلية في خانة النصالاسم، ثم أدخل الصيغة التالية في خانة النصيشير إلى: =ROW(INDIRECT(Sheet1!$B$1&":"&Sheet1!$B$2)) (Sheet1 هي ورقة العمل الحالية التي تستخدمها، وB1 وB2 هما العددان الابتدائي والنهاية اللذان حددتهما)، ثم انقر على الزرموافقللعودة إلى مربع الحوار السابق. راجع لقطة الشاشة:
3. استمر في النقر على الزرجديدلإنشاء اسم خلية جديد. في مربع الحواراسم جديد، أدخل الاسمprime في خانة النصالاسم، ثم أدخل هذه الصيغة: =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 هو اسم الخلية الأول الذي أنشأته في الخطوة 2) في خانة النصيشير إلى. راجع لقطة الشاشة:
4. بعد ذلك، انقر علىموافق، وأغلق مربعات الحوار. ثم حدد العمود الذي تريد إدراج جميع الأعداد الأولية فيه، وأدخل الصيغة التالية في شريط الصيغة: =IFERROR(prime,«»)(حيث إن)prime هو اسم الخلية الذي أنشأته في الخطوة 3)، ثم اضغط على مفاتيحCTRL + SHIFT + ENTER معًا. وستظهر لك جميع الأعداد الأولية بين العددين المحددين كما في لقطة الشاشة التالية:
توليد جميع الأعداد الأولية بين عددين معطيين باستخدام دالة معرّفة من قِبل المستخدم
إذا وجدتَ الطريقة الأولى صعبة نوعًا ما، يمكنك هنا تطبيقدالة معرّفة من قِبل المستخدملحلها.
1. اضغط مع الاستمرار على مفاتيحALT + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. انقر علىإدراج > وحدة نمطية، ثم الصق الكود التالي في نافذةالوحدة النمطية.
كود VBA: توليد جميع الأعداد الأولية بين عددين محددين:
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. بعد ذلك، احفظ وأغلق هذا الكود، ثم ارجع إلى ورقة العمل وأدخل الصيغة التالية: =prime(10,100) (10 هو الرقم الأول، و100 هو الرقم الأخير الذي تريد الحصول على الأعداد الأولية بينهما، ويمكنك تغييرهما حسب حاجتك). بعد ذلك، اضغط على مفتاحEnter، وستُعرض جميع الأعداد الأولية في خلية واحدة. راجع لقطة الشاشة:
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل