Obtenez la Somme de lignes visibles dans VBA

Je veux être en mesure de filtrer et afficher le nombre d' & sumif de l'aire de répartition mondiale et le visible (filtré). Avec le code suivant, je suis en mesure d'afficher le nombre d' & sumif de l'aire de répartition mondiale:

AtmCount = Application.WorksheetFunction.CountIf(Range("X3:X4533"), ">0")
AtmSum = Application.WorksheetFunction.Sum(Range("X3:X4533"))

Avec cette partie, je suis en mesure d'afficher le nombre de une plage filtrée:

AtmCurrentCount = Range("X3:X4533").SpecialCells(xlCellTypeVisible).Count
AtmCurrentSum = ???

Quelqu'un pourrait-il m'aider à obtenir le Somme de seulement les lignes visibles?

Cela peut ne pas être la solution idéale, mais si vous copiez la plage utilisée sur une nouvelle feuille, il ne copie que les données filtrées vous permettant de faire les calculs vous avez besoin plus facilement
Pas une option Ripster que les données changent trop souvent.

OriginalL'auteur CustomX | 2013-07-24

  1. 6

    Cela va faire ce que vous voulez. Ensemble visibleTotal pour le type de données approprié pour le total, et de changer le ws et rng objets correspond à ce que vous avez dans votre classeur.

    Sub SumVisible()
    Dim ws As Worksheet
    Dim rng As Range
    Dim visibleTotal As Long

    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set rng = ws.Range("B1:B7")

    ws.AutoFilterMode = False
    rng.AutoFilter field:=1, Criteria1:=5

    visibleTotal = Application.WorksheetFunction.Sum(rng.SpecialCells(xlCellTypeVisible))
    ' print to the immediate window
    Debug.Print visibleTotal
End Sub

    Dans le cas où vous ne souhaitez calculer la somme de la partie de la plage filtrée (par exemple un filtre sur la colonne A, mais veulent la somme de la colonne B), voir à cette question et la réponse: Copier/Coller/Calculer les Cellules Visibles à partir d'une Colonne d'une Table Filtrée.

    Fonctionne comme un charme 🙂

    OriginalL'auteur Jon Crowell

  2. 2

    si vous ne souhaitez somme plutôt que de sumif

    AtmCurrentSum = application.worksheetfunction.subtotal(9, Range("X3:X4533"))
    Je pense que votre exemple de code manque d'information?
    J'ai ajouté la variable pensais que c'était de l'auto-explicatif 😉
    Pas la variable 😉 Quand j'ai ajouté votre fonction " WorksheetFunction... ça donne une erreur sur le code
    J'ai ajouté le application. partie si elle n'est généralement pas nécessaire

    OriginalL'auteur JosieP

  3. 0

    Je viens de tomber sur ce site.
    https://www.techrepublic.com/blog/microsoft-office/how-to-sum-values-in-an-excel-filtered-list/

    La formule de base est
    x = Application.WorksheetFunction.Sous-total('numéro de code', 'range')
    La formule que vous voulez est
    x = Application.WorksheetFunction.Sous-total(109, range(x, y))

    OriginalL'auteur gavin

  4. 0

    La fonction Sous SumVisible() n'a pas fonctionné pour moi au lieu de cela j'ai utilisé la fonction sous-total.Attention l'utilisation de la fonction de numéro de 109,102,104,105 à ignore les valeurs cachées. c'est à dire à calcule uniquement sur les cellules visibles.

    "https://support.office.com/en-us/article/subtotal-function-7b027003-f060-4ade-9040-e478765b9939"

    aSum = WorksheetFunction.Subtotal(109, CalcRange) 
aCount = Application.WorksheetFunction.Subtotal(102, CalcRange)
aMax = Application.WorksheetFunction.Subtotal(104, CalcRange)
aMin = Application.WorksheetFunction.Subtotal(105, CalcRange)

    OriginalL'auteur SUNIL KUMAR

  5. 0

    Si un besoin de COMPTER le nombre d'éléments visibles dans une liste filtrée, puis utilisez le sous-total de la fonction, qui ignore automatiquement les lignes qui sont masquées par un filtre.

    Le sous-total de la fonction peut effectuer des calculs comme COUNT, SUM, MAX, MIN, MOYENNE, PRODUIT et beaucoup plus (Voir le tableau ci-dessous). Automatiquement, il ignore les éléments qui ne sont pas visibles dans une liste filtrée ou de la table. Cela le rend idéal pour montrer combien d'articles sont visibles dans une liste, le sous-total des lignes visibles, etc. Il fournit également le contrôle des lignes cacher manuellement manuellement.

    La solution à votre question serait de compter le nombre de lignes non vide visible dans la Colonne A et la Colonne B lorsqu'un filtre est actif, vous pouvez utiliser:

    AtmCurrentSum = Application.WorksheetFunction.Subtotal(109, Range("$X$3:$X$4533"))

    Obtenez la Somme de lignes visibles dans VBA

    Points à retenir lorsque vous appliquez la sous-total de la formule:

    • Quand function_num (Premier argument) est comprise entre 1 à 11, sous-total inclut des valeurs qui sont cachés à la main, mais ignorer caché par le filtre.
    • Quand function_num est entre 101-111, sous-total exclut toutes sortes de valeurs cachées.
    • Dans les listes filtrées, toujours sous-total ignore les valeurs dans les lignes cachées, indépendamment de function_num.
    • Sous-total ignore d'autres sous-totaux qui existent dans la références sont ignorées pour empêcher
      double-comptage
    • Total partiel seulement travailler avec les données verticales valeurs disposées verticalement.
    • Horizontales dans les Colonnes Masquées, les valeurs sont toujours inclus, et n'a jamais ignoré.

    OriginalL'auteur jainashish