Hoe bepaalt en identificeert u de index van de achtergrondkleur van cellen in Excel?
Wanneer u een werkblad ontvangt met meerdere kleurrijke cellen, zoals op onderstaande schermafbeelding te zien is, wilt u in sommige gevallen de Achtergrondkleur-index van deze gekleurde cellen identificeren. Er is geen ingebouwde functie waarmee u de Kleurcode van een cel kunt bepalen, maar in dit artikel introduceer ik enkele VBA-codes om deze taak snel in Excel uit te voeren.
Identificeer de kleur van een cel met VBA
Identificeer de kleur van een cel met VBA
Voer de volgende stappen uit om de celkleur in te stellen met VBA.
1. Druk op Alt + F11 om het venster Microsoft Visual Basic for Applications 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: Traditionele hexadecimale code van cel ophalen
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 de formule =getRGB1(A16) en sleep vervolgens de automatisch aanvulgreep over de cellen die u wilt gebruiken. Zie schermafbeelding:
 |
 |
Tip: Er zijn nog een paar andere codes waarmee u de kleurcode van een cel kunt 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 FunctionResultaat:
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 FunctionResultaat:
Selecteer eenvoudig dubbele of unieke waarden in Excel |
Werkt u met een gegevensbereik in Excel en wilt u dubbele rijen snel markeren of selecteren? Met de functie Kutools voor Excel – specifiek de optie Selecteer duplicaat/unieke cellen – selecteert u in een handomdraai dubbele of unieke waarden binnen een bereik. U kunt deze duplicaten of unieke waarden bovendien voorzien van een achtergrond- en letterkleur, zodat ze direct opvallen in uw gegevens. |
 |
Kutools voor Excel– Geef Excel een boost met meer dan 300 essentiële tools, waardoor uw werk sneller en eenvoudiger verloopt, en profiteer van AI-functies voor slimmere gegevensverwerking en hogere productiviteit.Bestel nu |
Gerelateerde artikelen:
- Hoe wijzigt u de letterkleur op basis van de celwaarde in Excel?
- Hoe kleurt u dubbele waarden of dubbele rijen in Excel?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins