Mudar cor da célula ao clicar Excel

Validação de dados tripla dinâmica no Excel
Validação de Dados Tripla Dinâmica no Excel
25 de julho de 2018
Matriz Gráfico BCG capa
Planilha Matriz BCG Excel
4 de agosto de 2018

Mudar cor da célula ao clicar Excel

Neste artigo é demonstrado como mudar a cor da célula ao clicar no Excel.

O objetivo é destacar os dados para facilitar a leitura dos dados, para isso é realizada uma pequena automação que você poderá seguir passo-a-passo no Excel com VBA.

Você pode se interessar também por: Agilizar leitura de comentários no Excel

 

Mudar cor da célula ao clicar Excel

No exemplo da imagem acima, foi clicado na célula F9 e a linha 9 foi toda colorida, ao mudar a seleção para outro intervalo, esta célula automaticamente volta para a cor branca e a nova seleção fica colorida com esta cor verde.

Mudar cor da célula ao clicar Excel 2

Para fazer a implementação deste código siga os passos seguintes, entendendo também o código. Caso tenha dúvidas ou queira muito mais detalhes assista o vídeo no topo deste artigo.

Mudar a cor da célula ao clicar Excel

Esta rotina pode ser copiada e aplicada em qualquer planilha, bastando copiar o código e fazer pequenas adaptações como mudar a cor ou os limites da planilha.

  1. Abra a planilha aonde quer implementar a funcionalidade de colorir a linha ou as células selecionadas.
  2. Com a planilha aberta pressione CTRL+F11 ou clique na guia Desenvolvedor e no botão Visual Basic.
  3. Na tela do VBE (Visual Basic Editor), clique na planilha que está trabalhando, na árvore de objetos á esquerda e dê um duplo clique.
  4. Selecione então o objeto Worksheet e o evento Selection Change na janela de codificação á direita da árvore, conforme a imagem nos campos destacados em amarelo.Mudar cor da célula ao clicar Excel 3
  5. Na janela do código cole o seguinte código, pode inclusive substituir tudo que há na janela de código, este código já funciona diretamente.
'Guardar o intervalo anterior
Dim lTarget As Range

'Ao mudar a célula fazer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'Se a linha for maior do que 4 fazer
    If Target.Row >= 4 Then
        'Limpar o intervalo anterior que foi selecionado
        If Not lTarget Is Nothing Then
            'Mudar a cor para branco do intervalo anterior
            lTarget.EntireRow.Interior.ColorIndex = 0
        End If
        
        'Colorir com verde o intervalo atual
        Target.EntireRow.Interior.Color = 9359529
        
        'Guardar o intervalo selecionado
        Set lTarget = Target
    End If
End Sub

O código está devidamente comentado para facilitar os seus ajustes na cor ou ainda no número da linha á partir da qual será colorida a linha.

Caso queira colorir apenas o intervalo selecionado, e não a linha inteira, use o código abaixo.

 

'Guardar o intervalo anterior
Dim lTarget As Range

'Ao mudar a célula fazer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'Se a linha for maior do que 4 fazer
    If Target.Row >= 4 Then
        'Limpar o intervalo anterior que foi selecionado
        If Not lTarget Is Nothing Then
            'Mudar a cor para branco do intervalo anterior
            lTarget.Interior.ColorIndex = 0
        End If
        
        'Colorir com verde o intervalo atual
        Target.Interior.Color = 9359529
        
        'Guardar o intervalo selecionado
        Set lTarget = Target
    End If
End Sub

Veja o resultado deste segundo código:

Mudar cor da célula ao clicar Excel 4

Abraço

Marcos Rieper

Veja mais artigos sobre VBA em: https://www.guiadoexcel.com.br/vba/


Clique aqui e leia mais sobre Excel VBA. https://www.guiadoexcel.com.br/vba/ O Guia do Excel foi criado por Marcos Rieper e oferece artigos, dicas, tutoriais e modelos de planilhas prontas. Aqui você encontra tudo sobre Excel, seja de nível básico, intermediário,  avançado e VBA. O Guia do Excel oferece diversos materiais completamente gratuitos para download. Navegue em nosso site e confira! Conheça também a nossa Loja do Excel https://loja.guiadoexcel.com.br/
Cursos

Curso Excel Completo – Curso Excel Básico + Curso Excel Avançado – Acesso Vitalício

R$218,00 R$179,00

COMPRAR
Cursos

Curso Excel Master – Curso Excel Básico + Curso Excel Avançado + Curso VBA Excel + LP – Acesso Vitalício

R$357,00 R$249,00

COMPRAR
Cursos

Curso Excel PRO – Curso Excel Avançado + Curso VBA Excel + Lógica de programação – Acesso Vitalício

R$258,00 R$199,00

COMPRAR
Cursos

Curso Excel Web – Curso VBA Excel + Lógica de programação + Curso Web Scraping VBA- Acesso Vitalício

R$388,90 R$309,00

COMPRAR

1 Comentário

  1. yoni disse:

    Tenho uma questão:
    É possivel selcionar celula por celula, as devidas cores?

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.

Inscreva-se no nosso canal do Youtube!


Junte-se ao nosso canal do Youtube. Começamos em abril de 2016, mas já temos mais de 06:00 h de treinamentos gratuitos e este número irá aumentar. Vídeos novos todos os sábados.