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
Potencialize suas habilidades no Excel com o Kutools para Excel e experimente uma eficiência sem igual. O Kutools para Excel oferece mais de300 recursos avançados para aumentar sua produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
O Office Tab traz interface com abas para o Office e facilita muito o seu trabalho
- Habilite a edição e leitura com abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas abas na mesma janela, em vez de abrir novas janelas.
- Aumente sua produtividade em50% e reduza centenas de cliques do mouse todos os dias!