كيف تجد أصغر قيمة موجبة (أكبر من 0) في Excel؟
يُعد العثور على أصغر قيمة موجبة ضمن مجموعة بيانات من المتطلبات الشائعة عند تحليل البيانات الواقعية في Excel. فغالبًا ما تحتوي جداول البيانات على أرقام سالبة أو أصفار أو خلايا فارغة، خاصةً في سيناريوهات مثل السجلات المالية، والقياسات العلمية، أو ردود الاستبيانات. وعندما تحتاج إلى استخراج أصغر رقم موجب (أي القيم الأكبر من الصفر بشكل صارم)، فإن اعتماد النهج المناسب يوفّر الوقت ويقلل الأخطاء. ويعرض هذا الدليل عدة حلول عملية يمكنك تطبيقها فورًا، وفقًا لمجموعة البيانات الخاصة بك وسير عملك.
العثور على أصغر قيمة موجبة باستخدام صيغة
العثور على أصغر قيمة موجبة باستخدام KUTOOLS AI Aide
ماكرو VBA للعثور على أصغر قيمة موجبة
العثور على أصغر قيمة موجبة باستخدام صيغة
عندما تحتاج إلى حلٍ فوري باستخدام ميزات Excel المدمجة وتريد أن تتجدّد نتائجك تلقائيًا مع كل تحديث للبيانات، تكون الصيغ خيارًا موثوقًا. وتتيح لك صيغ المصفوفات في Excel استخراج أصغر قيمة تفوق الصفر، مما يرشّح تلقائيًا الأرقام السالبة والأصفار من نطاقك.
حدد خلية فارغة، ثم أدخل الصيغة التالية واضغطCtrl+Shift+Enter (وليس مفتاح Enter فقط) لتأكيد صيغة المصفوفة واسترجاع أصغر قيمة موجبة من نطاقك المحدد.
=MIN(IF(A1:D15>0,A1:D15))تلميح:استبدلA1:D15 في الصيغة بنطاق البيانات الفعلي الخاص بك حسب الحاجة. تتجاهل الصيغة الخلايا الفارغة والقيم الصفرية والسالبة، لذا تُؤخذ بعين الاعتبار فقط القيم الموجبة الأكبر من 0.
إذا كانت نسخة Excel الخاصة بك تدعمالمصفوفات الديناميكية (Excel 365 وExcel 2021+)، فقد يكفيك الضغط على Enter وحده دون الحاجة إلى استخدام Ctrl+Shift+Enter.
هذه الطريقة مثالية لتحديث الصيغ تلقائيًا كلما تغيّرت البيانات الأساسية، خاصةً عند عدم الحاجة إلى ميزات متقدمة مثل الأتمتة أو الذكاء الاصطناعي. ومع ذلك، فهي أقل ملاءمة لمجموعات البيانات الكبيرة جدًّا، إذ قد تؤثر الصيغ المعقدة وغير الضرورية سلبًا على الأداء.
العثور على أصغر قيمة موجبة باستخدام KUTOOLS AI Aide
إذا كنت تبحث عن خيار تفاعلي للغاية ومتمحور حول المستخدم، فإن «مساعد الذكاء الاصطناعي» من Kutools لـ Excel يوفّر طريقة مبتكرة لأتمتة المنطق المعقد دون الحاجة إلى كتابة صيغ. يقوم KUTOOLS AI بتحليل تحديد البيانات الخاص بك ويُظهر نتائج دقيقة فورًا، ما يجعله خيارًا مثاليًا للمستخدمين الذين يفضلون سير عمل توجيهيًا ومحادثيًا لإجراء تحليل ذكي خلال ثوانٍ—بغض النظر عن مستواهم في إتقان Excel.
بعد تثبيت Kutools لـ Excel، يُرجى النقر على «Kutools» > «مساعد الذكاء الاصطناعي» لفتح لوحة «KUTOOLS AI Aide».
- حدد نطاق البيانات الذي ترغب في تحليله.
- في لوحة مساعد الذكاء الاصطناعي، اكتب طلبك بوضوح في مربع الدردشة، على سبيل المثال:اعثر على أصغر قيمة موجبة في التحديد واملأها بلون أزرق فاتح
- اضغطEnter أو انقر على زرإرسال. سيقوم KUTOOLS AI بمعالجة طلبك فورًا. وبمجرد ظهور الحل المقترح، اضغط على زرتنفيذلتمييز القيمة أو استخراجها وفقًا لاختيارك.
تُعد هذه الطريقة المدعومة بالذكاء الاصطناعي الخيار الأمثل عندما تكون سهولة الاستخدام والسرعة وأتمتة المهام على رأس أولوياتك، أو عندما تحتاج إلى أكثر من مجرد القيمة—مثل التمييز أو إنشاء التقارير. وعلى الرغم من سهولتها الفائقة، فإنها تتطلب تثبيت Kutools لـ Excel واتصالاً بالإنترنت لتفعيل ميزات الذكاء الاصطناعي.
ماكرو VBA للعثور على أصغر قيمة موجبة
للمستخدمين الراغبين في أتمتة العملية والتعامل مع مجموعات بيانات أكبر أو متغيرة ديناميكيًّا، يُعد استخدام ماكرو VBA نهجًا فعّالًا قائمًا على التعليمات البرمجية. يمكنك إنشاء ماكرو قصير وتشغيله لفحص النطاق المحدد وإرجاع أصغر قيمة موجبة (أكبر من الصفر بشكل صارم) تلقائيًا. وتُعد هذه الطريقة مثالية للاستخدام المتكرر، أو المعالجة الدفعية، أو عند الحاجة إلى تخصيص المنطق بشكل أكبر.
1. افتح محرر VBA بالنقر علىأدوات المطور > Visual Basic. في نافذة Microsoft Visual Basic for Applications الجديدة، اخترإدراج > وحدة نمطية، ثم الصق الكود التالي في الوحدة النمطية:
Sub FindSmallestPositiveValue()
Dim WorkRng As Range
Dim cell As Range
Dim MinValue As Double
Dim IsFound As Boolean
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Select the range to search for the smallest positive value (greater than 0):", xTitleId, WorkRng.Address, Type:=8)
MinValue = 0
IsFound = False
For Each cell In WorkRng
If IsNumeric(cell.Value) And cell.Value > 0 Then
If Not IsFound Then
MinValue = cell.Value
IsFound = True
ElseIf cell.Value < MinValue Then
MinValue = cell.Value
End If
End If
Next cell
If IsFound Then
MsgBox "The smallest positive value (greater than 0) is: " & MinValue, vbInformation, "KutoolsforExcel"
Else
MsgBox "No positive values (greater than 0) found in the selected range.", vbExclamation, "KutoolsforExcel"
End If
End Sub2. لتشغيل الماكرو، أغلق نافذة VBA، ثم حدد أي خلية في ورقة العمل الخاصة بك، وانتقل إلىأدوات المطور > ماكرو، وحددFindSmallestPositiveValue، ثم انقر علىتشغيل. بعد ذلك، سيعرض لك مربع حوار مطالبة لتحديد نطاقك—فقط اختر منطقة بياناتك وقم بالتأكيد. وستظهر النتيجة فورًا في مربع رسالة!
يُعدّ هذا النهج الأكثر فائدة عند الحاجة إلى إجراء فحوصات متكررة، أو عند رغبتك في تجنّب تعديل خلايا ورقة العمل عن غير قصد. فهو يتعامل بسلاسة مع البيانات ذات الأنواع المختلطة، ويتجاهل تلقائيًا الخلايا الفارغة وغير الرقمية، ويُظهر تنبيهًا فور اكتشاف عدم وجود قيم موجبة صالحة.
لمزيد من نصائح الكفاءة في Excel وآلاف الأدلة التفصيلية، زُرموردنا الشامل لدروس Excel.
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل