Hola.
Este ExtendOffice El artículo explica cómo insertar código en un módulo para calcular los valores de los números que están en negrita:
https://www.extendoffice.com/documents/excel/1339-excel-sum-count-bold-cells.html#a3
Sin embargo, el código ignora los decimales y devuelve resultados inexactos (especialmente cuando se trata de valores pequeños).
Para probarlo, rellené varias celdas en negrita con un valor de "0.5" o menos. El código los trató a todos como "0" y, por lo tanto, resultó en un cálculo de cero. Sin embargo, cuando ingresé valores de "0.51" y superiores, todos se redondearon a "1", por lo tanto, nuevamente, calculé completamente mal el resultado.
¿Alguien tiene una solución para esto? El código sigue.
Este ExtendOffice El artículo explica cómo insertar código en un módulo para calcular los valores de los números que están en negrita:
https://www.extendoffice.com/documents/excel/1339-excel-sum-count-bold-cells.html#a3
Sin embargo, el código ignora los decimales y devuelve resultados inexactos (especialmente cuando se trata de valores pequeños).
Para probarlo, rellené varias celdas en negrita con un valor de "0.5" o menos. El código los trató a todos como "0" y, por lo tanto, resultó en un cálculo de cero. Sin embargo, cuando ingresé valores de "0.51" y superiores, todos se redondearon a "1", por lo tanto, nuevamente, calculé completamente mal el resultado.
¿Alguien tiene una solución para esto? El código sigue.
Función SumBold (WorkRng como rango)
'Actualiza 20131202
Dim Rng como rango
Dim xSuma siempre
Para cada anillo en WorkRng
Si Rng.Font.Bold Entonces
xSuma = xSuma + Rng.Valor
Si terminar
Siguiente
SumaNegrita = xSuma
Función finales