Estás trabajando sin conexión, espera a que vuelva la conexión a Internet

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

Este artículo se publicó anteriormente con el número E10374
Renuncia a responsabilidad de los contenidos de la KB sobre productos a los que ya no se ofrece asistencia alguna
El presente artículo se escribió para 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: 02/16/2004 20:07:02 - Revisión: 2.0

  • Microsoft Excel 5.0 Standard Edition
  • Microsoft Excel 97 Standard Edition
  • cambiar color fila KB550373
Comentarios