Note: The other languages of the website are Google-translated. Back to English

¿Cómo sumar / contar números en negrita en un rango de celdas en Excel?

Cuando tiene un rango de datos que contiene algunos números en negrita en una hoja de trabajo, y ahora desea sumar o contar solo las celdas en negrita, por supuesto, puede agregarlas una por una manualmente, pero llevará mucho tiempo. ¿Cómo podría sumar o contar solo las celdas en negrita en Excel de una manera fácil y rápida?

Cuente los números en negrita en un rango con la función definida por el usuario (VBA y fórmula)
Sumar números en negrita en un rango con la función definida por el usuario (VBA y fórmula)
Varios clics para contar y sumar celdas en negrita en un rango con Kutools para Excel


Cuente los números en negrita en un rango con la función definida por el usuario

Las siguientes Función definida por el usuario puede ayudarlo a obtener rápidamente la cantidad de celdas en negrita. Por favor haz lo siguiente:

1. Mantenga pulsado el ALT + F11 llaves, y abre el Ventana de Microsoft Visual Basic para aplicaciones.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Ventana de módulo.

Código VBA: cuente números en negrita en un rango de celdas

Function CountBold(WorkRng As Range)
'Update 20220516
Dim Rng As Range
Dim xCount As Double
For Each Rng In WorkRng
    If Rng.Font.Bold Then
        xCount = xCount + 1
    End If
Next
CountBold = xCount
End Function

3. Luego guarde este código y escriba esta fórmula = CountBold (A1: C9) en una celda en blanco, mira la captura de pantalla:

doc-count-bold-cells1

4. Entonces presione Enviar clave, y contará las celdas en negrita en el rango A1: C9.

doc-count-bold-cells2

Nota:A1: C9 en la fórmula indica el rango en el que desea usar la función para contar las celdas en negrita, puede cambiarlo según sus necesidades.


Sumar números en negrita en un rango con la función definida por el usuario

Y si desea sumar solo los números en negrita en un rango de datos, también puedo crear una función definida por el usuario para que la resuelva.

1. Mantenga pulsado el botón ALT + F11 llaves, y abre el Ventana de Microsoft Visual Basic para aplicaciones.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Ventana de módulo.

Código de VBA: sume números en negrita en un rango de celdas

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

3. Luego guarde este código y escriba esta fórmula = sumbold (A1: C9) en una celda en blanco, mira la captura de pantalla:

doc-count-bold-cells3

4. Y luego presione Enviar , se han sumado todos los números en negrita del rango A1: C9. Ver captura de pantalla:

doc-count-bold-cells4

Nota:A1: C9 en la fórmula indica el rango en el que desea usar la función para sumar las celdas en negrita, puede cambiarlo según sus necesidades.


Varios clics para contar y sumar celdas en negrita en un rango con Kutools para Excel

YPuede contar o sumar fácilmente todas las celdas en negrita en un rango con varios clics sin tener que manejar un código VBA complicado y recordar fórmulas.

Antes de aplicar Kutools for Excel, Por favor descargarlo e instalarlo en primer lugar.

1. Para contar las celdas en negrita, seleccione una celda en blanco para ubicar el resultado y luego haga clic en Kutools > Funciones de Kutools > Estadística y Matemáticas > COUNTBYFONTBOLD.

Y para sumar celdas en negrita, haga clic en Kutools > Funciones de Kutools > Estadística y Matemáticas > SUMBYFONTBOLD. Ver captura de pantalla:

2. En la FArgumentos de unción cuadro de diálogo, especifique el rango con celdas en negrita que necesita contar o sumar en el cuadro Referencia, y luego haga clic en el OK

Ahora, el recuento o la suma de todas las celdas en negrita en el rango especificado se completan en la celda seleccionada inmediatamente. Ver captura de pantalla:

  Si desea tener una prueba gratuita (30-día) de esta utilidad, haga clic para descargarloy luego vaya a aplicar la operación según los pasos anteriores.


Mantenga constante la referencia de la celda de fórmula con Kutools para Excel


Artículos relacionados:

¿Cómo identificar y seleccionar todas las celdas o texto en negrita en Excel?


Las mejores herramientas de productividad de oficina

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
officetab parte inferior
Comentarios (22)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
hola, uso excel 2013 holandés con kutools 6.5 pero no puedo seguir usando el diseño de lectura. preguntar antes de gritar se resolverá en esta versión???
Este comentario fue minimizado por el moderador en el sitio
[cita] hola, uso Excel 2013 holandés con kutools 6.5 pero no puedo seguir usando el diseño de lectura. preguntar antes de gritar se resolverá en esta versión???por maria[/quote] Hola, por favor contácteme en jaychivo#extendoffice.com. Reemplace # con @. :-)
Este comentario fue minimizado por el moderador en el sitio
¿Hay alguna forma de contar según el color de la celda si el texto está en negrita?
Este comentario fue minimizado por el moderador en el sitio
ESTO ES IMPRESIONANTE !!!! Funcionó perfectamente!! Gracias
Este comentario fue minimizado por el moderador en el sitio
Esto funciona perfectamente, excepto que no parece agregar mis lugares decimales, solo agrega el dólar completo. Si tienen una solución para esto, estaría muy agradecido.
Este comentario fue minimizado por el moderador en el sitio
Hola Katie, usa el siguiente código, ya que la suma muestra decimales. Función SumBold(rng As Range) Dim rCell As Range Application.Volatile SumBold = 0 For Each rCell In rng If rCell.Font.Bold Then _ SumBold = SumBold + rCell Next End Function
Este comentario fue minimizado por el moderador en el sitio
Esto funciona de maravilla. Solo tengo un problema... no parece estar agregando nada después de un punto decimal. Cualquier ayuda sería muy apreciada.
Este comentario fue minimizado por el moderador en el sitio
Gracias... esta funcionando...
Este comentario fue minimizado por el moderador en el sitio
Copié y pegué el código en Excel pero obtuve #NAME? error. Me aseguré de habilitar las macros y usar la versión de Excel 2010 (no sé si eso cambia algo). ¡¿Alguien puede ayudarme porfavor?!
Este comentario fue minimizado por el moderador en el sitio
[quote]Copié y pegué el código en Excel pero obtuve #NAME? error. Me aseguré de habilitar las macros y usar la versión de Excel 2010 (no sé si eso cambia algo). ¡¿Alguien puede ayudarme porfavor?!por Maey[/quote] Tienes que seguir las instrucciones. Dice: "Haga clic en Insertar > Módulo y pegue el siguiente código en la Ventana del módulo", y debe hacerlo exactamente. Asegúrese de pegar el código en la ventana del módulo, no en la ventana del código de la hoja.
Este comentario fue minimizado por el moderador en el sitio
Estoy usando excel para mac 2011. ¿Cómo puedo ejecutar el código en mi sistema? ¡Gracias!
Este comentario fue minimizado por el moderador en el sitio
RE: Fórmula CountBold Esta fórmula no parece ser dinámica. Si bien funciona en el primer paso, si cambio las celdas en negrita, los contadores no se actualizan a menos que vuelva a ingresar la fórmula nuevamente. ¿Algun consejo?
Este comentario fue minimizado por el moderador en el sitio
Sí, esto es lo mismo para mí, de lo contrario funciona muy bien. Pero si esto pudiera resolverse para que actualice el conteo después de que cada celda deseleccione como otros conteos básicos, ¡sería perfecto!
Este comentario fue minimizado por el moderador en el sitio
Queridos chicos,
La fórmula no se actualizará si solo cambia el formato de las celdas numéricas.
Se actualiza solo cuando cambia el contenido de la celda.
Este comentario fue minimizado por el moderador en el sitio
А если в ячейках числа и текст? надо просуммировать только ячейки с числами жирным шрифтом.
Este comentario fue minimizado por el moderador en el sitio
Ma se metto in grassetto nuove celle, la somma non si aggiorna !!!
Este comentario fue minimizado por el moderador en el sitio
Hola carlo

Galdo para ayudar. Después de poner en negrita las nuevas celdas, la suma no se actualizará automáticamente. Pero cuando hace doble clic en la celda de fórmula, luego presiona Entrar, la suma se actualizará. Por favor, inténtalo.

Atentamente,
Mandy
Este comentario fue minimizado por el moderador en el sitio
Hola Mandy,
gracias por su respuesta,
Sí, sé que después de hacer doble clic, la suma se actualizará.
¿Hay alguna forma de actualizar automáticamente la suma?

saludos
Carlo
Este comentario fue minimizado por el moderador en el sitio
Hola carlo

Lo siento, no tengo la solución para actualizar automáticamente la suma. La forma más fácil que se me ocurre es presionar Ctrl + Alt + F9 para volver a calcular todas las hojas de trabajo en todos los libros abiertos. Que tengas un lindo día.

Atentamente,
Mandy
Este comentario fue minimizado por el moderador en el sitio
¿Utilizo la función y sigo obteniendo el #NOMBRE? error. Estoy usando Excel 365 y Windows 11.
Este comentario fue minimizado por el moderador en el sitio
hola antonio

¿Has copiado y pegado el código en el Módulo of Ventana de Microsoft Visual Basic para aplicaciones en tu hoja de trabajo? Después de pegar el código, debe ingresar la fórmula que necesite.

O puede cargar su archivo aquí, podemos verificar dónde está el problema.

¡Gracias!
Este comentario fue minimizado por el moderador en el sitio
Hola Anthony
Estaba luchando con el mismo problema. Para mí, la solución terminó siendo muy simple. Noté que tenía 4 módulos en la lista. Los eliminé todos y luego comencé de nuevo con las instrucciones anteriores. Ahora funciona perfectamente.
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Siganos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL