Cursos, tutoriais e planilhas prontas

Obter o código RGB de uma cor

Share on facebook
Share on twitter
Share on linkedin
Share on whatsapp
Share on telegram

Leia também...

Dia dos Namorados

Dia dos Namorados Feliz dia dos Namorados!!! Para esta data especial para muitos apaixonados o Função Excel desenvolveu uma planilha que prova matematicamente que o amor

Continuar lendo

Somar horas

Somar horas Quem já tentou fazer um controle de hora no Excel deve ter se deparado com este problema, a soma de horas dentro do

Continuar lendo

Colchetes no Excel

Acredito que não seja novidade para ninguém que as funções do Excel estão sempre envoltas em parênteses (se isso foi uma novidade para você, sugiro

Continuar lendo

Obter o código RGB de uma cor

Com o código VBA abaixo você poderá obter o código RGB de uma cor de qualquer coisa no Excel, seja uma célula, um gráfico ou algo em um UserfForm.

  1. Abra o arquivo Excel com o qual deseja trabalhar.
  2. Vá para o editor VBA, você pode acessá-lo utilizando o atalho ALT + F11 no teclado.
  3. No menu da esquerda, clique sobre uma local em branco com o botão direito e então em Inserir e depois Módulo, conforme a imagem abaixo.
  4. Na parte direita da tela será exibida uma área para inserção de código VBA. Insira o seguinte código
    Sub CorRGB()
     'Busca a cor RGB da célula da A1 da planilha ativa
     C = Range("A1").Interior.Color
     R = C And 255
     G = C \ 256 And 255
     B = C \ 256 ^ 2 And 255
    End Sub

    Note que o código pode ser inserido em qualquer outro local na macro, sem necessidade de criar um macro própria só para ele, como feito no exemplo.

  5. Salve o arquivo em formato Pasta de Trabalho Habilitada para Macro do Excel conforme a imagem.

Como usar a macro para obter o código RGB

O código de exemplo armazena na variável C todo o código RGB da cor de fundo da célula A1 da planilha ativa. Em seguida o código é quebrado nas três cores que o compõe, Red, Green e Blue e então salvos nas variáveis R, G e B, correspondentemente.

Assim, agora você pode transferir a mesma cor para qualquer outro lugar. Em regra geral o código final possuirá:

.RGB = RGB(R, G, B) ou apenas = RGB(R, G, B)

Por exemplo, caso queiramos transferir a cor de A1 para A2 o código seria:

 C = Range("A1").Interior.Color
 R = C And 255
 G = C \ 256 And 255
 B = C \ 256 ^ 2 And 255

 Range("A2").Interior.Color = RGB(R, G, B)

Ou quem sabe para a primeira série de dados de um gráfico:

 C = Range("A1").Interior.Color
 R = C And 255
 G = C \ 256 And 255
 B = C \ 256 ^ 2 And 255
 
 ActiveSheet.ChartObjects("Gráfico 1").Activate
 ActiveChart.FullSeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(R, G, B)

Entendendo o código de captura RGB

C = Range(“A1”).Interior.Color
Salva em uma variável C toda a informação de cor de preenchimento da célula A1 da planilha ativa.

R = C And 255
G = C \ 256 And 255
B = C \ 256 ^ 2 And 255

Partindo do código armazenado em C são extraídas as partes de cada cor e salvas nas variáveis RGB.

.RGB = RGB(R, G, B)

Seta que a cor RGB de alguma coisa será igual ao código RGB guardado pelas 3 variáveis RGB.


Acompanhe o Função Excel
facebook-logo youtube-logo googleplus-logo twitter-logo

Leia também...

Deixe um comentário ou uma dúvida

Compartilhe

Share on facebook
Share on twitter
Share on linkedin
Share on whatsapp
Share on telegram

Planilhas prontas

Bolão da Copa do Mundo FIFA 2018

Com o Bolão da Copa do Mundo FIFA 2018 do Função Excel, você terá um planilha super confiável, segura, fácil de mexer e de visual super profissional para controlar o bolão com seus amigos, familiares e principalmente, os colegas de trabalho.

Saber mais »

Composição de custos

Calcule e analise todos os custos diretos da produção de seus produtos, seja qual for o tamanho da sua empresa e seu ramo de atuação.

Gere relatórios detalhados que exibem a composição do custo de cada produto, de forma individual ou conjunta. Melhor precifique seus produtos mantendo uma margem de lucro de que você deseja.

Faça simulações com preços de insumos e veja o impacto de cada um na composição total de seu produto final.

Saber mais »

Histórico de Cotações

Baixe cotações históricas de ações, índices, moedas, criptomoedas, commodities e fundos em mais de 50 bolsas de valores no mundo, direto no Excel. Selecione os parâmetros desejados e deixe o arquivo fazer o resto para você, de forma rápida, simples e organizada.

Saber mais »

Ajude o Função Excel a continuar te ajudando, faça um PIX!

Leia também...

Faça uma doação

Nos ajude a continuar te ajudando.
Faça uma doação!

Compartilhe com o mundo

Gostou do artigo?
Não seja egoista, compartilhe!

Share on facebook
Share on twitter
Share on linkedin
Share on whatsapp

fique SEMPRE ATUALIZADO!

Junte-se a lista de e-mails do Função Excel

Receba e-mails semanais e melhore constantemente suas habilidades com Excel

Inscreva-se