• Tweet
• Email

• Tweet
• Email

Hola! ¿Cómo han estado? Recientemente uno de nuestros usuarios nos hizo una interesante pregunta, en la cual manifestó lo siguiente: "¿Es posible poner un color de fondo como prueba lógica dentro de la función SI de Ms Excel®?" La respuesta es sí, existen varios métodos con los que podemos construir la función a partir de esa premisa sin embargo esta vez vamos a emplear una función desarrollada por el MVP de MS Excel® Chip Pearson en su blog www.cpearson.com la cual nos va a permitir elaborar una función que identifica el color de fondo de una celda para elaborar con ella luego  fórmula que emplee la función SI para aplicar una prueba lógica al color de fondo. Es necesario aplicar esta técnica dado que MS Excel® por defecto no trae una función que permita identificar el color de fondo de una celda, debemos construirla a través de Visual Basic. Como todo lo demás que existe en el mundo de la computación los colores son realmente un números.  Todos los colores que se muestran en la pantalla de la computadora se encuentran definidos a partir de combinaciones de tres componentes primarios: uno rojo, uno verde y uno azul. Esto es lo que se conoce como código RGB. Visual Basic para Aplicaciones dispone de una función RGB que podemos emplear para combinar valores de rojo, verde y azul para crear un valor de RGB en particular y en consecuencia un color en específico. Chip Pearson precisamente aprovechó este particular para desarrollar un set de funciones de gran utilidad que emplean como argumento el color de fondo de una celda o de un rango de estas. Lo primero que debemos realizar para conocer cual es nuestra paleta de colores predeterminada es aplicar un simple código para que la misma se muestre en una hoja de cálculo. La paleta de colores consta de 56 colores RGB que MS Excel® soporta para su uso por ejemplo en los fondos de celdas y colores de fuentes. El valor de estos 56 colores puede ser cualuiera de entre los 16 millones de colores disponibles pero en la práctica en MS Excel® solo podemos emplear 56 colores al mismo tiempo. El código a aplicar para conocer nuestra paleta de colores es el siguiente:

   Sub Displaypalette()
        Dim N As Long
        For N = 1 To 56
            Cells(N, 1).Interior.ColorIndex = N
        Next N
    End Sub

Este código cambia el color de fondo de las primeras 56 celdas de la hoja activa donde lo ejecutemos. El número de fila será igual a un número que llamaremos  índice de colores, que no es más en que la posición se encuentra un color de los que serán desplegados de la fila 1 a la 56. Para aquellos que dan sus primeros pasos en VBA  recuerden que para poder ejecutar este código tan solo es necesario insertar un modulo nuevo en Microsoft Visual Basic en donde vamos a cargar todos los códigos con los que vamos a trabajar en esta publicación. Una vez cargado este código lo ejecutamos desde el panel de Microsoft Visual Basic o bien desde la Cinta de Opciones en la ficha Programador/ Macros y con esto las primeras 56 celdas van a tener los primeros 56 colores de los 16 millones de colores disponibles.

Después de haberse ejecutado la macro el resultado es tal cual lo mostrado en la imagen anexa:

Esta paleta de colores nos va a servir mediante la función de color (ColorIndexOfOneCell) para determinar un valor asociado que a su vez nos va a permitir crear la prueba lógica con la función SI. A continuación, para alcanzar nuestro objetivo inicial vamos a cargar el siguiente código de Visual Basic que nos permitirá crear una nueva función ColorIndexOfOneCell la cual partiendo de simples argumentos identifica cual es el color de fondo de una celda para arrojarnos como resultado cual es el valor de índice de color (1 al 56) del fondo de esta:

    Function ColorIndexOfOneCell(Cell As Range, OfText As Boolean, _
        DefaultColorIndex As Long) As Long
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ' ColorIndexOfOneCell
    ' This returns the ColorIndex of the cell referenced by Cell.
    ' If Cell refers to more than one cell, only Cell(1,1) is
    ' tested. If OfText True, the ColorIndex of the Font property is
    ' returned. If OfText is False, the ColorIndex of the Interior
    ' property is returned. If DefaultColorIndex is >= 0, this
    ' value is returned if the ColorIndex is either xlColorIndexNone
    ' or xlColorIndexAutomatic.
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Dim CI As Long

    Application.Volatile True
    If OfText = True Then
        CI = Cell(1, 1).Font.ColorIndex
    Else
        CI = Cell(1, 1).Interior.ColorIndex
    End If
    If CI < 0 Then
        If IsValidColorIndex(ColorIndex:=DefaultColorIndex) = True Then
            CI = DefaultColorIndex
        Else
            CI = -1
        End If
    End If

    ColorIndexOfOneCell = CI

    End Function
    Private Function IsValidColorIndex(ColorIndex As Long) As Boolean
        Select Case ColorIndex
            Case 1 To 56
                IsValidColorIndex = True
            Case xlColorIndexAutomatic, xlColorIndexNone
                IsValidColorIndex = True
            Case Else
                IsValidColorIndex = False
        End Select
    End Function

Esta función está compuesta por los siguientes argumentos: =ColorIndexOfOneCell(Cell; OfText; DefaultColorIndex) Cell: es la celda cuyo color se debe leer. OfText: son los argumentos lógicos Verdadero o Falso que indican si se devuelve el índice de color de la fuente (OfText = Verdadero) o el fondo (OfText = Falso). DefaultColorIndex: El parámetro DefaultColorIndex es un valor de índice de color (1 a 56) que va a ser devuelto si no hay color específico  donde se ha asignado a la fuente o el fondo del relleno. La función ColorIndexOfOneCell ofrece una utilidad limitada ya que solo hace referencia a una celda en particular para otros casos también Chip Pearson desarrollo funciones adicionales con diferentes características que gustosamente pueden ver en su publicación “Color Functions In Excel”. Ahora vamos a probar que la función ColorIndexOfOneCell esté trabajando sin presentar ningún inconveniente, los resultados iníciales los vemos mediante la siguiente imagen:

En efecto tal como vemos está funcionando correctamente ya que el color amarillo está ubicado en la celda A6 por lo que el valor asociado a este es 6, ahora podemos trabajarla en conjunto con la función SI. Tras haber realizado estos pasos ahora vamos a utilizar la función ColorIndexOfOneCell como prueba lógica de la función SI (como recomendación previamente se debe tener identificado cual es el valor asociado al color de la celda). En el siguiente ejemplo tenemos una tabla con los resultados de las calificaciones de un grupo de estudiantes con la condición de que para aprobar la materia la nota debe ser superior a 10 puntos sino la celda se va a colorear de rojo, para esto con anterioridad se seleccionaron las celdas donde están las calificaciones y se aplico Formato Condicional con la Regla “Es menor que” colocando que si el valor es menor a 10 puntos el fondo pasa a ser rojo.

Pues solo nos queda aplicar la función SI colocando como prueba lógica la función ColorIndexOfOneCell que nos va a arrojar el valor 3 correspondiente al color rojo y si lo asociamos con el resto de los argumentos (valor_si_verdadero) las notas que son inferiores a 10 puntos el mensaje que se va reflejar es “Reprobó”, (valor_si_falso) si son mayores el mensaje es “Aprobó”. El resultado de esta operación es como lo mostrado en la siguiente imagen anexa:

Para obtener este resultado previamente se deben hacer algunas modificaciones que usualmente no realizamos sin embargo de acuerdo a nuestras necesidades nos ofrece una excelente alternativa a una carencia de MS Excel®. Les dejamos un archivo MS Excel® 2007 habilitado para macros con los pasos citados y el ejemplo propuesto en esta publicación. ¿Tienen algún otro uso que se le pueda dar a esta interesante función? Pues les recordamos que está disponible nuestro foro para responder a sus dudas y debatir sus propuestas. Espero la publicación les sea de mucha utilidad. Saludos y éxito! El Equipo de EXCELLENTIAS.COM Fuente: Color Functions In Excel de Chip Pearson, Pearson Software Consulting, LLC.