Comment compter / additionner les cellules barrées dans Excel?

Dans Excel, nous mettons toujours en forme des barres barrées pour certaines cellules qui indiquent que les valeurs de cellule sont inutiles ou non valides, afin que nous puissions analyser les données plus précisément. Dans cet article, je vais expliquer comment faire des calculs dans la plage avec ces cellules barrées dans Excel.

Compter les cellules barrées dans Excel

Compter sans cellules barrées dans Excel

La somme exclut les cellules barrées dans Excel

Compter les cellules barrées dans Excel

Si vous souhaitez savoir combien de cellules au format barré dans une plage, vous pouvez créer une fonction définie par l'utilisateur, procédez comme suit:

1. Maintenez le ALT + F11 clés pour ouvrir le Fenêtre Microsoft Visual Basic pour Applications.

2Cliquez sur insérer > Moduleet collez le code suivant dans le Fenêtre du module.

Code VBA: compter les cellules barrées

Public Function CountStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
    If pRng.Font.Strikethrough Then
        xOut = xOut + 1
    End If
Next
CountStrike = xOut
End Function

3. Ensuite, enregistrez et fermez ce code, revenez à la feuille de calcul, puis entrez cette formule = CountStrike (A2: B14) dans une cellule vide, voir capture d'écran:

4. Appuyez ensuite sur Entrer key, et toutes les cellules barrées ont été comptées. Voir la capture d'écran:

Compter sans cellules barrées dans Excel

Mais, parfois, vous voudrez peut-être compter uniquement le nombre de cellules normales qui excluent les cellules barrées. Le code suivant peut vous aider.

1. Maintenez le ALT + F11 clés pour ouvrir le Fenêtre Microsoft Visual Basic pour Applications.

2Cliquez sur insérer > Moduleet collez le code suivant dans le Fenêtre du module.

Code VBA: compte sans cellules barrées

Public Function CountNoStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
    If Not pRng.Font.Strikethrough Then
        xOut = xOut + 1
    End If
Next
CountNoStrike = xOut
End Function

3. Ensuite, enregistrez et fermez ce code, revenez à votre feuille de calcul, tapez cette formule = countnostrike (A2: B14) dans une cellule vide et appuyez sur Entrer clé, vous obtiendrez le résultat dont vous avez besoin.

Notes: Dans les formules ci-dessus, A2: B14 est la plage à laquelle vous souhaitez appliquer les formules.

La somme exclut les cellules barrées dans Excel

Parce que les cellules barrées ne sont pas utilisées, ici, je veux additionner uniquement les nombres normaux sans les nombres barrés. Pour résoudre cette tâche, vous avez également besoin d'une fonction définie par l'utilisateur.

1. Maintenez le ALT + F11 clés pour ouvrir le Fenêtre Microsoft Visual Basic pour Applications.

2Cliquez sur insérer > Moduleet collez le code suivant dans le Fenêtre du module.

Code VBA: la somme exclut les cellules barrées

Public Function ExcStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
    If Not pRng.Font.Strikethrough Then
        xOut = xOut + pRng.Value
    End If
Next
ExcStrike = xOut
End Function

3. Ensuite, enregistrez et fermez ce code, revenez à votre feuille de calcul, tapez cette formule = coup sec (B2: B14) dans une cellule vide et appuyez sur Entrer clé, et vous obtiendrez la somme de tous les nombres sans les cellules barrées. Voir la capture d'écran:

Notes: Dans les formules ci-dessus, B2: B14 est la plage dans laquelle vous souhaitez additionner les cellules sans format barré.

Articles Liés:

Comment additionner / compter les nombres en gras dans une plage de cellules dans Excel?

Comment compter et additionner les cellules en fonction de la couleur d'arrière-plan dans Excel?

Comment compter / additionner les cellules en fonction des couleurs de police dans Excel?