Reemplazo de colores de fondo en celdas (Microsoft Excel)
Jozef está buscando una forma de cambiar los colores de fondo de celdas específicas en la hoja de trabajo que creó. Por ejemplo, le gustaría encontrar todas las celdas de fondo rojo y cambiarlas a azul, o buscar todos los fondos amarillos y cambiarlos a azul. Jozef se pregunta si hay una manera fácil de hacer esto.
Es bastante obvio que puede cambiar los colores de fondo de cualquier celda manualmente, por lo que no es necesario entrar en esa opción para realizar los cambios. Lo que necesita es una forma de realizar cambios en todas las celdas a la vez. Si está utilizando Excel 2002 o 2003, puede seguir estos pasos:
-
Presione Ctrl + H para mostrar la pestaña Reemplazar del cuadro de diálogo Buscar y reemplazar.
-
Expanda el cuadro de diálogo haciendo clic en el botón Opciones. (Ver figura 1)
-
Haga clic en el botón Formato en el lado derecho del cuadro Buscar. Excel muestra el cuadro de diálogo Buscar formato.
-
Asegúrese de que la pestaña Patrones esté seleccionada. (Ver figura 2)
-
Utilice los controles del cuadro de diálogo para especificar el color de fondo que desea reemplazar.
-
Haga clic en Aceptar.
-
Haga clic en el botón Formato en el lado derecho del cuadro Reemplazar con.
Excel muestra el cuadro de diálogo Reemplazar formato.
-
Asegúrese de que la pestaña Patrones esté seleccionada.
-
Utilice los controles del cuadro de diálogo para especificar el color de fondo que utilizó al cambiar las celdas.
-
Haga clic en Aceptar.
-
Haga clic en Reemplazar todo.
Si está utilizando una versión anterior de Excel, estos pasos no funcionarán.
En su lugar, necesitará usar una macro para hacer los cambios. El siguiente es un ejemplo de uno que debería funcionar. (También puede utilizar esta macro en versiones posteriores de Excel).
Sub ChangeColor() Dim rCell As Range If Selection.Cells.Count = 1 Then MsgBox "Select the range to be processed." Exit Sub End If For Each rCell In Selection If rCell.Interior.Color = RGB(255, 0, 0) Then 'red rCell.Interior.Color = RGB(0, 0, 255) 'blue End If Next rCell End Sub
_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 (9042) 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-Replacing_Background_Colors_in_Cells [Reemplazo de colores de fondo en celdas]
.