Como alterar a cor de uma forma no Excel com base no valor de uma célula?
Alterar a cor de uma forma com base no valor de uma célula pode tornar-se uma tarefa bastante interessante no Excel. Por exemplo, se o valor da célula A1 for inferior a 100, a forma fica vermelha; se estiver entre 100 e 200, a forma fica amarela; e se for superior a 200, a forma fica verde — tal como ilustrado na seguinte captura de ecrã. Este artigo mostra-lhe um método prático para alterar automaticamente a cor de uma forma conforme o valor contido numa célula.
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 abaixo permite alterar a cor de uma forma com base no valor de uma célula. Siga os passos seguintes:
1. Clique com o botão direito do rato no separador da folha onde pretende alterar a cor da forma e selecione Ver Código no menu de contexto. Na janela Microsoft Visual Basic for Applications que surgir, copie e cole o seguinte código na janela em branco do Módulo.
Código VBA: Alterar 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. Em seguida, ao introduzir um valor na célula A1, a cor da forma muda automaticamente de acordo com o valor definido.
Nota: No código acima, A1 é a célula cujo valor determina a alteração da cor da forma, e Oval 1 é o nome da forma inserida. Pode ajustar estes elementos conforme as suas necessidades.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos