VBA Excel - Kode warna

Kode warna

Gambar di bawah ini mencantumkan kode warna:

Buku kerja sampel dapat diunduh dari tautan ini: //cjoint.com/?DIqlTjoC61G

Fungsi konversi:

Fungsi ini memungkinkan Anda untuk mengubah kode warna VBA dari 1 menjadi 56 ( Interior.ColorIndex ) ke nilai panjangnya ( Interior.Color ):

 Fungsi CouversionCouleurLong (Couleur As Integer) Sebagai Long Dim CouleursLng () CouleursLng = Array (0, 16777215, 255, 65280, 16711680, 65535, 16711935, 16776960, 128, 32768, 8388608, 32896, 8328648368368368368368368368368) 16751001, 6697881, 13434879, 16777164, 6684774, 8421631, 13395456, 16764108, 8388608, 16711935, _ 65776960, 8388736, 128, 8421376, 16711680, 16763904, 1647 16737843, 13421619, 52377, 52479, 39423, 26367, 10053222, 9868950, 6697728, 6723891, 13056, 13107, 13209, 6697881, 10040115, 3355443, 1677443, 16777215) CouversionCouleurLong = CouleursLng (Couleur) Fungsi Akhir