En este artículo, aprenderá cómo encontrar celdas en negrita usando VBA. Usaremos el código VBA para crear la función UDF para encontrar las celdas en negrita.

Haga clic en la pestaña Desarrollador. Desde el grupo Código, seleccione Visual Basic

img1

Haga clic en Insertar y luego en Módulo

img2

Esto creará un nuevo módulo.

Ingrese el siguiente código en el Módulo

Función FindBold (BoldRange As Range)

FindBold = BoldRange.Font.Bold

Función de fin

img3

La nueva fórmula UDF se crea con el nombre FindBold. El único parámetro es dar la referencia de la celda y la función devolverá VERDADERO (si la fuente está en negrita) o FALSO (si la fuente no está en negrita). Consulte a continuación la instantánea Celda B2 = FindBold (A1)

img4

De esta manera, podemos usar esta pieza de codificación en grandes proyectos mientras hacemos automatización.