Use uma fórmula ou função definida para preencher automaticamente o texto com base na cor de preenchimento da célula no Excel

Suponha que haja uma lista de células preenchidas com a cor de fundo vermelha ou verde, e agora você deseja preencher textos com base na cor de preenchimento da célula. Por exemplo, como mostrado na captura de tela abaixo, preencha a célula com a cor vermelha com “Sim”, preencha a célula com a cor verde com “Não”; se não for nem vermelho nem verde, preencha com o texto "Nenhum".

Usar fórmula para preencher automaticamente o texto com base na cor de preenchimento da célula

Usar uma ferramenta prática para preencher automaticamente o texto com base na cor de preenchimento da célula

Usar função definida para preencher automaticamente o texto com base na cor de preenchimento da célula em outra coluna

Arquivo de exemplo

Para usar uma fórmula para preencher automaticamente uma célula com um texto específico com base na cor de preenchimento da célula, você precisa primeiro definir um nome.

1. Selecione uma célula, supondo a célula A1, clique em Fórmulas > Definir Nome no grupo Nomes Definidos .

2. Na caixa de diálogo Novo Nome, digite Mycolor na caixa Nome e insira esta fórmula

Na caixa Refere-se a . Clique em OK.

Formula!A1 indica a célula A1 na planilha chamada formula, 10 e 3 são os índices de cor, você pode alterá-los conforme necessário. Para mais índices de cores, consulte este site: http://dmcritchie.mvps.org/excel/colors.htm

Agora, na célula que está preenchida com cor, você pode digitar esta fórmula

Pressione a tecla Enter , então você retornará o texto com base na cor de preenchimento da célula.

Com o método de definição de nome, você precisa digitar novamente a fórmula na célula toda vez, o que é trabalhoso. Aqui, com o Kutools para Excel, uma coleção de ferramentas do Excel, sua utilidade Selecionar Células com Formato pode selecionar rapidamente todas as células de uma cor de fundo, e então você pode inserir o texto especificado nelas em massa.

Após instalar gratuitamente o Kutools para Excel, por favor, faça o seguinte:

1. Em duas células que você não utiliza, e preencha separadamente a cor de fundo. Suponha que, neste caso, eu quero preencher o texto “Ir” nas células de cor azul, preencher o texto “Parar” nas células de cor laranja, vou preencher as cores laranja e azul nas células A1 e B1.

2. Em seguida, selecione as células onde você deseja inserir o texto com base na cor preenchida, clique em Kutools > Selecionar > Selecionar células com formato semelhante.

3. Na caixa de diálogo Selecionar células com formato semelhante clique no botão Selecionar formato a partir da célula e, em seguida, na janela pop-up, escolha A1, que foi preenchido com a cor que você deseja encontrar células.

Clique em OK para voltar à caixa de diálogo principal, desmarque tudo exceto a opção Preenchimento e desmarque também a opção Ignorar células vazias Clique em Ok > Sim para selecionar todas as células preenchidas com a cor azul.

4. Agora digite o texto específico na barra de fórmulas, pressione Ctrl + Enter para preencher todas as células selecionadas com o mesmo texto.

Se você deseja preencher o texto com base na cor de preenchimento da célula em outra coluna, pode usar a função definida.

1. Pressione as teclas Alt + F11 para habilitar a janela Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo na janela para inserir um script em branco, depois copie e cole o código abaixo.

VBA: preencher célula com base na cor preenchida em outra célula

Function GetRangeColor(xRg As Range)
'UpdatebyKutools20191125
    If (xRg.Count > 1) Then
       GetRangeColor = "Only work for single cell"
    End If
    Select Case xRg.Interior.Color
    Case RGB(255, 0, 0)
        GetRangeColor = "Play"
    Case RGB(0, 255, 0)
        GetRangeColor = "Stop"
    Case Else
      GetRangeColor = "Neither"
    End Select
End Function

No código, RGB(255, 0, 0) e RGB(0, 255, 0) são os índices de cor, você pode alterá-los conforme necessário. Para mais índices de cores, consulte este site: http://dmcritchie.mvps.org/excel/colors.html

3. Salve este código e feche a janela e volte para a planilha. Depois, em uma célula, digite a fórmula

Pressione a tecla Enter, depois arraste a alça de preenchimento sobre as células para preencher essa fórmula.

A1 é a célula que você deseja preencher com base na sua cor de preenchimento.

Clique para baixar o arquivo de exemplo

---

As Melhores Ferramentas de Produtividade para o Office

Kutools para Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

• Barra de Fórmulas Super (edite facilmente várias linhas de texto e fórmulas); Layout de Leitura (leia e edite facilmente um grande número de células); Cole em Intervalo Filtrado...
• Mesclar Células/Linhas/Colunas mantendo os dados; Dividir conteúdo de células; Combinar Linhas Duplicadas e Somar/Média... Prevenir Células Duplicadas; Comparar Intervalos...
• Selecionar Linhas Duplicadas ou Únicas; Selecionar Linhas em Branco (todas as células estão vazias); Super Localizar e Localização Difusa em Muitas Pastas de Trabalho; Seleção Aleatória...
• Cópia Exata de Múltiplas Células sem alterar a referência da fórmula; Criar automaticamente referências para várias planilhas; Inserir Marcadores, Caixas de Seleção e mais...
• Favoritar e Inserir rapidamente Fórmulas, Intervalos, Gráficos e Imagens; Criptografar Células com senha; Criar Lista de Correspondência e enviar emails...
• Extrair Texto, Adicionar Texto, Remover por Posição, Remover Espaço; Criar e Imprimir Estatísticas da Página de Dados; Converter entre o Conteúdo das Células e Comentários...
• Super Filtro (salvar e aplicar esquemas de filtro em outras planilhas); Classificação Avançada por mês/semana/dia, frequência e mais; Filtro Especial por negrito, itálico...
• Consolidar Pastas de Trabalho e Planilhas; Mesclar Tabelas com base em colunas-chave; Dividir Dados em Múltiplas Planilhas; Conversão em Lote de xls, xlsx e PDF...
• Agrupamento de Tabela Dinâmica por número da semana, dia da semana e mais... Mostrar Células Desbloqueadas, Bloqueadas por cores diferentes; Destacar Células Que Contêm Fórmula/Nome...

Leia Mais... Teste Gratuito de 30 Dias com Todos os Recursos... Comprar... 

---

Office Tab - traz a interface com guias para o Office e torna seu trabalho muito mais fácil

• Habilite a edição e leitura com guias no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
• Abra e crie vários documentos em novas abas da mesma janela, em vez de em novas janelas.
• Aumenta sua produtividade em 50% e reduz centenas de cliques de mouse para você todos os dias!

Leia Mais... Teste Gratuito de 30 Dias com Todos os Recursos... Comprar...