Excel VBA-kleurenindex
Net als in een werkblad wijzigen we de kleur van een cel of een bepaald celbereik vanaf het starttabblad in VBA. We hebben een vba-functie genaamd Color Index die wordt gebruikt om de kleuren van de cellen of het geleverde celbereik te wijzigen, deze functie heeft een unieke identificatie voor verschillende soorten kleuren.
In VBA hebben we twee manieren om de kleur toe te passen, de eerste is door de eigenschap "kleur" te gebruiken en de tweede door de eigenschap "ColorIndex" te gebruiken.
We passen kleur toe op de cel als achtergrondkleur, we passen lettertypekleur toe en we passen randkleur toe. Dus om toegang te krijgen tot de eigenschap kleur en kleurindex, moeten we eerst de cel selecteren.
Hoe gebruik ik de eigenschap Color & Color Index?
U kunt deze VBA-kleurenindexsjabloon hier downloaden - VBA-kleurenindexsjabloon# 1 - Kleureigenschap gebruiken
Stel dat u het woord "Hallo" in cel A1 hebt staan. We zullen zien hoe we de achtergrondkleur van deze cel kunnen toepassen.
Om de achtergrondkleur te wijzigen, moeten we in kleureigenschappen eerst het bereik van de cel vermelden.
Code:
Subkleur () Bereik ("A1") Einde Sub
Nadat we de cel hebben geselecteerd, moeten we vermelden wat we moeten doen. Zoals ik al zei, moeten we de binnenkleur van de cel veranderen. Dus om de achtergrondkleur van de cel te veranderen, gebruik de eigenschap “Interieur”.
Code:
Subkleur () Bereik ("A1") Binnenkant Sub
Onder Eigenschap interieur hebben we verschillende andere methoden en eigenschappen. Omdat we de kleur van de cel moeten wijzigen, gebruikt u de kleureigenschap.
Code:
Subkleur () Bereik ("A1") Interior.Color = End Sub
Hier kunnen we 8 constant benoemde kleuren gebruiken. Hieronder is de lijst van hetzelfde.
vbBlack, vbRed, vbGreen, vbBlue, vbYellow, vbMagenta, vbCyan, vbWhiteSelecteer het kleurtype volgens uw wens.
Code:
Subkleur () Bereik ("A1"). Interior.Color = vbBlue End Sub
Als ik deze code uitvoer met de F5-toets of handmatig, wordt de achtergrondkleur van cel A1 gewijzigd in vbBlue.
Op deze manier kunt u andere constante benoemde kleuren gebruiken. Probeer ze te gebruiken om het resultaat te testen.
Afgezien van deze 8 constante kleuren, kunnen we ook met verschillende kleuren vullen door de RGB-functie in VBA te gebruiken.
Code:
Subkleur () Bereik ("A1") Interior.Color = RGB (End Sub
We moeten de combinatie van rood, groen en blauw in cijfers invoeren. Om dit te gebruiken moet u perfect zijn in het invoeren van de cijfers. Ik heb het mengsel ingevoerd als RGB (250, 200, 150).
Code:
Subkleur () Bereik ("A1"). Interior.Color = RGB (250, 200, 150) End Sub
Verandering van deze kleur is als volgt.
Het probleem hier is dat u niet precies weet welk nummer welke kleur heeft.
De onderstaande code is om de lettertypekleur te wijzigen.
Code:
Sub Color_Font () Bereik ("A1"). Font.Color = RGB (100, 400, 100) End Sub
Voer deze code uit met behulp van de F5-toets of handmatig om het resultaat te krijgen.
# 2 - Kleurindex-eigenschap gebruiken
Kleurindex wijkt enigszins af van de kleureigenschap. In de eigenschap COLOR gebruiken we 8 constante kleuren gegeven door VBA en ook met de RGB-functie creëren we onze eigen kleur.
COLOR INDEX-eigenschap is beperkt in VBA, het kan de waarden van 1 tot 56 bevatten. Elk nummer van 1 tot 56 bevat verschillende kleuren. Hieronder staan de lijstnummers en hun respectievelijke kleuren.
Hieronder staat de macrocode om de achtergrondkleur van cel A1 in roze te veranderen.
Code:
Sub ColorIndex_Cell () Bereik ("A1"). Interior.ColorIndex = 26 End Sub
Voer deze code handmatig uit of gebruik de F5-toets om het resultaat te zien.
Hieronder staat de macrocode om de lettertypekleur van cel A1 in geel te veranderen.
Code:
Sub ColorIndex_Font () Bereik ("A1"). Font.ColorIndex = 27 End Sub
Voer deze code uit met de F5-toets of u kunt het handmatig uitvoeren en het resultaat zien.
Een van de belangrijke dingen om hier te onthouden is dat we getallen van 1 tot 56 kunnen invoeren. Als er meer dan 56 zijn, krijgen we de foutmelding "Subscript Out Of Range".
Heb je geobserveerd?
Zoals ik al zei, kan de eigenschap Color Index slechts 56 kleuren invoegen, maar het is een feit dat het slechts 46 unieke kleuren kan invoegen en dat er 10 dubbele kleuren zijn. Hieronder vindt u de lijst met dubbele kleurcodes.