كيف تحسب متوسط الأرقام الموجبة أو السالبة فقط في Excel؟
في Excel، يُعد حساب متوسط الأرقام الموجبة فقط أو السالبة فقط في نطاق يحتوي على كلا النوعين من القيم متطلبًا شائعًا، خاصةً عند تحليل الأرباح مقابل الخسائر، أو الإيرادات مقابل المصروفات، أو أي سيناريوهات أخرى تختلف فيها دلالة الأرقام الموجبة عن السالبة. فإذا استخدمت الدالةAVERAGEالقياسية، فستُدخل الأرقام الموجبة والسالبة معًا في الحساب—وهو ما قد لا يتوافق مع هدفك. ويستعرض هذا الدليل طرقًا عملية لحساب متوسط الأرقام الموجبة أو السالبة فقط في Excel، مع إرشادات خطوة بخطوة تغطي الصيغ والأدوات المضمنة ورمز VBA لتلبية احتياجات جميع المستخدمين.
احسب متوسط الأرقام الموجبة أو السالبة فقط باستخدام الصيغ
اعرض متوسط الأرقام الموجبة أو السالبة فقط باستخدام Kutools لـ Excel 
احسب متوسط الأرقام الموجبة أو السالبة فقط تلقائيًا باستخدام رمز VBA
احسب متوسط الأرقام الموجبة أو السالبة فقط باستخدام الصيغ
لحساب متوسط الأرقام الموجبة فقط في نطاق، توفّر Excel صيغ مصفوفة تضمّ القيم التي تتوافق مع الشرط المحدّد. وهي الخيار الأمثل عندما لا ترغب في استخدام الإضافات أو الأدوات الخارجية، وتحتاج إلى حساب المتوسط بسرعة باستخدام الصيغ مباشرةً داخل ورقة العمل.
1. أدخل الصيغة التالية في خلية فارغة ليظهر الناتج فيها:
=AVERAGE(IF(A1:D10>0,A1:D10,""))في هذا المثال، يمثّلA1:D10 نطاق البيانات الذي يحتوي على أرقام موجبة وسالبة.
2. بعد إدخال الصيغة، اضغط علىCtrl + Shift + Enter في آنٍ واحد لتأكيدها كصيغة مصفوفة. وإذا تم ذلك بشكل صحيح، ستظهر أقواس مجعّدة{ } حول صيغتك في شريط الصيغة، كما هو موضّح أدناه:
شرح الصيغة ومدى إمكانية تكيّفها:
- تعمل هذه التقنية مع النطاقات الأفقية والرأسية على حدٍّ سواء. عدّل النطاق ليتناسب مع ورقة العمل الخاصة بك.
- إذا لم يحتوِ نطاقك على أرقام موجبة واستخدمت هذه الصيغة لحساب متوسط القيم الموجبة، فسيعرض الناتج خطأ #DIV/0! لأنّه لا توجد أرقام مؤهلة لحساب المتوسط. وينطبق الأمر نفسه على الأرقام السالبة عند استخدام صيغة الأرقام السالبة الموضحة أدناه. ويمكنك تجنّب هذا الخطأ ببساطة عن طريق وضع الصيغة داخل دالة
IFERRORلجعلها أكثر موثوقية:
=IFERROR(AVERAGE(IF(A1:D10>0,A1:D10,"")), "")لحساب متوسط الأرقام السالبة فقط، استخدم الصيغة التالية:
=AVERAGE(IF(A1:D10<0,A1:D10,""))- تذكّر الضغط علىCtrl + Shift + Enter بعد إدخال الصيغة لتعمل بشكل صحيح.
ملاحظات:
1. A1:D10 هو النطاق الذي تريد حساب متوسطه المشروط؛ عدّله وفقًا لبياناتك.
2. إذا أردت أن يستثني المتوسط القيمة صفر أو قيمًا معيّنة، يمكنك تخصيص شرط المنطق داخل الصيغة بشكل أدق.
3. يمكنك استخدام هذا الأسلوب فيExcel 365 أوExcel 2019 والإصدارات الأحدث دون الحاجة إلى الضغط علىCtrl + Shift + Enter، لأن المصفوفات الديناميكية مدعومة افتراضيًا. أما في الإصدارات السابقة، فستحتاج إلى استخدام تركيبة هذه المفاتيح مع الصيغ المصفوفة.
4. إذا كانت بياناتك تحتوي على أخطاء (مثل)#DIV/0! أو#N/A)، فقد تُرجع الصيغة أخطاءً أيضًا. فكّر في استخدام دالةIFERROR للتعامل مع هذه الاستثناءات بسلاسة!
اعرض متوسط الأرقام الموجبة أو السالبة فقط باستخدام Kutools لـ Excel
إذا كنت قد ثبّتَKutools لـ Excel، فإن ميزةتحديد خلايا محددةالخاصة به تتيح لك اختيار الأرقام الموجبة فقط أو السالبة فقط داخل نطاقٍ ما بسرعةٍ فائقة. وفورًا يظهر المتوسط في شريط الحالة في Excel، مما يلغي الحاجة إلى إدخال صيغ إضافية! هذه الطريقة مثالية خصوصًا للمستخدمين الذين يفضلون أسلوبًا بصريًّا وتفاعليًّا لتلخيص البيانات المحددة دون الاضطرار إلى استخدام صيغ معقّدة.
1. حدّد نطاق البيانات الذي يحتوي على الأرقام الموجبة والسالبة التي تريد تحليلها.
2. انتقل إلىKutools > تحديد > تحديد خلايا محددةكما هو موضّح أدناه:
3. في مربع حوارتحديد خلايا محددة، قم بما يلي:
- اختر خيارخليةضمننوع التحديد.
- عيّن الشرط للأرقام الموجبة باختيارأكبر منفي قائمةتحديد النوعالمنسدلة، ثم أدخل0 في حقل القيمة.
- بالنسبة للأرقام السالبة، اخترأصغر منوأدخل مرة أخرى0.
انقر علىموافق، وسيقوم Kutools تلقائيًا بتحديد الخلايا التي تطابق معاييرك، ثم يعرض مربع حوار تأكيد بعدد الخلايا المحددة.
4. بعد تحديد الخلايا، ما عليك سوى النظر إلى شريط الحالة في Excel بالزاوية السفلية اليمنى من النافذة لترى متوسط القيم للخلايا المحددة—ويُحدَّث هذا الحساب فورًا دون الحاجة إلى إدخال أي صيغ!
 |  |
| نتيجة الأرقام الموجبة فقط | نتيجة الأرقام السالبة فقط |
المزايا والاعتبارات:
- ليست هناك حاجة لكتابة الصيغ أو تذكّرها—وهو مثالي للتحليل السريع أثناء العمل.
- تعمل هذه الطريقة بشكل ممتاز مع مجموعات البيانات الصغيرة والمتوسطة، ولكن إذا تضمّن تحديدها العديد من الخلايا غير الرقمية أو الأخطاء، فتأكد يدويًا من دقة ملخص شريط الحالة.
- يمكنك أيضًا النقر بزر الماوس الأيمن على شريط الحالة لتخصيص عمليات الحساب التي ترغب في عرضها، مثل المتوسط، المجموع، العد، وغيرها.
عرض توضيحي: جمع/متوسط/عد الأرقام الموجبة أو السالبة فقط باستخدام Kutools لـ Excel Kutools لـ Excel: أكثر من 300 أداة مفيدة بين يديك! استمتع بميزات مدعومة بالذكاء الاصطناعي لإنجاز عملك بذكاء وسرعة أكبر!حمّل الآن!
احسب متوسط الأرقام الموجبة أو السالبة فقط تلقائيًا باستخدام رمز VBA
بالنسبة للمستخدمين الذين يحتاجون غالبًا إلى حساب هذه المتوسطات لنطاقات مختلفة أو يرغبون في أتمتة العملية، يمكن لاستخدام ماكرو VBA بسيط أن وقت الحفظ ويحسّن الدقة. وهذه الطريقة الأنسب إذا كانت لديك مهام متكررة أو تنسيقات بيانات معقّدة، وكنت مرتاحًا لاستخدام محرر Visual Basic for Applications (VBA) في Excel.
1. انقر علىأدوات المطور > Visual Basic لفتح نافذةMicrosoft Visual Basic for Applications. في المحرر، انقر علىإدراج > وحدة نمطية، ثم انسخ والصق أحد الرموز التالية في الوحدة الجديدة.
لحساب متوسط الأرقام الموجبة فقط في تحديد النطاق، استخدم الماكرو التالي:
Sub AveragePositiveNumbers()
Dim rng As Range
Dim cell As Range
Dim sum As Double
Dim count As Long
Dim result As Variant
xTitleId = "KutoolsforExcel"
On Error Resume Next
Set rng = Application.Selection
Set rng = Application.InputBox("Please select the range to average positive numbers", xTitleId, rng.Address, Type:=8)
On Error GoTo 0
If rng Is Nothing Then Exit Sub
sum = 0
count = 0
For Each cell In rng
If IsNumeric(cell.Value) And cell.Value > 0 Then
sum = sum + cell.Value
count = count + 1
End If
Next cell
If count > 0 Then
result = sum / count
MsgBox "The average of only the positive numbers is " & result, vbInformation, xTitleId
Else
MsgBox "No positive numbers found in the selected range.", vbExclamation, xTitleId
End If
End Subلحساب متوسط الأرقام السالبة فقط، استخدم الكود أدناه:
Sub AverageNegativeNumbers()
Dim rng As Range
Dim cell As Range
Dim sum As Double
Dim count As Long
Dim result As Variant
xTitleId = "KutoolsforExcel"
On Error Resume Next
Set rng = Application.Selection
Set rng = Application.InputBox("Please select the range to average negative numbers", xTitleId, rng.Address, Type:=8)
On Error GoTo 0
If rng Is Nothing Then Exit Sub
sum = 0
count = 0
For Each cell In rng
If IsNumeric(cell.Value) And cell.Value < 0 Then
sum = sum + cell.Value
count = count + 1
End If
Next cell
If count > 0 Then
result = sum / count
MsgBox "The average of only the negative numbers is " & result, vbInformation, xTitleId
Else
MsgBox "No negative numbers found in the selected range.", vbExclamation, xTitleId
End If
End Sub2. بعد إدخال الماكرو، عُد إلى Excel. اضغطF5 أو انقرتشغيل. في مربع الحوار الذي يظهر، يمكنك تحديد النطاق لحسابك، وسيتم عرض المتوسط (أو تحذير إذا لم يُعثَر على أرقام مؤهلة) في مربع رسالة.
نصائح واستكشاف الأخطاء وإصلاحها:
- تأكد من حفظ ملفك كملف يدعم الماكرو ()
.xlsm) إذا أردت الاحتفاظ بـماكروك وإعادة استخدامه لاحقًا. - يقوم هذا الماكرو بحساب متوسط الخلايا الرقمية فقط—ويتم تجاهل الخلايا التي تحتوي على نصوص أو خلايا فارغة أو أخطاء تلقائيًا.
- إذا كانت مجموعة بياناتك تحتوي على كميات كبيرة جدًّا من البيانات أو تتغيّر بشكل متكرر، فإن الأتمتة باستخدام VBA تساعد في تجنّب الأخطاء اليدوية ووقت الحفظ.
- إذا ظهر لك تحذير أمان الماكرو، غيّر إعدادات الماكرو في خيارات Excel > مركز التوثيق للسماح بتشغيل الماكرو.
عند اختيار طريقة ما، فكّر في سير عملك ومهاراتك في Excel:
- الصيغسريعة ومرنة، لكنها تتطلب إدخالًا كمصفوفة ومرجعية صحيحة.
- Kutools فعّالٌ في المهام التفاعلية ويُجنّبك إدخال الصيغ يدويًا.
- ماكرو VBAمثالي للبيئات التي تتطلب إعداد تقارير متكررة أو آلية.
إذا واجهت أخطاءً في الحساب أو نتائج غير متوقعة، فتأكد أولًا من أن نطاقاتك خالية من أنواع البيانات غير المرغوب فيها والأخطاء، وتحقق من تطبيق الشرط الصحيح (مثل «أكبر من الصفر» أو «أقل من الصفر»)، ثم عدّل المراجع حسب الحاجة. وللحالات الأكثر تقدمًا—مثل تجاهل الأخطاء أو القيم المحددة—أدرج منطقًا مناسبًا داخل صيغك أو عبر VBA للتعامل مع الأخطاء أو تصفية القيم بفعالية.
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل