Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

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 pouvez identifier l'index de couleur d'arrière-plan de ces cellules de couleur. Il n'y a aucune fonction intégrée qui peut déterminer l'index de couleur d'une cellule, mais, dans cet article, j'introduis quelques codes de VBA pour résoudre ce travail dans Excel rapidement.
doc déterminer l'indice de couleur 1

Identifier la couleur de la cellule avec VBA


Identifier la couleur de la cellule avec VBA


Faites comme suit les étapes pour déterminer la couleur de la cellule par VBA.

Kutools for Excel, avec plus de 120 fonctions pratiques, rend vos travaux plus faciles.

1. presse Alt + F11 touches pour activer le Microsoft Visual Basic pour l'application fenêtre.
doc déterminer l'indice de couleur 2

2. Cliquez insérer > Module ouvrir une nouvelle Module et coller sous le code VBA dans le script vide. Voir la capture d'écran:

VBA: Récupère 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
doc déterminer l'indice de couleur 3
doc déterminer l'indice de couleur 4

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 saisie automatique sur les cellules que vous souhaitez utiliser. Voir la capture d'écran:

doc déterminer l'indice de couleur 5
doc déterminer l'indice de couleur 6

Pointe: il existe d'autres codes permettant d'identifier l'indice 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:
doc déterminer l'indice de couleur 7

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:
doc déterminer l'indice de couleur 8


Sélectionnez les cellules dupliquées et uniques (sélectionnez rapidement les valeurs en double ou uniques dans une colonne.

doc highlight dupliquer sur les colonnes 6

Articles relatifs:



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.