كيفية جمع القيم بسرعة باستثناء الأعمدة المخفية في Excel؟

لجمع القيم باستثناء الصفوف المخفية، يمكنك استخدام الصيغة =SUBTOTAL() لحل المشكلة، ولكن ماذا عن جمع القيم مع تجاهل الأعمدة المخفية؟ هنا يقدّم هذا المقال الحيل للقيام بعملية الجمع السريع للقيم الموجودة فقط في الأعمدة المرئية.

جمع القيم باستثناء الأعمدة المخفية باستخدام VBA

جمع/متوسط/عد باستثناء الأعمدة المخفية باستخدام Kutools لـ Excel

جمع القيم باستثناء الأعمدة المخفية باستخدام VBA

إليك كود VBA يمكن أن يساعدك على جمع الأعمدة المرئية بسرعة فقط.

1. اضغط على مفاتيح Alt + F11 لعرض نافذة Microsoft Visual for Basic Applications.

2. انقر فوق إدراج > وحدة، والصق الكود أدناه في نافذة الوحدة الجديدة.

VBA: جمع قيم الأعمدة المرئية فقط

Public Function SumVisible(Rg As Range) As Double
'UpdatebyExtendOffice20160302
    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

3. احفظ الكود وأغلق النافذة، ثم عد إلى اختيار خلية فارغة حيث ستضع النتيجة المحسوبة، واكتب هذه الصيغة =SumVisible(A1:C9)، واضغط على مفتاح Enter، وسيظهر لك مجموع النتائج الصحيح.

نصيحة: في الصيغة، A1:C9 هي الخلايا التي تريد جمعها.

جمع/متوسط/عد باستثناء الأعمدة المخفية باستخدام Kutools لـ Excel

ربما لا تكون معتادًا على كتابة أكواد VBA، ولكن إذا كان لديك Kutools لـ Excel مثبتًا، يمكنك حل هذه المهمة بسرعة وسهولة.

1. حدد خلية فارغة ستحتوي على نتيجة الجمع، E1 على سبيل المثال، وانقر Kutools > Kutools Functions > Statistical & Math > SUMVISIBLE. شاهد لقطة الشاشة:

2. في Function Arguments الحوار، انقر لتحديد الخلايا التي تريد جمعها داخل مربع النص Reference ويمكنك معاينة النتيجة المحسوبة في الأسفل. شاهد لقطة الشاشة:

3. انقر موافق، وسيتم جمع الأعمدة المرئية فقط.

باستخدام Kutools لـ Excelيمكنك أيضًا العد أو حساب المتوسط في الخلايا/الصفوف/الأعمدة المرئية. شاهد لقطة الشاشة:

نصيحة: يمكنك أيضًا كتابة هذه الصيغة مباشرةً =SUMVISIBLE(A1:C9)/ =COUNTVISIBLE(A1:C9)/ =AVERAGEVISIBLE(A1:C9) في الخلية للحصول على النتيجة بعد تثبيت Kutools لـ Excel.