La somme des chiffres des nombres dans une cellule en utilisant la fonction VBA personnalisée dans Microsoft Excel
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.
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.
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]