VBA Excel - Цветовые коды

Цветовые коды

На изображении ниже перечислены цветовые коды:

Образец рабочей книги можно скачать по этой ссылке: //cjoint.com/?DIqlTjoC61G

Функция преобразования:

Эта функция позволяет преобразовать цветовые коды VBA от 1 до 56 ( Interior.ColorIndex ) в их длинные значения ( Interior.Color ):

 Функция CouversionCouleurLong (Couleur As Integer) As Long Dim 16751001, 6697881, 13434879, 16777164, 6684774, 8421631, 13395456, 16764108, 8388608, 16711935, 65535, _ 16776960, 8388736, 128, 8421376, 16711680, 167636, 165763407, 164377840, 164377840, 164371640, 1643771640 16737843, 13421619, 52377, 52479, 39423, 26367, 10053222, 9868950, 6697728, 6723891, 13056, 13107, 13209, 6697881, 10040115, 3355443, 16777215). CouversionCouleurLong = CouleursLng (Couleur) Конечная функция