Comment déterminer et identifier l'index de couleur d'arrière-plan des cellules dans Excel?

Lorsque vous recevez une feuille avec plusieurs cellules colorées comme illustré ci-dessous, dans certains cas, vous souhaiterez peut-être identifier l'index de couleur d'arrière-plan de ces cellules de couleur. Il n'y a pas de fonctionnalité intégrée qui peut déterminer l'indice de couleur d'une cellule, mais, dans cet article, j'introduis quelques codes VBA pour résoudre rapidement ce travail dans Excel.

Identifiez la couleur de la cellule avec VBA

Identifiez la couleur de la cellule avec VBA

Procédez comme suit pour déterminer la couleur de la cellule par VBA.

1. presse Alt + F11 touches pour activer Microsoft Visual Basic pour Application fenêtre.

2. Cliquez insérer > Module ouvrir un nouveau Module et collez ci-dessous le code VBA dans le script vide. Voir la capture d'écran:

VBA: Obtenez le code hexadécimal traditionnel de la cellule

Function getRGB1(FCell As Range) As String
'UpdatebyExtendoffice20170714
    Dim xColor As String
    xColor = CStr(FCell.Interior.Color)
    xColor = Right("000000" & Hex(xColor), 6)
    getRGB1 = Right(xColor, 2) & Mid(xColor, 3, 2) & Left(xColor, 2)
End Function

3. Enregistrez le code et fermez la fenêtre VBA. Sélectionnez une cellule vide à côté de la cellule colorée, tapez cette formule, = getRGB1 (A16), puis faites glisser la poignée de remplissage automatique sur les cellules que vous souhaitez utiliser. Voir la capture d'écran:

Conseil: il existe d'autres codes permettant d'identifier l'index de couleur de la cellule.

1. VBA: valeur décimale pour chaque code

Function getRGB2(FCell As Range) As String
   'UpdatebyExtendoffice20170714  
    Dim xColor As Long
    Dim R As Long, G As Long, B As Long
    xColor = FCell.Interior.Color
    R = xColor Mod 256
    G = (xColor \ 256) Mod 256
    B = (xColor \ 65536) Mod 256
    getRGB2 = "R=" & R & ", G=" & G & ", B=" & B
End Function

Résultat:

2. VBA: valeurs décimales

Function getRGB3(FCell As Range, Optional Opt As Integer = 0) As Long
 'UpdatebyExtendoffice20170714
    Dim xColor As Long
    Dim R As Long, G As Long, B As Long
    xColor = FCell.Interior.Color
    R = xColor Mod 256
    G = (xColor \ 256) Mod 256
    B = (xColor \ 65536) Mod 256
    Select Case Opt
        Case 1
            getRGB3 = R
        Case 2
            getRGB3 = G
        Case 3
            getRGB3 = B
        Case Else
            getRGB3 = xColor
    End Select
End Function

Résultat:

sélectionner rapidement des valeurs dupliquées ou uniques dans une plage Excel

Dans une feuille Excel, si vous avez une plage qui comprend des lignes en double, vous devrez peut-être les sélectionner ou les mettre en attente, mais comment résoudre rapidement ce travail? Si vous avez Kutools for Excel, vous pouvez utiliser le Sélectionnez Dupliquer et Cellules uniques utilitaire pour sélectionner rapidement les doublons ou les valeurs uniques dans la plage, ou remplir l'arrière-plan et la couleur de la police pour les doublons et les valeurs uniques.  Cliquez pour un essai gratuit de 30 jours!

Kutools for Excel : avec plus de 300 compléments Excel pratiques, à essayer gratuitement et sans limitation dans 30 jours.

Articles relatifs:

• Comment changer la couleur de la police en fonction de la valeur de la cellule dans Excel?
• Comment colorier des valeurs en double ou dupliquer des lignes dans Excel?