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

[اوفيس 2003]

T.xlsxFetching info...

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

 

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

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

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

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

السلام عليكم ورحمة الله وبركاته
أخي الكريم توضيح فقط وهو أن دالة 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 القيام بالعمل ذلك