Wie kann man Summe nur die Zeilen in Excel nicht herausgefiltert?

Question

Ich verwende die SUM(B1..B20) Formel, um eine Spalte zu summieren, aber wenn ich die Daten, die von einer benachbarten Spalte filtern, wobei die Summe aktualisiert nicht nur die Zeilen nicht herausgefiltert zu reflektieren. Wie kann man das tun?

Answer 1

Sie müssen die

Answer 2

Wenn Sie nicht ein Auto-Filter verwenden (dh Sie haben Zeilen manuell ausgeblendet), müssen Sie die AGGREGATE Funktion anstelle von SUBTOTAL.

Wenn Sie Autofilter verwenden, um Ergebnisse zu filtern, wird Excel nicht einmal die Mühe, sie zu verstecken. Es setzt nur die Höhe der Zeile auf Null (bis 2003 zumindest auf 2007 nicht sicher)

So ist die folgende benutzerdefinierte Funktion sollten Sie einen Starter geben zu tun, was Sie wollen (getestet mit ganzen Zahlen, nicht mit irgendetwas anderes gespielt):

Function SumVis(r As Range)
    Dim cell As Excel.Range
    Dim total As Variant

    For Each cell In r.Cells
        If cell.Height <> 0 Then
            total = total + cell.Value
        End If
    Next

    SumVis = total
End Function

Edit:

Sie müssen ein Modul in der Arbeitsmappe erstellen, die Funktion in setzen, dann können Sie nur auf Ihrem Blatt nennen wie jede andere Funktion (= SumVis (A1: A14)). Wenn Sie das Modul einrichten müssen helfen, lassen Sie es mich wissen.

Answer 3

Wenn Sie nicht ein Auto-Filter verwenden (dh Sie haben Zeilen manuell ausgeblendet), müssen Sie die AGGREGATE Funktion anstelle von SUBTOTAL.

Answer 4

Wenn Sie Autofilter verwenden, um Ergebnisse zu filtern, wird Excel nicht einmal die Mühe, sie zu verstecken. Es setzt nur die Höhe der Zeile auf Null (bis 2003 zumindest auf 2007 nicht sicher)

So ist die folgende benutzerdefinierte Funktion sollten Sie einen Starter geben zu tun, was Sie wollen (getestet mit ganzen Zahlen, nicht mit irgendetwas anderes gespielt):

Function SumVis(r As Range)
    Dim cell As Excel.Range
    Dim total As Variant

    For Each cell In r.Cells
        If cell.Height <> 0 Then
            total = total + cell.Value
        End If
    Next

    SumVis = total
End Function

Edit:

Sie müssen ein Modul in der Arbeitsmappe erstellen, die Funktion in setzen, dann können Sie nur auf Ihrem Blatt nennen wie jede andere Funktion (= SumVis (A1: A14)). Wenn Sie das Modul einrichten müssen helfen, lassen Sie es mich wissen.