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

Id. de artículo: 550373 - Ver los productos a los que se aplica este artículo
Este artículo se publicó anteriormente con el número E10374
Expandir todo | Contraer todo

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: lunes, 16 de febrero de 2004 - Versión: 2.0
La información de este artículo se refiere a:
  • Microsoft Excel 5.0 Standard Edition
  • Microsoft Excel 97 Standard Edition
Palabras clave: 
cambiar color fila KB550373
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.

Enviar comentarios

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com