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 FunctionRé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 FunctionRé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?
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
