Como configurar a cor da cela de Excel segundo unha condición con VBA?

Última actualización: agosto de 2021; Microsoft Excel 365, 2019, 2016.

No titorial de automatización de VBA para Excel de hoxe aprenderemos sobre como podemos cambiar a cor dunha cela mediante programación en función do valor da cela.

Podemos usar esta técnica cando desenvolvemos un panel de estado sinxelo, por exemplo.

Montar

Se aínda non estás a desenvolver en Excel, recomendámosche que consultes a nosa guía de introdución ás macros de Excel . En concreto, cómpre asegurarse de que a pestana Programador estea dispoñible na cinta de Microsoft Excel, xa que a utilizará para escribir un código sinxelo.

• Abra Microsoft Excel. Teña en conta que espérase que o código proporcionado neste titorial funcione en Excel 2007 e posteriores.
• Nunha folla de traballo baleira, engade a seguinte táboa:

• Agora vai adiante e define un rango nomeado premendo: Fórmulas>>Define nome

• Preme Aceptar

Cambiando a cor interior da cela en función do valor con Cell.Interior.Color

• Fai clic na entrada do programador na cinta.
• Preme Visual Basic ou Alt+F11 para abrir o editor VBA para desenvolvedores.
• A continuación, resalte a folla de traballo na que desexa executar o seu código. Alternativamente, selecciona un módulo que teña o teu código VBA.
• Continúa e pega este código. No noso exemplo modificaremos a cor interior dun rango de celas a valores RGB específicos de celas correspondentes ás cores vermella, amarela e verde.
• En concreto utilizamos o método Excel VBA Cell.Interior.Color e pasamos o valor RGB ou índice de cor correspondente.

Sub Color_Cell_Condition()

Dim MyCell As Range
Dim StatValue As String
Dim StatusRange As Range

Set StatusRange = Range("Status")

For Each MyCell In StatusRange

StatValue = MyCell.Value
Select Case StatValue

    Case "Progressing"
    MyCell.Interior.Color = RGB(0, 255, 0)
    
    Case "Pending Feedback"
    MyCell.Interior.Color = RGB(255, 255, 0)
    
    Case "Stuck"
    MyCell.Interior.Color = RGB(255, 0, 0)

End Select

Next MyCell

End Sub

• Executa o teu código, premendo F5 ou Executar>> Executar Sub/Formulario de usuario.
• Notarás que o panel de estado se encheu como se mostra a continuación:

• Garda o teu código e pecha o teu editor VBA.