امل المساعدة في معادلة تظهر الجمع تلقائي بعد الفرز والتصفية

[ابوعلي الحبيب]

السلام عليكم
امل المساعدة  في معادلة تظهر  
الجمع تلقائي بعد الفرز والتصفية
 الارقم مرحلة بالمعادلات
حيث جربت  
=SUBTOTAL(109;G5:G23)
=SUBTOTAL(9;G5:G23)
 ولم تظهر النتيجة 
امل المساعدة وشكرا

ترحيل البيانات حسب اسم الشيت الاصل.xlsx

[Saleh Ahmed Rabie]

وعليكم السلام ورحمة الله وبركاته

يبدو أن المشكلة تكمن في استخدام دالة SUBTOTAL بشكل خاطئ. يجب استخدام الدالة INDEX بدلاً من ذلك. يمكنك استخدام الصيغة التالية:

=INDEX(G:G,1)+INDEX(G:G,2)+INDEX(G:G,3)+...+INDEX(G:G,19)+INDEX(G:G,20)+INDEX(G:G,21)+INDEX(G:G,22)+INDEX(G:G,23)

بهذه الطريقة، يمكنك جمع الأرقام في النطاق G5:G23 بعد عملية الفرز والتصفية.

ويمكنك الاستعانة بكود VBA يمكنك استخدامه لجمع الأرقام في النطاق G5:G23 بعد عملية الفرز والتصفية: 

Sub SumAfterFilter()
    Dim rng As Range
    Dim cell As Range
    Dim sum As Double
   
    Set rng = Range("G5:G23").SpecialCells(xlCellTypeVisible)
   
    For Each cell In rng
        sum = sum + cell.Value
    Next cell
   
    MsgBox "المجموع هو: " & sum
End Sub

 

يمكنك نسخ ولصق هذا الكود في وحدة VBA في Excel. ثم يمكنك تشغيله عن طريق النقر فوق زر تشغيل في واجهة Excel. سيتم عرض مربع حوار مع قيمة المجموع بعد عملية الفرز والتصفية.

أتمنى أن يساعدك هذا الكود.

T/ Saleh Rabie

 

 

 

تم تعديل مايو 30 بواسطه 2024

[محمد هشام.]

وعليكم السلام ورحمة الله تعالى وبركاته 

اظن ان المشكلة لديك من المعادلات المستخدمة لجلب البيانات 

ادا كنت تستخدم نسخة 2021 او ما فوق يمكنك حدف جميع الصيغ الموجودة على اوراق العمل 

والاكتفاء بوضع الصيغة التالية في اول خلية لديك على عمود C فقط مع مراعات الفواصل المنقوطة على حسب النسخة لديك 

=FILTER('All Customers'!$C$4:$G$1000;'All Customers'!$E$4:$E$1000=REPLACE(CELL("filename";$A$4);1;FIND("]";CELL("filename";$A$4));""))
'OR
=FILTER('All Customers'!$C$4:$G$1000,'All Customers'!$E$4:$E$1000=REPLACE(CELL("filename",$A$4),1,FIND("]",CELL("filename",$A$4)),""))

 

 

ترحيل البيانات حسب اسم الشيت الاصل.xlsx

[ابوعلي الحبيب]

الأستاذ الفاضل  محمد هشام 

 ماشاء الله تبارك الله عليك 

 بالفعل هذا هو المطلوب

كل الشكر والتقدير لك

 

جزاك الله خير