Cómo cambiar el color de una fila según un valor

Exención de responsabilidades de contenido KB retirado

Este artículo se refiere a productos para los que Microsoft ya no ofrece soporte técnico. Por tanto, el presente artículo se ofrece "tal cual" y no será actualizado.

Resumen

En este artículo se recoge información sobre la posibilidad de cambiar el color de fondo de una fila según el valor que tome.

Más información

Es posible cambiar el color de todos los datos de una fila si se cumple una condición. En este ejemplo, se pondrán en rojo los datos de aquellas filas cuyo campo UNIDADES contenga el valor 0.


Supongamos que tenemos la siguiente hoja de cálculo:


| A | B |
---|-----------|---------------|
1 | UNIDADES | PRODUCTO |
---------------|---------------|
2 | 5 | Sillas |
---|-----------|---------------|
3 | 0 | Mesas |
---|-----------|---------------|
4 | 4 | Sillones |
---|-----------|---------------|
5 | 8 | Camas |
---|-----------|---------------|
6 | 0 | Armarios |
---|-----------|---------------|
7 | 6 | Lámparas |
---|-----------|---------------|


Para ejecutar la macro seleccione el rango de datos a comprobar. En este ejemplo A2:A7. Una vez ejecutada, los datos de las filas 3 y 6 aparecerán en rojo.




MACRO PARA LA VERSIÓN 4.0

Introduzca el siguiente código en una hoja de macros de Excel 4.0 (Archivo / Nuevo / Hoja de macros).


| A |
---|--------------------------------------------------------------|
1 | Cambiar_color_Excel4 |
---|--------------------------------------------------------------|
2 | =ECO(FALSO) |
---|--------------------------------------------------------------|
3 | =PARA.CELDA("CELDA";;VERDADERO) |
---|--------------------------------------------------------------|
4 | =SI(celda=0) |
---|--------------------------------------------------------------|
5 | =SELECCIONAR(celda) |
---|--------------------------------------------------------------|
6 |=DEFINIR.NOMBRE("celda_ancla") |
---|--------------------------------------------------------------|
7 |=SELECCIONAR.FIN(2) |
---|--------------------------------------------------------------|
8 |=SELECCIONAR(!celda_ancla:CELDA.ACTIVA()) |
---|--------------------------------------------------------------|
9 |=FORMATO.FUENTES("MS Sans Serif";10;FALSO;FALSO;FALSO;FALSO;3)|
---|--------------------------------------------------------------|
10 |=FIN.SI() |
---|--------------------------------------------------------------|
11 |=SALIR.BUCLE() |
---|--------------------------------------------------------------|
12 |=VOLVER() |
---|--------------------------------------------------------------|


Una vez que haya terminado de escribir la macro, seleccione la celda A1 de la hoja de macros y el comando Definir Nombre del menú Formula. En la parte inferior del cuadro de diálogo seleccione Comando y pulse Aceptar.




MACRO PARA LAS VERSIONES 5.0 Y 7.0

Abra el menú Insertar, elija el comando Macro y seleccione Módulo.


Introduzca el siguiente código si está programando en inglés:


Sub Cambiar_Colorvba()

For Each Cell In Selection

If Cell = 0 Then

Cell.Select
ancla = ActiveCell.Address
ActiveCell.End(xlToRight).Select
Range(ancla, ActiveCell).Select
Selection.Font.ColorIndex = 3

End If

Next

End Sub


Introduzca el siguiente código si está programando en español:


Proced Cambiar_Colorvba()

Para Cada celda En Selección

Si celda = 0 Entonces

celda.Seleccionar
ancla = CeldaActiva.Dirección
CeldaActiva.Fin(xlHaciaDerecha).Seleccionar
Rango(ancla; CeldaActiva).Seleccionar
Selección.Fuente.ÍndiceColor = 3

Fin Si

Siguiente

Fin Proced
Propiedades

Id. de artículo: 550373 - Última revisión: 16 feb. 2004 - Revisión: 1

Comentarios