VBA Excel - Fargekodene

Fargekoder

Bildet under viser fargekodene:

Eksempel arbeidsboken kan lastes ned fra denne linken: //cjoint.com/?DIqlTjoC61G

Konverteringsfunksjonen:

Denne funksjonen lar deg konvertere VBA-fargekoder fra 1 til 56 ( Interior.ColorIndex ) til deres lange verdi ( Interior.Color ):

 Funksjon 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, 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 no noir Hvis Couleur 56 Then CouversionCouleurLong = 0 CouversionCouleurLong = CouleursLng (Couleur) End Function