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
- Codigo de cor
- Codigos de cores - Melhores respostas
- Tabela de cores código - Melhores respostas
- Codigo de helicóptero gta san andreas ps2 - Dicas -GTA IV
- Código universal para desbloquear celular android -
- Código ascii - Dicas - Codificação
- Codigo ascii - Dicas -Criptografia
- Codigo cs 1.6 - Dicas -Videogames
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.
Assine nossa newsletter!
