Realçar Células no Excel – VBA

Apostila Excel 2007 e Exercícios Excel 2007
Apostila Excel 2007 e Exercícios Excel 2007
1 de outubro de 2011
Cadastro VBA Excel com Validação de Dados
Cadastro VBA Excel com Validação de Dados
8 de outubro de 2011

Objetivo: Realçar células alterando a cor de fundo destas quando selecionada.

Este procedimento pode ser utilizado em apresentações aonde você quer ressaltar dados, tendo por finalidade alterar a cor de fundo das células selecionadas e logo após uma nova seleção estas voltarem com o fundo padrão do Excel.

Atenção: Se estiver colorido, não voltará a cor anteriormente definida.

Para isso determine uma planilha em que queira ressaltar os dados e siga o procedimento do artigo HABILITANDO A GUIA DESENVOLVEDOR E COPIANDO PROCEDIMENTOS VBA ntos VBA (SUB) DA INTERNET, inserindo o código abaixo:

Dim lTarget As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not lTarget Is Nothing Then
        lTarget.Interior.ColorIndex = 0
    End If

    Target.Interior.ColorIndex = 6

    Set lTarget = Target
End Sub

Como resultado final você tem que a cada alteração de seleção de dados o sistema irá pintar o interior das células de amarelo, você também pode utilizar outras cores, alterando para isso a linha que define Target.Interior.ColorIndex = 6 para outro número conforme a tabela:

interior font HTML bgcolor= Red< Green Blue Color
Black [Color 1] #000000 #000000 0 0 0 [Black]
White [Color 2] #FFFFFF #FFFFFF 255 255 255 [White]
Red [Color 3] #FF0000 #FF0000 255 0 0 [Red]
Green [Color 4] #00FF00 #00FF00 0 255 0 [Green]
Blue [Color 5] #0000FF #0000FF 0 0 255 [Blue]
Yellow [Color 6] #FFFF00 #FFFF00 255 255 0 [Yellow]
Magenta [Color 7] #FF00FF #FF00FF 255 0 255 [Magenta]
Cyan [Color 8] #00FFFF #00FFFF 0 255 255 [Cyan]
[Color 9] [Color 9] #800000 #800000 128 0 0 [Color 9]
[Color 10] [Color 10] #008000 #008000 0 128 0 [Color 10]
[Color 11] [Color 11] #000080 #000080 0 0 128 [Color 11]
[Color 12] [Color 12] #808000 #808000 128 128 0 [Color 12]
[Color 13] [Color 13] #800080 #800080 128 0 128 [Color 13]
[Color 14] [Color 14] #008080 #008080 0 128 128 [Color 14]
[Color 15] [Color 15] #C0C0C0 #C0C0C0 192 192 192 [Color 15]
[Color 16] [Color 16] #808080 #808080 128 128 128 [Color 16]
[Color 17] [Color 17] #9999FF #9999FF 153 153 255 [Color 17]
[Color 18] [Color 18] #993366 #993366 153 51 102 [Color 18]
[Color 19] [Color 19] #FFFFCC #FFFFCC 255 255 204 [Color 19]
[Color 20] [Color 20] #CCFFFF #CCFFFF 204 255 255 [Color 20]
[Color 21] [Color 21] #660066 #660066 102 0 102 [Color 21]
[Color 22] [Color 22] #FF8080 #FF8080 255 128 128 [Color 22]
[Color 23] [Color 23] #0066CC #0066CC 0 102 204 [Color 23]
[Color 24] [Color 24] #CCCCFF #CCCCFF 204 204 255 [Color 24]
[Color 25] [Color 25] #000080 #000080 0 0 128 [Color 25]
[Color 26] [Color 26] #FF00FF #FF00FF 255 0 255 [Color 26]
[Color 27] [Color 27] #FFFF00 #FFFF00 255 255 0 [Color 27]
[Color 28] [Color 28] #00FFFF #00FFFF 0 255 255 [Color 28]
[Color 29] [Color 29] #800080 #800080 128 0 128 [Color 29]
[Color 30] [Color 30] #800000 #800000 128 0 0 [Color 30]
[Color 31] [Color 31] #008080 #008080 0 128 128 [Color 31]
[Color 32] [Color 32] #0000FF #0000FF 0 0 255 [Color 32]
[Color 33] [Color 33] #00CCFF #00CCFF 0 204 255 [Color 33]
[Color 34] [Color 34] #CCFFFF #CCFFFF 204 255 255 [Color 34]
[Color 35] [Color 35] #CCFFCC #CCFFCC 204 255 204 [Color 35]
[Color 36] [Color 36] #FFFF99 #FFFF99 255 255 153 [Color 36]
[Color 37] [Color 37] #99CCFF #99CCFF 153 204 255 [Color 37]
[Color 38] [Color 38] #FF99CC #FF99CC 255 153 204 [Color 38]
[Color 39] [Color 39] #CC99FF #CC99FF 204 153 255 [Color 39]
[Color 40] [Color 40] #FFCC99 #FFCC99 255 204 153 [Color 40]
[Color 41] [Color 41] #3366FF #3366FF 51 102 255 [Color 41]
[Color 42] [Color 42] #33CCCC #33CCCC 51 204 204 [Color 42]
[Color 43] [Color 43] #99CC00 #99CC00 153 204 0 [Color 43]
[Color 44] [Color 44] #FFCC00 #FFCC00 255 204 0 [Color 44]
[Color 45] [Color 45] #FF9900 #FF9900 255 153 0 [Color 45]
[Color 46] [Color 46] #FF6600 #FF6600 255 102 0 [Color 46]
[Color 47] [Color 47] #666699 #666699 102 102 153 [Color 47]
[Color 48] [Color 48] #969696 #969696 150 150 150 [Color 48]
[Color 49] [Color 49] #003366 #003366 0 51 102 [Color 49]
[Color 50] [Color 50] #339966 #339966 51 153 102 [Color 50]
[Color 51] [Color 51] #003300 #003300 0 51 0 [Color 51]
[Color 52] [Color 52] #333300 #333300 51 51 0 [Color 52]
[Color 53] [Color 53] #993300 #993300 153 51 0 [Color 53]
[Color 54] [Color 54] #993366 #993366 153 51 102 [Color 54]
[Color 55] [Color 55] #333399 #333399 51 51 153 [Color 55]
[Color 56] [Color 56] #333333 #333333 51 51 51 [Color 56]

Fonte: http://dmcritchie.mvps.org/excel/colors.htm

GUT PPT

Abraço

Marcos Rieper


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

5 Comentários

  1. ocaccy disse:

    Olá para todos,
    Meu Desktop:
    Windows 7 Ultimate 64 bits,
    MS Office 2010 Pro.

    Estou tentando tentando gravar uma MACRO na Pasta de trabalho pessoal de macros e fazer a PERSONAL.XLSB funcionar.

    Mas sempre dá a mensagem:

    A pasta de macros pessoais na pasta iniciar deve estar aberta para gravação.

    Alguém sabe qual o problema?

    Abraços,
    ocaccy

  2. Link Quebrado disse:

    Com ofazer para baixar o arquivo com o link quebrado?

  3. Ray Pinho disse:

    Olá, gostaria de receber sua ajuda.
    estou com um código aqui e não tenho muito conhecimento de macros, VBA e etc..
    mas, gostaria de resolver esta questão.

    Sub frmcadastrocc()
    Sheets(“CENTRO DE CUSTO”).Select
    UserForm1.Show
    End Sub

    Private Sub cmdenviar_Click()
    Dim linha As Integer
    linha = Sheets(“CENTRO DE CUSTO”).Cells(Rows.Count, “A”).End(xlUp).Offset(1, 0).Row – 3
    ‘BASE é o local onde os registros serão armazenados, este local pode ser trocadoc conforme a sua necessidade ou preferência.

    Sheets(“CENTRO DE CUSTO”).Select
    ‘posiciona o cursor na planilha cadastro

    Range(“a2:c2”).Select

    ActiveCell.Offset(1, 0).Range(“a1”).Select
    ‘cursor posicionado uma celula para baixo ( primeira em branco)

    ActiveCell.Value = Me.txtnome.Text
    ‘a celula atual ter o seguinte valor

    ActiveCell.Offset(0, 1).Activate
    ‘posiciona o cursor uma célula para a direita

    ActiveCell.Value = Me.txtcodigo.Text
    ‘a celula atual ter o seguinte valor

    ActiveCell.Offset(0, 1).Activate
    ‘posiciona o cursor uma célula para a direita

    ActiveCell.Value = Me.txtcategoria.Text
    ‘a celula atual ter o seguinte valor

    ActiveCell.Offset(0, 1).Activate
    ‘posiciona o cursor uma célula para a direita

    ActiveCell.Offset(1, -3).Activate
    ‘posiciona o cursor uma linha abaixo e 3 colunas a esquerda.

    End Sub

    Private Sub cmdlimpacadastrarformcc_Click()

    ‘Limpar Formulário

    Me.txtnome = “”
    Me.txtcodigo = “”
    Me.txtcategoria = “”
    Me.txtnome = SetFocus

    End Sub

    Sendo que o form só envia na linha dois, depois envio novamente e ele apaga o anterior e o substitui.
    quero que ele vá preenchendo as linhas de acordo como for sendo inserido no form.
    Obrigado!

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.