VBA Excel - Farvekoderne

Farvekoder

Billedet nedenfor viser farvekoderne:

Prøvearbejdsbogen kan downloades fra dette link: //cjoint.com/?DIqlTjoC61G

Konverteringsfunktionen:

Denne funktion giver dig mulighed for at konvertere VBA-farvekoder fra 1 til 56 ( Interior.ColorIndex ) til deres lange værdi ( Interior.Color ):

 Funktion CouversionCouleurLong (Couleur As Integer) Som Long Dim CouleursLng () CouleursLng = Array (0, 16777215, 255, 65280, 16711680, 65535, 16711935, 16776960, 128, 32768, 8388608, 32896, 8388736, 8421376, 12632256, 8421504, 16751001, 6677881, 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) 'En cas d'erreur colorie en noir Hvis Couleur 56 Then CouversionCouleurLong = 0 CouversionCouleurLong = CouleursLng (Couleur) End Function