Dans cet article, nous allons créer une fonction personnalisée pour calculer la somme des chiffres dans une cellule.

Les exemples de données pour cet exemple sont des données de vente. Chaque agent a vendu un produit différent. Dans une cellule, nous avons le nombre d’articles vendus suivi du nom du produit. Nous voulons trouver le total des articles vendus par chaque agent.

ArrowRaw

Nous avons créé la fonction «SumDigits» pour calculer la somme des chiffres de la cellule. Cette fonction prend la plage de la cellule en entrée et renvoie la somme des chiffres de la cellule.

ArrowOutput

Explication logique

Nous avons créé la fonction personnalisée «SumDigits» pour calculer la somme des chiffres dans une cellule. Dans cette fonction, nous trouvons la longueur de la chaîne dans la cellule, puis bouclons du premier caractère au dernier caractère de la chaîne. Ensuite, nous trouvons et ajoutons les valeurs numériques trouvées dans la chaîne pour obtenir la somme des chiffres.

Explication du code

Milieu (nombre, i, 1)

La fonction Mid est utilisée pour extraire la sous-chaîne de la chaîne principale.

Le code ci-dessus extraira un caractère de la chaîne principale à la fois.

IsNumeric (valeur)

La fonction IsNumeric est utilisée pour vérifier si la valeur donnée est numérique.

Val (valeur)

La fonction Val est utilisée pour convertir la chaîne en valeur numérique.

Veuillez suivre ci-dessous pour le code

Option Explicit

Function SumDigits(Number As Variant)

Dim i As Integer

For i = 1 To Len(Number)

If IsNumeric(Mid(Number, i, 1)) Then

SumDigits = SumDigits + Val(Mid(Number, i, 1))

End If

Next i

End Function

Si vous avez aimé ce blog, partagez-le avec vos amis sur Facebook et Facebook.

Nous serions ravis de vous entendre, faites-nous savoir comment nous pouvons améliorer notre travail et le rendre meilleur pour vous. Écrivez-nous à [email protected]