Tom señala correctamente que en Word puede usar Buscar y Reemplazar para hacer que todas las apariciones de una palabra estén en negrita. (Busque la palabra, reemplácela con la misma palabra con el formato de negrita activado). Se pregunta cómo puede hacer lo mismo en Excel.

La respuesta depende, en parte, de la versión de Excel que esté utilizando. Si usa Excel 2002 o una versión posterior de Excel, la respuesta es fácil: lo hace prácticamente de la misma manera que lo hace en Word. Siga estos pasos:

  1. Presione Ctrl + H para mostrar la pestaña Reemplazar del cuadro de diálogo Buscar y reemplazar.

  2. Haga clic en el botón Opciones para expandir el cuadro de diálogo. (Ver figura 1)

  3. En el cuadro Buscar, ingrese la palabra que desea poner en negrita.

  4. Ingrese la misma palabra en el cuadro Reemplazar con.

  5. Haga clic en el botón Formato a la derecha del cuadro Reemplazar con. Excel muestra el cuadro de diálogo Reemplazar formato.

  6. Haga clic en la pestaña Fuente. (Ver figura 2)

  7. En la lista Estilo de fuente, elija Negrita.

  8. Haga clic en Aceptar para cerrar el cuadro de diálogo Reemplazar fuente.

  9. Haga clic en Reemplazar todo para realizar los reemplazos.

Si bien esto parece bastante fácil, debe recordar que estos pasos cambian el formato de celdas completas, no solo las palabras dentro de una celda.

Por lo tanto, si busca y reemplaza la palabra «marrón», entonces cualquier celda que contenga la palabra «marrón» se pondrá en negrita: toda la celda, no solo la palabra.

Si está utilizando una versión anterior de Excel (Excel 97 o Excel 2000) o solo desea afectar las palabras dentro de la celda, estos pasos no funcionarán. En su lugar, deberá recurrir a una macro para hacer la negrita.

Básicamente, necesitará una macro que revise una hoja de trabajo y determine qué se puede cambiar. (No puede poner en negrita palabras o dígitos individuales en fórmulas o valores numéricos; solo puede realizar cambios en el formato a nivel de palabra para las constantes de texto).

Una vez que la macro encuentra celdas que puede procesar, necesita buscar en las celdas la palabra deseada y luego poner ese texto en negrita. La siguiente macro implementa esta misma estrategia:

Sub FindAndBold()

Dim sFind As String     Dim rCell As Range     Dim rng As Range     Dim lCount As Long     Dim iLen As Integer     Dim iFind As Integer     Dim iStart As Integer

On Error Resume Next     Set rng = ActiveSheet.UsedRange. _       SpecialCells(xlCellTypeConstants, xlTextValues)

On Error GoTo ErrHandler     If rng Is Nothing Then         MsgBox "There are no cells with text"

GoTo ExitHandler     End If

sFind = InputBox( _       Prompt:="What do you want to BOLD?", _       Title:="Text to Bold")

If sFind = "" Then         MsgBox "No text was listed"

GoTo ExitHandler     End If

iLen = Len(sFind)

lCount = 0

For Each rCell In rng         With rCell             iFind = InStr(.Value, sFind)

Do While iFind > 0                 .Characters(iFind, iLen).Font.Bold = True                 lCount = lCount + 1                 iStart = iFind + iLen                 iFind = InStr(iStart, .Value, sFind)

Loop         End With     Next

If lCount = 0 Then         MsgBox "There were no occurrences of" & _           vbCrLf & "' " & sFind & " '" & _           vbCrLf & "to bold."

ElseIf lCount = 1 Then         MsgBox "One occurrence of" & _           vbCrLf & "' " & sFind & " '" & _           vbCrLf & "was made bold."

Else         MsgBox lCount & " occurrences of" & _           vbCrLf & "' " & sFind & " '" & _           vbCrLf & "were made bold."

End If

ExitHandler:

Set rCell = Nothing     Set rng = Nothing     Exit Sub

ErrHandler:

MsgBox Err.Description     Resume ExitHandler End Sub

La macro primero establece el rango de búsqueda en aquellas celdas que contienen constantes de texto. Luego le pide al usuario una palabra que debe cambiarse.

Una vez ingresada, la macro comienza a buscar en todas las celdas del rango. Cada celda se comprueba para ver si contiene la palabra de destino. Si es así, se establece la propiedad .Bold para esos caracteres y la macro continúa buscando.

La macro también realiza un seguimiento de cuántos cambios se realizaron, mostrando los cambios totales al final de su trabajo.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (2414) se aplica a Microsoft Excel 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y posterior) aquí:

link: / excelribbon-Making_All_Occurrences_Bold [Hacer todas las apariciones en negrita].