كيف تحسب متوسط الخلايا من أوراق عمل مختلفة في Excel؟

إذا كنت بحاجة إلى حساب متوسط نفسالنطاقعبر عدة أوراق عمل—مثلًا، لإيجاد متوسط المبيعات في النطاق A1:A10 عبر الأوراق المسماة Sheet1 إلى Sheet5—فإن Excel يوفّر حلاً مباشرًا يعتمد على صيغة ذكية! ويعمل هذا الأسلوب بأفضل صورة عندما تكون جميع الأوراق متشابهة في هيكلها وأسمائها.

الخطوات:

حدد خلية فارغة تريد وضع الناتج فيها (مثل الخلية C3)، ثم أدخل الصيغة التالية:

=AVERAGE(Sheet1:Sheet5!A1:A10)

بعد الضغط علىEnter، سيُرجع Excel القيمة المتوسطة لنطاق معيّن عبر جميع الأوراق منSheet1 إلىSheet5.

إذا كنت بحاجة إلى حساب متوسط قيم من نطاقات مختلفة عبر الأوراق، يمكنك سرد هذه النطاقات يدويًا:

=AVERAGE(A1:A5, Sheet2!A3:A6, Sheet3!A7:A9, Sheet4!A2:A10, Sheet5!A4:A7)

هذا الإصدار مفيد عندما تختلف النطاقات بين الأوراق. أدخله في خلية الناتج، ثم اضغط علىEnter.

يُعززKutools لـ Excelقدرتك على استخراج وتوحيد القيم من نفس الخلية أو النطاق عبر أوراق عمل متعددة باستخدام ميزتهزيادة تلقائية لمراجع ورقة العمل. وهي ميزة بالغة الفائدة عند التعامل مع عدد كبير من الأوراق ذات التنسيق المتسق!

خطوات الاستخدام:

1. افتح ورقة عمل جديدة (مثل ورقة ملخص)، ثم حدد الخلية التي تريد حساب المتوسط فيها—على سبيل المثال،D7.

2. انتقل إلىKutools > More(ضمن مجموعة)Formula) > زيادة تلقائية لمراجع ورقة العمل.

3. في مربع الحوار:
- اختر ترتيب التعبئة من القائمة المنسدلةترتيب التعبئة (مثل: تعبئة حسب العمود، ثم حسب الصف).
- في قسمقائمة ورقة العمل، حدد الأوراق التي تحتوي على الخلية التي تريد حساب متوسطها.
- انقر علىFill Range، ثم أغلق مربع الحوار.

4. سيتم عرض قيم الخلايا المحددة في النطاق (مثل)D7:D11). بعد ذلك، أدخل الصيغة التالية في خلية فارغة لحساب المتوسط:

=AVERAGE(D7:D11)

اضغط علىEnter للحصول على الناتج. يبسّط هذا التوحيد العملية، لكنه لا يتمدّد تلقائيًا ليشمل الأوراق الجديدة المضافة—ستحتاج إلى إعادة تشغيل الميزة عند تحديث قائمة الأوراق.

في بعض الحالات، قد تحتاج إلى حساب المتوسطات لعدة خلايا متناظرة عبر أوراق عمل متعددة في آنٍ واحد—مثل تلخيص النتائج الخاصة بـ A1 وB1 وC1 من كل ورقة عمل. قد يصبح هذا الأمر شاقًّا عند استخدام الصيغ القياسية، لكن أداة Kutools لـ Excel Combine(الأوراق والملفات) تبسّط هذه العملية بشكل كبير.

كيفية استخدام هذه الوظيفة:

1. انقر علىKUTOOLS PLUS > Combine لفتح معالج تجميع ورقات العمل.

2. في المعالج (الخطوة 1 من 3):
حددتجميع وحساب البيانات من عدة مصنفات إلى ورقة عمل واحدة، ثم انقر علىNext للمتابعة.

3. في الخطوة 2 من 3:
- حدد أوراق العمل التي تريد تضمينها ضمنقائمة ورقة العمل.
- استخدم زرBrowse لتحديد النطاق الذي تريد حساب متوسطه.
- انقر على Same Range إذا كانت النطاقات متطابقة في جميع الأوراق.
- انقر على Next للمتابعة.

4. في الخطوة 3 من 3:
اخترAverage من قائمةFunction المنسدلة. ويمكنك اختياريًا تكوين تسميات الصفوف/الأعمدة حسب الحاجة، ثم انقر علىFinish.

5. سيعرض لك مربع حوار سؤالًا عما إذا كنت ترغب في حفظ الإعدادات الحالية كسيناريو لاستخدامه لاحقًا. اخترYes أوNo بناءً على احتياجاتك.

الآن، ستُظهر كل خلية في منطقة وضع القائمة الذي حددته متوسط الخلايا المتناظرة من جميع الأوراق المحددة. يعد هذا الأسلوب مفيدًا جدًّا للعمليات المتكررة أو عند توحيد كميات كبيرة من البيانات المنظمة بسرعة.

للمستخدمين الذين يحتاجون إلى أتمتة حساب متوسط الخلايا عبر أوراق عمل متعددة—خاصةً عندما تكون أسماء الأوراق غير متجاورة أو تتغير باستمرار، أو عند رغبتهم في تحديد النطاق ديناميكيًا أثناء التشغيل—يُعد ماكرو VBA حلاً فعّالًا. ويُعتبر هذا الأسلوب الأنسب للمستخدمين المتقدمين أو الملفات التي تُضاف إليها أوراق جديدة أو تُعاد تسميتها بشكل متكرر.

يتيح لك رمز VBA التالي إدخال أسماء الأوراق ونطاقات الخلايا ديناميكيًا، ثم يحسب متوسط القيم ضمن نطاق محدد عبر جميع الأوراق المدرجة—مثالي لتوحيد البيانات من ملفات عمل معقدة أو تلك التي يتم تحديثها باستمرار.

كيفية إعداد واستخدام حل VBA هذا:

1. انتقل إلى تبويبDeveloper في Excel. إذا لم يكن ظاهرًا، ففعّله من خلالFile > Options > Customize الشريط. ثم انقر علىVisual Basic لفتح المحرر، وانتقل إلىInsert > Module والصق الكود التالي:

Sub AverageAcrossSheets()
    Dim xSheetNames As String
    Dim xCellRange As String
    Dim xArr As Variant
    Dim xSheet As Worksheet
    Dim xTotal As Double
    Dim xCount As Long
    Dim i As Integer
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    xSheetNames = Application.InputBox("Enter sheet names separated by commas (e.g., Sheet1,Sheet3,Summary):", xTitleId, Type:=2)
    If xSheetNames = "" Then Exit Sub
    
    xCellRange = Application.InputBox("Enter cell or range to average (e.g., A1 or A1:B10):", xTitleId, Type:=2)
    If xCellRange = "" Then Exit Sub
    
    xArr = Split(xSheetNames, ",")
    xTotal = 0
    xCount = 0
    
    For i = LBound(xArr) To UBound(xArr)
        Set xSheet = Nothing
        Set xSheet = ThisWorkbook.Sheets(Trim(xArr(i)))
        
        If Not xSheet Is Nothing Then
            If Not IsError(Application.WorksheetFunction.Average(xSheet.Range(xCellRange))) Then
                xTotal = xTotal + Application.WorksheetFunction.Sum(xSheet.Range(xCellRange))
                xCount = xCount + xSheet.Range(xCellRange).Count
            End If
        End If
    Next i
    
    If xCount = 0 Then
        MsgBox "No valid data found!", vbExclamation, xTitleId
    Else
        MsgBox "The average across selected sheets and range is: " & xTotal / xCount, vbInformation, xTitleId
    End If
End Sub

2. لتشغيل الماكرو، اضغط علىF5 في المحرر، أو أغلق النافذة وانتقل إلىDeveloper > Macros، ثم حددAverageAcrossSheets وانقر علىRun.

3. عند المطالبة، أدخل قائمة بأسماء أوراق العمل مفصَّلة بفواصل (مثل)Sheet1,Sheet3,Summary)، ثم حدد النطاق (مثلA1:A10).

4. سيحسب الماكرو المجموعَ والعددَ من كل ورقة صالحة، ثم يعرض المتوسط في مربع رسالة.

ملاحظات حول المعاملات:

• لا تتأثر أسماء أوراق العمل بحالة الأحرف (كبيرة أو صغيرة)، لكنها يجب أن تتطابق تمامًا.
• يمكن أن يشمل النطاق خلية واحدة، أو عمودًا كاملاً (مثل B:B)، أو نطاقًا مستطيلاً (مثل D2:E12).
• سيتم تخطي الأوراق غير الصالحة أو المفقودة تلقائيًا دون إشعار.