Como alterar o valor com base na cor da célula no Excel?
Este artigo aborda a alteração automática do valor da célula com base na sua Cor de Fundo no Excel. Por exemplo, se as células preenchidas com a cor vermelha Cor de Fundo estiverem selecionadas, preencha essas células com o número 1, e para as células azuis Cor de Fundo, insira o número 0.
Alterar valor com base na cor da célula com código VBA
Alterar valor com base na cor da célula com código VBA
Pode executar o código VBA abaixo para alterar o valor com base na cor da célula no Excel. Siga estes passos:
1. Selecione o intervalo em que pretende alterar os valores com base na cor de fundo e, em seguida, prima simultaneamente as teclas Alt+F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do Microsoft Visual Basic for Applications, clique em Inserir > Módulo e, de seguida, copie e cole o código VBA abaixo na janela do Módulo.
Código VBA: Alterar valor com base na cor da célula no Excel
Sub ChangeValueBasedOnCellColor()
Dim rg As Range
Dim xRg As Range
Set xRg = Selection.Cells
Application.DisplayAlerts = False
For Each rg In xRg
With rg
Select Case .Interior.Color
Case Is = 255 'Red
.Value = 1
Case Is = 15773696 'Blue
.Value = 0
End Select
End With
Next
Application.DisplayAlerts = False
End Sub3. Prima a tecla F5 para executar o código; poderá então verificar que todas as células vermelhas do Intervalo Selecionado foram preenchidas com o número 1 e as células azuis com o número 0, conforme ilustrado na imagem seguinte.
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