quinta-feira, 3 de novembro de 2016

VBA Excel - códigos cores longos


  • Códigos de cores
  • Função de conversão

Códigos de cores

Os códigos de cores (VBA nomeado abaixo) são as propriedades Interior.ColorIndex , os códigos de cores versão longa são usados ??para propriedades Interior.Color. 

Em primeiro lugar, uma imagem identificando esses códigos de cores. 



Esta imagem é uma cópia da planilha: DIqlTjoC61G 

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
Anterior
Proxima

Postador

0 comentários:

Os comentários serão moderados antes de publicar! respondo todos, obrigado por comentar.