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
- Codigos cores - Melhores respostas
- Codigo cores - Melhores respostas
- Codigos gta 5 ps5 - Dicas -Consoles
- Codigos gta 5 pc - Dicas -PC
- Codigos gta san andreas ps2 helicóptero - Dicas -GTA IV
- Gerador de códigos facebook ✓ - Fórum Rede social
- Codigos 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!
