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