VBA Excel - códigos cores longos
Os códigos de cores VBA nomeados abaixo são as propriedades Interior.ColorIndex. Por sua vez, os códigos de cores versão longa são usados para propriedades Interior.Color.
Códigos de cores
Em primeiro lugar, uma imagem identificando esses códigos de cores:
Essa imagem é uma cópia de uma planilha acessível DIqlTjoC61G aqui.
Função de conversão
Este converteu o VBA valores de cor (1 a 56) na sua função Longo código da versão:
Função CorLonga(Cor As Integer) As Long Dim CorsLng()Conversão CorsLng = Array(0, 16777215, 255, 65280, 16711680, 65535, 16711935, 16776960, 128, 32768, 8388608, 32896, 8388736, 8421376, _ 12632256, 8421504, 16751001, 6697881, 13434879, 16777164, 6684774, 8421631, 13395456, 16764108, 8388608, 16711935, 65535, _ 16776960, 8388736, 128, 8421376, 16711680, 16763904, 16777164, 13434828, 10092543, 16764057, 13408767, 16751052, 10079487, _ 16737843, 13421619, 52377, 52479, 39423, 26367, 10053222, 9868950, 6697728, 6723891, 13056, 13107, 13209, 6697881, 10040115, 3355443, 16777215) 'Em caso de erro colorir em preto If Cor < 0 Or Cor > 56 Then CouversãoCorLonga = 0 ConversãoCorLonga = CoresLng(Cor) End Function
Foto: © Sasirin Pamai - 123RF.com
Veja também
- Codigos de cores
- Codigo de cores - Melhores respostas
- Codigo de cor - Melhores respostas
- Codigo de cor transparente - Dicas - CSS
- Código hexadecimal de uma cor - Dicas - HTML
- Complete o código abaixo de modo que todos os links de uma página não tenha a linha sublinhada e que o texto esteja na cor #3366 - Dicas - HTML
- Código para mudar a cor da letra no facebook - Dicas - Facebook
- Códigos gta 5 pc - Dicas - PC
Este documento, intitulado 'VBA Excel - códigos cores longos', está disponível sob a licença Creative Commons. Você pode copiar e/ou modificar o conteúdo desta página com base nas condições estipuladas pela licença. Não se esqueça de creditar o CCM (br.ccm.net) ao utilizar este artigo.
