Podemos crear una función que nos permita sumar el número de caracteres numéricos que tiene un estilo en negrita (Sumar números en negrita en Excel).
Disponemos de una hoja con el origen de datos, donde:
- Columna A. Nombre de la empresa.
- Columna B. Rango B2:B11 con los importes de las facturas, B3, B5 y B6 en negrita (identifica los importes pendientes de cobro).
| A | B | C | D | |
|---|---|---|---|---|
| 1 | Cliente | Descuento | Cobros Pendientes: | |
| 2 | Empresa 1 | 12.500,00 | ||
| 3 | Empresa 2 | 15.600,00 | ||
| 4 | Empresa 3 | 450,00 | ||
| 5 | Empresa 4 | 8.300,00 | ||
| 6 | Empresa 5 | 625,00 | ||
| 7 | Empresa 6 | 455,50 | ||
| 8 | Empresa 7 | 1.100,00 | ||
| 9 | Empresa 8 | 1.100,00 | ||
| 10 | Empresa 9 | 875,00 | ||
| 11 | Empresa 10 | 950,00 |
Deseamos conocer el total de las facturas pendientes de cobro (que se incluyen con formato en negrita).
Con Excel abierto.
Pulsar la tecla Alt y mantener pulsada
Pulsar la tecla F11. Mostrará el editor de Visual Basic.Ir a: Barra de Menú
Insertar 
Módulo. Mostrará la ventana del módulo donde escribimos la macro.Escribir el código de la macro:
Function SumaNegrita (Valor As Range)
Dim Mi_Rango As Range
Dim Cuenta As Long
For Each Mi_Rango In Valor
If Mi_Rango.Font.Bold Then
Sumar = Sumar + Mi_Rango.Value
End If
Next
SumaNegrita = Sumar
End Function
Guardar el libro con la extensión *.xlsm. Libro habilitado para macros, que permite sumar números en negrita.
INSERTAR FUNCIÓN
Ir a: Ventana de Excel.
Ir a: Celda E1
Escribir:=SumaNegrita(B2:B11)O también, Ir a: Barra de fórmulas
Clic sobre 
(fx: Insertar función) Ir a: O seleccionar una categoría Seleccionar: Definida por el usuario Doble clic sobre: SumaNegrita. Mostrará los argumentos de la función.
Ir a: Valor
Seleccionar el rango B2:B11. Celda que deseamos sumar los números en negrita.
Verificar como la celda E1 muestra 24.525,00 como la suma de B3, B5 y B6 (fuente en negrita).
Mediante macros podemos crear una función definida por el usuario que nos permita sumar números en negrita en Excel.
Excel Experto VBA - Macros
Esta excelente, tomare en cuenta muchas de sus sugerencias para mis alumnos
Hola Francisco, es un placer que la información te sea útil. Gracias por tu comentario.
Saludos.
Hermano se que han pasado 4 años desde que diste ese trucaso pero igual te digo muchas gracias, sinceramente sos un crack
Hola! Muy bueno!
Yo justo estoy trabajando con una planilla en la que quiero que me sume las cifras en negrita, ahora bien...tengo un problema.
No se actualiza automáticamente (ni siquiera con F9, debo hacer dobleclick en la celda y dar enter).
¿Cómo puedo hacer para que se actualice automáticamente a medida que aplico o quito negritas?
Muchas gracias.
Pues el mismo problema, y eso que estaba funcionando perfectamente, pero ha dejado de funcionar y ahora tengo que hacer lo que dices.
Hola Richard,
No identifico si el problema es que la macro ahora no se ejecuta. Si es así revisa la seguridad de macros y en caso negativo crea la macro de nuevo.
Saludos.
Hola Diego,
Puedes aplicar la macro al evento de cambio en la hoja.
Saludos.