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 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:
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?
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen