0185-Dica VBA: Montando uma tabela com os valores numéricos correspondentes às cores

Aqueles que observam meus códigos, devem ter percebido que utilizo em praticamente 100% dos casos a propriedade ColorIndex para atribuir cores a intervalos e fontes.
Isso se tornou um hábito mesmo para as versões mais novas do Excel que apresentam uma paleta de cores muito maior.
Minhas razões:
1. A propriedade Color tem uma abrangência de valores muito grande. Para trabalhar com ela é necessário definir também as propriedades TintAndShade e PatternTintAndShade. Cada combinação das três propriedades resulta numa cor da paleta… Na minha opinião é muita coisa para decorar. A alternativa é usar o gravador de macros a cada cor que precisamos obter, o que também considero uma perda de tempo.
2. A propriedade RGB exige que conheçamos os parâmetros de red-green-blue (vermelho-verde-azul) para definirmos uma cor. Para quem não trabalha com editoração ou programação mais profundamente, não é uma tarefa fácil.
3. Finalmente ColorIndex possui apenas 56 possíveis valores, o que é mais do que suficiente, na grande maioria das aplicações práticas.

Mas mesmo assim, são 56 valores para lembrar…

A menos que vocês montem a sua própria tabela de referência!

O código a seguir, permite fazer isso num piscar de olhos:

Sub ColorIndex()
'Declarar variável
Dim i As Integer

'Iniciar o Loop para os 56 valores da propriedade
For i = 1 To 56

'Escrever na coluna 1 o valor numérico
Cells(i, 1) = i

'Preencher na coluna B a cor correspondente
Cells(i, 2).Interior.ColorIndex = i

Next i
End Sub

Com essa tabela criada, salve-a e a utilize sempre que precisar consultar uma determinada cor.

Após alguma prática, saberão de cor os valores que utilizam com maior frequência.

[ ]s

In Excel We Trust

Marcado com: , , , ,
Publicado em Nível: Avançado

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

Visitas dos usuários
  • 1,969,548

Clique para assinar este blog e receber notificações de novos artigos por email.

Junte-se a 1.477 outros seguidores

Aumente sua interação

Siga-nos do twitter (@usuariosdoexcel).

Acesse o nosso fórum e compartilhe as suas dúvidas.

Curta nossa página no Facebook.

Junte-se ao grupo do LinkedIn.

Visite-nos utilizando o seu smartphone ou tablet.

Recomende este Blog
Visualizar notícias
Site monitorado:
Real Time Web Analytics

Clicky

%d blogueiros gostam disto: