Dica: outros idiomas são traduzidos pelo Google. Você pode visitar o English versão deste link.
Entrar
x
or
x
x
Registre-se
x

or

Como alterar a cor da célula quando a célula é clicada ou selecionada no Excel?

Este artigo mostrará alguns métodos de como alterar a cor da célula ao clicar em uma célula e alterar a cor realçada ao selecionar um intervalo de células no Excel.

Alterar a cor da célula quando a célula é clicada com o código VBA

Altere a cor realçada quando as células são selecionadas com o código VBA

Destaque toda a linha e coluna da célula ativa com o Kutools for Excel


Um clique para destacar linha e coluna da célula selecionada no Excel:

Kutools for Excel's Layout de leitura O utilitário ajuda você a destacar rapidamente a linha e a coluna da célula selecionada no Excel. Ver captura de tela: Faça o download gratuito da trilha completa do dia 60 do Kutools for Excel agora!

Kutools for Excel: com mais de 200 complementos úteis do Excel, grátis para tentar sem limitação nos dias 60. Baixe a versão de teste agora!

Guia do Office Habilitar Edição e Navegação por Guias no Office e Facilitar seu Trabalho ...
Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%
  • Reutilizar qualquer coisa: Adicione as fórmulas, gráficos e outras coisas mais usadas ou complexas aos seus favoritos e reutilize-os rapidamente no futuro.
  • Mais do que recursos de texto 20: Extrair Número da Cadeia de Texto; Extrair ou remover parte dos textos; Converta números e moedas em palavras inglesas ...
  • Mesclar Ferramentas: Várias pastas de trabalho e folhas em um; Mesclar várias células / linhas / colunas sem perder dados; Mesclar linhas duplicadas e soma ...
  • Ferramentas de divisão: Dados divididos em várias folhas com base no valor; Uma pasta de trabalho para vários arquivos Excel, PDF ou CSV; Uma coluna para várias colunas ...
  • Colar pulando Linhas ocultas / filtradas; Contagem e Soma pela cor de fundo; Criar lista de discussão e Envie e-mails pelo valor da célula...
  • Super Filtro: Crie esquemas de filtro avançados e aplique a qualquer folha; tipo por semana, dia, frequência e mais; filtros por negrito, fórmulas, comentário ...
  • Mais de recursos poderosos do 300; Funciona com o Office 2007-2019 e 365; Suporta todos os idiomas; Fácil implantação em sua empresa ou organização.

Alterar a cor da célula quando a célula é clicada com o código VBA

Aqui, você pode alterar a cor de fundo de uma célula ao clicar duas vezes nele ou clicar com ele com o seguinte código VBA.

1. Na folha de cálculo, você alterará a cor da célula ao clicar nele, clique com o botão direito na guia da folha e clique em Ver código no menu do botão direito do mouse.

2. No Microsoft Visual Basic para Aplicações janela, copie e cole o código VBA abaixo no Código janela.

VBA: altere a cor da célula ao clicar nele

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    Target.Interior.Color = vbRed
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    Target.Interior.Color = vbGreen
End Sub

3. Pressione outro + Q chaves simultaneamente para fechar Microsoft Visual Basic para Aplicações janela.

Então, quando você clica duas vezes em uma célula, ela será colorida em vermelho. E quando você clica com o botão direito do mouse em uma célula, ela será colorida em verde. Ver captura de tela:


Altere a cor realçada quando as células são selecionadas com o código VBA

Por padrão, ao selecionar um intervalo de células, a cor realçada é cinza. Se você quiser tornar o alcance selecionado mais destacado, você pode alterar sua cor destacada para aquele que você precisa. Faça o seguinte.

1. Clique com o botão direito na aba da folha que deseja alterar a cor realçada do intervalo selecionado e clique em Ver código no menu do botão direito do mouse.

2. No Microsoft Visual Basic para Aplicações janela, copie e cole o código VBA abaixo no Código janela.

Código VBA: altere a cor realçada do intervalo selecionado

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Target
        .Worksheet.Cells.FormatConditions.Delete
        .FormatConditions.Add xlExpression, , "TRUE"
        .FormatConditions(1).Interior.Color = vbYellow
    End With
End Sub

3. Pressione outro + Q teclas ao mesmo tempo para fechar o Microsoft Visual Basic para Aplicações janela.

De agora em diante, a cor destacada do alcance ou da célula selecionada é alterada para amarelo. Quando você clica em outra célula ou intervalo de células, as células serão coloridas automaticamente.


Destaque toda a linha e coluna da célula ativa com o Kutools for Excel

Se você está lidando com uma grande planilha, é necessário destacar toda a linha e coluna da célula ativa para facilitar a leitura. Aqui o Layout de leitura utilidade de Kutools for Excel pode ajudá-lo.

Kutools for Excel : com mais de 300 complementos Excel úteis, grátis para tentar sem limitação em dias 60.

1. Clique Kutools > Layout de leitura. Ver captura de tela:

Então, o layout de leitura está habilitado, você pode ver a linha e a coluna da célula ativa serem destacadas imediatamente.

notas: Você pode alterar as configurações de layout de leitura com base nas suas necessidades conforme mostrado abaixo na tela.

Gorjeta.Se você quiser ter uma versão gratuita deste utilitário, acesse baixe o software livremente primeiro, e depois vá para aplicar a operação de acordo com as etapas acima.


Office Tab - Navegação com guias, edição e gerenciamento de pastas de trabalho no Excel:

O Office Tab traz a interface com guias, como visto em navegadores da web, como o Google Chrome, as novas versões do Internet Explorer e o Firefox para o Microsoft Excel. Será uma ferramenta que economiza tempo e é insubstituível no seu trabalho. Veja abaixo a demonstração:

Clique para a versão gratuita do Office Tab!

Guia do Office para Excel


Destaque toda a linha e coluna da célula ativa com o Kutools for Excel

Kutools for Excel inclui mais do que 300 ferramentas úteis do Excel. Gratuito para tentar sem limitação nos dias 60. Baixe o teste gratuito agora!


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

  • armadilha para peixes: Inserir rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de endereços e enviar e-mails ...
  • Bar Super Fórmula (facilmente editar várias linhas de texto e fórmula); Layout de leitura (leia e edite facilmente grandes números de células); Colar para intervalo filtrado...
  • Mesclar células / linhas / colunas sem perder dados; Conteúdo de células divididas; Combinar linhas / colunas duplicadas... Prevenir Células Duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Exclusivo Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros de trabalho; Seleção aleatória ...
  • Cópia exata Múltiplas Células sem alterar a referência da fórmula; Criar automaticamente referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair texto, Adicionar texto, remover por posição, Remover espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salve e aplique esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro especial por negrito, itálico ...
  • Combinar pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Dividir dados em várias planilhas; Lote Converter xls, xlsx e PDF...
  • Mais de recursos poderosos do 300. Suporta Office / Excel 2007-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos Avaliação gratuita de um dia de 30.
kte tab 201905

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

  • Ativar edição e leitura com guias no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
fundo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Vishnu Subind · 4 months ago
    Hi guys, so i used to first code to change the cell colour to green/red on doubleclick/rightclick. I would like this code, however, to work just on a specific range of cells, in my case D9:P9. can someone help me on how to do that? Im new at VBA
    • To post as a guest, your comment is unpublished.
      crystal · 23 days ago
      Hi,
      The below VBA code can do you a favor, please have a try. Thank you for your comment.

      Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
      If (Not Application.Intersect(Target, Me.Range("D9:P9")) Is Nothing) Then
      Cancel = True
      Target.Interior.Color = vbRed
      End If
      End Sub
      Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
      If (Not Application.Intersect(Target, Me.Range("D9:P9")) Is Nothing) Then
      Cancel = True
      Target.Interior.Color = vbGreen
      End If
      End Sub
  • To post as a guest, your comment is unpublished.
    rahayu · 6 months ago
    trimakasih
  • To post as a guest, your comment is unpublished.
    rahayu · 6 months ago
    td muncul=tidak muncul
  • To post as a guest, your comment is unpublished.
    rahayu · 6 months ago
    Salam...
    sy sudah install kutools, tp kok td muncul tab kutools di layar excel ya? gmn cara mmunculkannya?trimakasih
  • To post as a guest, your comment is unpublished.
    Cr Decima · 7 months ago
    I have a problem.
    I want change color of one hyperlink if it had linked with one PDF to RED and if had not link with one PDF will show BLUE color.
    How can I do now?
    • To post as a guest, your comment is unpublished.
      crystal · 7 months ago
      Good day,
      Sorry can't help you with that. Thanks for commenting.
  • To post as a guest, your comment is unpublished.
    Devika Kalika · 8 months ago
    I tried the "Change the highlighted color when cells are selected with VBA code" option and saved my excel as Macro Enabled Worksheet. Now the last cells that were selected are highlighted and won't highlight other cells when selected. I've deleted code and reentered and saved, but still no change. I can't remove the previous highlight either. I'm at lost on what to do.
    • To post as a guest, your comment is unpublished.
      crystal · 8 months ago
      Hi,
      The code works well in my case after saving the workbook as an Excel Macro-Enabled Workbook.
      Can you tell me your Excel version?
  • To post as a guest, your comment is unpublished.
    Jason · 11 months ago
    Is there a way to just apply this to certain cells while leaving other cells with available for number entering?
  • To post as a guest, your comment is unpublished.
    Slaxx · 1 years ago
    hi. just a little heads up. i'm using office 2007.
    i tried your code, and while it did work, it wasn't what i was looking for. so i just deleted the code completely. but the last selected/active cell before i deleted the code is still green (i changed the color from vbYellow to vbGreen), and the color won't go away. it's not affected by fill color either.
    the simplest solution i found was to just delete the cell. copying and pasting will not work, it will also copy the color.
    just thought i'd let you know. you might find another solution/troubleshooting for this, besides deleting and manual entry. still, thanks! i confirm that the code works :)
  • To post as a guest, your comment is unpublished.
    Michelle · 1 years ago
    I love how easy formatting my worksheet the code for "change cell color when clicking on it" would make my daily work! I am hitting a snag though. When I copy my Blank Sheet with the code entered as described, I get a error. It runs great until I create new sheets. I am a novice at coding and am working from textbooks and the internet. I appreciate any help you will offer!
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Dear Michelle,
      I followed the steps as you described, but the code also worked in my case. Can you tell me your Office version?
      Thanks for your comment.
  • To post as a guest, your comment is unpublished.
    madhav neupane · 1 years ago
    thank you thank you so much. I appreciate you for this.