Hoe bepaal en identificeer je de achtergrondkleurindex van cellen in Excel?

Wanneer je een werkblad ontvangt met meerdere kleurrijke cellen zoals in onderstaande schermafbeelding, wil je in sommige gevallen misschien de achtergrondkleurindex van deze gekleurde cellen identificeren. Er is geen ingebouwde functie die de kleurindex van een cel kan bepalen, maar in dit artikel introduceer ik enkele VBA-codes om deze taak snel uit te voeren in Excel.

Identificeer de kleur van een cel met VBA

Identificeer de kleur van een cel met VBA

Volg de volgende stappen om de kleur van een cel via VBA te bepalen.

1. Druk op Alt + F11 om het Microsoft Visual Basic for Application venster te openen.

2. Klik op Invoegen > Module om een nieuwe Module te openen en plak de onderstaande VBA-code in het lege script. Zie schermafbeelding:

VBA: Haal traditionele hex-code van cel op

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. Sla de code op en sluit het VBA-venster. Selecteer een lege cel naast de gekleurde cel, typ deze formule, =getRGB1(A16), en sleep de automatische vulgreep over de cellen waar je deze wilt gebruiken. Zie schermafbeelding:

Tip: er zijn enkele andere codes die de kleurindex van een cel kunnen identificeren.

1. VBA: Decimale waarde voor elke 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

Resultaat:

2. VBA: Decimale waarden

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

Resultaat:

Dubbele of unieke waarden eenvoudig selecteren in Excel

Als je werkt met een bereik aan gegevens in Excel en dubbele rijen wilt markeren of selecteren, hoe kun je deze taak dan snel beheren? Met Kutools voor Excel stelt de functie Dubbele & Unieke Cellen Selecteren je in staat om snel dubbele of unieke waarden in een bereik te selecteren. Je kunt ook achtergrond- en lettertypekleuren toepassen op deze dubbele of unieke waarden, waardoor je gegevens moeiteloos uit de menigte springen.

Kutools voor Excel - Boost Excel met meer dan 300 essentiële tools. Geniet van permanent gratis AI-functies! Nu verkrijgen

Gerelateerde artikelen:

• Hoe verander je de lettertypekleur op basis van een celwaarde in Excel?
• Hoe kleur je dubbele waarden of dubbele rijen in Excel?