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 cores
- Codigo de cor - Melhores respostas
- Codigos de cores - Melhores respostas
- Inversor de cores - Dicas -Windows
- Código universal para desbloquear celular android -
- Código ascii - Dicas - Codificação
- Como inverter cores no Photoshop - Dicas -Photoshop
- Codigo de helicóptero gta san andreas ps2 - Dicas -GTA IV
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!
