كيفية جمع خلايا الأعمدة الظاهرة فقط

[شكيب عمار]

كيفية جمع خلايا الأعمدة الظاهرة فقط ؟ بارك الله فيكم

[محي الدين ابو البشر]

مثال

=AGGREGATE(9,5,B3:B7)

 

[شكيب عمار]

شكرا على الرد، هل تعمل على أوفيس 2007 لأنها لم تظهر معي

[محي الدين ابو البشر]

بصراحة لا أدري تعمل على 2010 +

 

=SUBTOTAL(9,B3:B7)

2007 

 

[شكيب عمار]

لم تصلح الدالة ، رجاء هل يوجد حل آخر، بورك فيكم

=SUBTOTAL(9,B3:B7)

[أ / محمد صالح]

Subtotal تعمل على اكسل 2007 وما بعده

ولجمع الصفوف المرئية فقط نستعمل هذه المعادلة

=SUBTOTAL(109,E1:E20)

أما إذا كان المطلوب جمع الأعمدة المرئية فقط فلابد من تدخل جراحي vba بهذه الدالة المعرفة

بعد إضافتها في موديول جديد في نافذة vbe التي نصل إليها ب alt+f11

Function SumVCols(Rng As Range) As Double
Dim Cell As Range
Application.Volatile
For Each Cell In Rng
    If Cell.EntireColumn.Hidden = False And IsNumeric(Cell) Then SumVCols = SumVCols + Cell
Next Cell
End Function

ويتم استعمالها هكذا

=SumVCols(A1:F1)

بالتوفيق 

[شكيب عمار]

شكرا من أعماق قلبي شغالة بارك الله فيكم ودمتم لهذا المنتدى الطيب

[أ / محمد صالح]

جميعا بإذن الله

[lionheart]

=SUMPRODUCT(0+(CELL("width",OFFSET(B2,,N(INDEX(COLUMN(B2:G2)-MIN(COLUMN(B2:G2)),,))))>0),B2:G2)