0
annuler
Votes
Bonjour.
Ce ExtendOffice L'article explique comment insérer du code dans un module afin de calculer les valeurs des nombres dont sont en gras :
https://www.extendoffice.com/documents/excel/1339-excel-sum-count-bold-cells.html#a3
Cependant, le code ignore les décimales et renvoie des résultats inexacts (en particulier lorsqu'il s'agit de petites valeurs).
Pour le tester, j'ai rempli un certain nombre de cellules en gras avec une valeur de "0.5" ou moins. Le code les a tous traités comme "0" et, par conséquent, a abouti à un calcul de zéro. Cependant, lorsque j'ai saisi des valeurs de "0.51" et plus, toutes ont été arrondies à "1", ce qui - encore une fois - a complètement mal calculé le résultat.
Quelqu'un a-t-il une solution pour cela? Le code suit.
Ce ExtendOffice L'article explique comment insérer du code dans un module afin de calculer les valeurs des nombres dont sont en gras :
https://www.extendoffice.com/documents/excel/1339-excel-sum-count-bold-cells.html#a3
Cependant, le code ignore les décimales et renvoie des résultats inexacts (en particulier lorsqu'il s'agit de petites valeurs).
Pour le tester, j'ai rempli un certain nombre de cellules en gras avec une valeur de "0.5" ou moins. Le code les a tous traités comme "0" et, par conséquent, a abouti à un calcul de zéro. Cependant, lorsque j'ai saisi des valeurs de "0.51" et plus, toutes ont été arrondies à "1", ce qui - encore une fois - a complètement mal calculé le résultat.
Quelqu'un a-t-il une solution pour cela? Le code suit.
Fonction SumBold(WorkRng As Range)
'Mise à jour 20131202
Dim Rng comme plage
Dim xSum aussi longtemps
Pour chaque Rng dans WorkRng
Si Rng.Font.Bold Alors
xSum = xSum + Rng.Valeur
Si fin
Suivant
SommeGras = xSomme
Fonction de fin
0
annuler
Votes
Salut,
Merci pour les commentaires, j'ai déjà mis à jour le code dans l'article.
Veuillez utiliser le code ci-dessous :
Si vous avez d'autres questions, n'hésitez pas à me le faire savoir.
Amanda
Merci pour les commentaires, j'ai déjà mis à jour le code dans l'article.
Veuillez utiliser le code ci-dessous :
Function SumBold(WorkRng As Range)
'Update 20220516
Dim Rng As Range
Dim xSum As Double
For Each Rng In WorkRng
If Rng.Font.Bold Then
xSum = xSum + Rng.Value
End If
Next
SumBold = xSum
End Function
Si vous avez d'autres questions, n'hésitez pas à me le faire savoir.
Amanda
- Page:
- 1
Il n'y a pas encore de réponse faites pour ce poste.