Como alterar o valor com base na cor da célula no Excel?
Este artigo trata de alterar automaticamente o valor da célula com base em sua cor de fundo no Excel. Por exemplo, se as células forem preenchidas com a cor de fundo vermelha na seleção, então popule essas células com o número 1, e para as células com cor de fundo azul, preencha com 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
Você pode executar o código VBA abaixo para alterar o valor com base na cor da célula no Excel. Por favor, siga os passos a seguir.
1. Selecione o intervalo que você precisa alterar os valores com base na cor de fundo, depois pressione simultaneamente as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Na janela Microsoft Visual Basic for Applications, clique em Inserir > Módulo, depois copie e cole o código VBA abaixo na janela 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 Sub
3. Pressione a tecla F5 para executar o código, então você poderá ver que todas as células vermelhas no intervalo selecionado são preenchidas com o número 1, e as células azuis são preenchidas com o número 0, conforme mostrado na captura de tela abaixo.
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.





- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins