Como alterar a cor da forma com base no valor da célula no Excel?

Alterar a cor da forma com base em um valor de célula específico pode ser uma tarefa interessante no Excel, por exemplo, se o valor da célula em A1 for menor que 100, a cor da forma será vermelha, se A1 for maior que 100 e menor que 200, o a cor da forma é amarela e quando A1 é maior que 200, a cor da forma é verde, conforme mostrado a seguir. Para alterar a cor da forma com base no valor de uma célula, este artigo apresentará o método para você.

Alterar a cor da forma com base no valor da célula com código VBA

Alterar a cor da forma com base no valor da célula com código VBA

O código VBA a seguir pode ajudá-lo a alterar a cor da forma com base em um valor de célula, faça o seguinte:

1. Clique com o botão direito na guia da planilha cuja cor da forma você deseja alterar e selecione Ver código a partir do menu de contexto, no pop-out Microsoft Visual Basic para Aplicações janela, copie e cole o código a seguir no espaço em branco Módulo janela.

Código VBA: mude a cor da forma com base no valor da célula:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160704
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    If IsNumeric(Target.Value) Then
        If Target.Value < 100 Then
            ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbRed
        ElseIf Target.Value >= 100 And Target.Value < 200 Then
            ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbYellow
        Else
            ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbGreen
        End If
    End If
End Sub

2. E então, quando você inserir o valor na célula A1, a cor da forma será alterada com o valor da célula conforme definido.

Note: No código acima, A1 é o valor da célula em que a cor da sua forma seria alterada, e o Oval 1 é o nome da forma da forma inserida, você pode alterá-los conforme sua necessidade.