سؤال في دالة SUBTOTAL للجمـــــــع

[اوفيس 2003]

T.xlsx

عند استخدام الدالة في الجمع للخلايا في عمود ما    واخفاء اي صف فإنها لا تحتسب الخلايا المخفية  

 

انا اريد ذلك ايضا في في الجمع للخلايا في صف ما    حيث عند اخفاء اي عمود  اجد ان الخلايا المخفية تحتسب ايضا في الجمع 

وموضح اكثر ما اريد في الملف المرفق

ولكم جزيل الشكر 

[إيهاب عبد الحميد]

السلام عليكم ورحمة الله وبركاته
أخي الكريم توضيح فقط وهو أن دالة subtotal تعمل فقط مع اخفاء الصفوف ولا تعمل مع الأعمدة
وهنا عليك استخدام هذه الصيغة
=(CELL("width",E6)>0)*E6+(CELL("width",G6)>0)*G6+(CELL("width",I6)>0)*I6+(CELL("width",K6)>0)*K6
ولكن مع ملاحضة أن هذه الصيغة كلما أخفيت عمود أو أظهرت عمود يجب تحديثها أي تقف على الصيفة مثلا وتضغط F2 ثم تضغط Enter
ويمكنك استخدام هذا الكود 

 
Public Function SumVisible(Rg As Range) As Double
    Dim xCell As Range
    Dim xRg As Range
    Dim xOutRg As Range
    On Error Resume Next
    Application.Volatile
    Set xRg = Application.Intersect(Rg, Rg.Worksheet.UsedRange)
    If Not (xRg Is Nothing) Then
        For Each xCell In xRg
            If (xCell.EntireRow.Hidden = False) And _
               (xCell.EntireColumn.Hidden = False) Then
                If xOutRg Is Nothing Then
                    Set xOutRg = xCell
                Else
                    Set xOutRg = Application.Union(xCell, xOutRg)
                End If
            End If
        Next
    End If
    If Not xOutRg Is Nothing Then
        SumVisible = Application.Evaluate("SUM(" & xOutRg.Address & ")")
    Else
        SumVisible = 0
    End If
End Function

 

د يجمع سواء الصفوف أو الأعمده الظاهرة في النطاق المراد جمعه ولكن الكود يعمل تلقائي مع الصفوف وبخصوص الأعمدة يجب تحديث الخلية التي ستضع فيها الصيغة الناشئة من الكود وهي 
=sible(Range)

هذا والله أعلم

[اوفيس 2003]

اشكرك على الدعم والمساعده  

 

الا يوجد في الدوال الجديدة  ل 365 القيام بالعمل ذلك