Excel 2007-2010. El formato condicional y VBA. (Parte II)

Formato condicional independiente.

Ya vimos en el anterior artículo, uno de los problemas de VBA para obtener el color de fondo: que las fórmulas del formato condicional deben ser absolutas y esto puede resultar un trabajo extra, ya que, nos obliga a ir celda a celda. Hoy veremos cómo resolver el problema del tutorial anterior.

Siguiendo con el mismo ejercício, para obtener el color real que vemos en pantalla y que es el resultado de evaluar la condición del "formato condicional", hago el siguiente ejemplo básico:

Como puedes observar, esta vez sí que la columna D nos muestra correctamente el color real. Se puede apreciar que es porque a cada celda del rango B2:B5 le he puesto un formato condicional independiente con la fórmula que ves en la columna E. Por ejemplo, para que sepas hacerlo, selecciono la celda B5, voy a Formato condicional ? Administrar reglas ? Nueva regla ? Utilice una fórmula que determine las celdas para aplicar formato y abajo en "Dar formato a los valores donde esta fórmula sea verdadera" escribo lo que ves en la celda E5:

=(B5>3)

Y ahora pulso el botón de abajo de formato y pongo de relleno el color verde (R:0, V:255, A:0) y letra en blanco.. Y lo mismo con las otras 3 celdas B4, B3 y B2.

La columna C es la misma que vimos en el tutorial anterior. Voy a crear ahora una simple función que calcule el color de fondo real como ves en la columna D. La función la voy a llamar GetColorCondicional(). Así que en las siguientes celdas escribo en la barra de fórmulas lo siguiente:

• D2: =GetColorCondicional(B2)
• D3: =GetColorCondicional(B3)
• D4: =GetColorCondicional(B4)
• D5: =GetColorCondicional(B5)

Ahora voy a crear una macro que pienso que es una forma muy rápida para agregar automáticamente un módulo y código: Ficha Programador ? Grabar macro ? Nombre de la macro el que quieras ? Detener macro. Seguidamente vamos a Programador ? Visual Basic y estaremos, normalmente, en un nuevo módulo creado, con el código de la macro que acabamos de hacer. Borro todo el código de la macro y agrego el siguiente:

Public Function GetColorCondicional(ByVal celda As Range)
 
    If celda.FormatConditions.Count = 0 Then Exit Function
 
    If CondicionActiva(celda) Then
        GetColorCondicional = celda.FormatConditions(1).Interior.ColorIndex
    Else
        GetColorCondicional = celda.Interior.ColorIndex
    End If
 
    Select Case GetColorCondicional
        Case 2
            GetColorCondicional = "BLANCO"
        Case 4
            GetColorCondicional = "VERDE"
        Case 5
            GetColorCondicional = "AZUL"
        Case Else
            GetColorCondicional = "OTRO"
    End Select
End Function
 

Lo que he llamado condición activa, es sencillo de entender porque es la evaluación de la fórmula del formato condicional. Su código es el siguiente:

Public Function CondicionActiva(ByVal celda As Range) As Boolean
    Dim formato As FormatCondition
    Set formato = celda.FormatConditions(1)
    If Application.Evaluate(formato.Formula1) Then
        CondicionActiva = True
    Else
        CondicionActiva = False
    End If
End Function
 

Creo que es muy sencillo. Como puedes observar, compruebo que en la celda existan condiciones (If celda.FormatConditions.Count = 0...). Tú puedes mejorar mucho más el código, este es muy básico para que sepas interpretar el problema que surge.

Por si te interesa, te añado también el código para generar la columna E y obtener la fórmula que es evaluada:

Public Function Formulas(ByVal celda As Range) As String
    Dim formato As FormatCondition
    Set formato = celda.FormatConditions(1)
    Formulas = formato.Formula1
End Function
 

Opinión personal

Considero que la herramienta Excel de Microsoft es completísima y puedes realizar complejas operaciones para tu empresa, trabajo, centro educativo, cosas personales etc. Para que su uso pueda ser sencillo y potente, se recurre a opciones como el formato condicional que te permite obtener un reporte muy interesante y profesional. Yo creo que el uso del formato condicional debe hacerse cuando no quieras interferir con código VBA. Además el formato condicional que hemos visto hoy, en VBA también se hace en pocos segundos. Yo para este caso, prefiero hacer todo desde VBA.

Hay cosas de Excel que me parecen curiosas y, a veces, chocan entre ellas mismas:

• Las fórmulas que introduces en las celdas no son en todos los excel iguales y dependen, entre otras cosas, del lenguaje de tu versión. De este modo, la función PROMEDIO en un Excel en español, es lo mismo que la función AVERAGE en inglés.
• VBA (Visual Basic for Applications) está, sin embargo, en inglés.
• Si juntamos estos dos puntos, nos podemos encontrar, por ejemplo, que al evaluar una condición en un formato condicional, verás que la fórmula a evaluar con VBA tiene que estar en inglés. Mira, voy a hacer una inspección a 4 códigos y observa que el único válido es el primero y que verás que está en inglés. Observa también, que las dos celdas B3 y B2 están separadas por coma (,) mientras que en la celda y en un formato condicional esa fórmula te dará error:

Referencias

Los códigos usados en este artículo son muy sencillos pero el que quiera avanzar más, tiene a su disposición este completo documento desarrollando toda esta teoría:

http://www.cpearson.com/excel/cfcolors.htm